Skip to content

Instantly share code, notes, and snippets.

@Joakineee

Joakineee/take.erl

Created May 15, 2020 12:21
Show Gist options
  • Save Joakineee/c701941c26d029f796cc78427d734189 to your computer and use it in GitHub Desktop.
Save Joakineee/c701941c26d029f796cc78427d734189 to your computer and use it in GitHub Desktop.
Download ZIP
erlang exercise take.
Raw
take.erl
-module(take).
-export([take/2]).
-spec take(integer(),list()) -> list().
take(X,L) -> take(X,L,[]).
-spec take(integer(),list(),list()) -> list().
take(_,[],Acc) -> lists:reverse(Acc);
take(0,_,Acc) -> lists:reverse(Acc);
take(X,[H|T],Acc) -> take(X-1,T,[H|Acc]).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment