7 lines
104 B
Plaintext
7 lines
104 B
Plaintext
|
defn length l = {
|
||
|
|
case l of {
|
||
|
|
Nil -> { 0 }
|
||
|
|
Cons(x, xs) -> { 1 + length xs }
|
||
|
|
}
|
||
|
|
}
|