siddharth's blog
Tuesday, January 01, 2008
3 liner list reversal
-module(mylist).
-export([reverse/1]).
reverse(L) -> reverse(L, []).
reverse([H|T], Rl) -> reverse(T, [H|Rl]);
reverse([], Rl) -> Rl.
Thats it!
Here is the usage -
mylist:reverse([0, 1, 2, 3, 4, 5]).
should give -
[5, 4, 3, 2, 1, 0]
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment