Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -module(cw1).
- -export([delete_last/2]).
- delete_last([H|T], N) -> reverse(del_n(reverse([H|T]), N)).
- del_n([H|T], 0) -> [H|T];
- del_n([H|T], N) -> del_n(T, N-1).
- reverse([])->[];
- reverse([H|T])->reverse(T)++[H].
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
