9 lines
166 B
Text
9 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
|