10 lines
166 B
Text
10 lines
166 B
Text
|
local
|
||
|
|
fun {DoReverse Xs Ys}
|
||
|
|
case Xs of nil then Ys
|
||
|
|
[] X|Xr then {DoReverse Xr X|Ys}
|
||
|
|
end
|
||
|
|
end
|
||
|
|
in
|
||
|
|
fun {Reverse Xs} {DoReverse Xs nil} end
|
||
|
|
end
|