15 lines
160 B
Erlang
15 lines
160 B
Erlang
|
-module(heads).
|
||
|
|
-export([len/1]).
|
||
|
|
|
||
|
|
alen([], Count) ->
|
||
|
|
Count;
|
||
|
|
|
||
|
|
alen([_|T], Count) ->
|
||
|
|
alen(T, Count+1).
|
||
|
|
|
||
|
|
len([_|T]) ->
|
||
|
|
alen(T, 1);
|
||
|
|
|
||
|
|
len([]) ->
|
||
|
|
0.
|