listsum -> listlength; add actual listsum

This commit is contained in:
darkf 2013-10-20 22:43:59 -07:00
parent cd309c9a58
commit dfbad82f26
2 changed files with 5 additions and 1 deletions

4
examples/listlength.lamb Normal file
View File

@ -0,0 +1,4 @@
sum([]) -> 0.
sum(x::xs) -> 1 + sum(xs).
putstrln(itos(sum([1, 2, 3]))).

View File

@ -1,4 +1,4 @@
sum([]) -> 0.
sum(x::xs) -> 1 + sum(xs).
sum(x::xs) -> x + sum(xs).
putstrln(itos(sum([1, 2, 3]))).