Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local Length R in
- proc {Length Xs R}
- case Xs
- of nil then R = 0
- [] X|Xr then
- local P in
- {Length Xr P}
- R = 1+P
- end
- end
- end
- {Length [1 2 3 4] R}
- {Browse R}
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement