Add the examples to the repo.
This commit is contained in:
7
03/works3.txt
Normal file
7
03/works3.txt
Normal file
@@ -0,0 +1,7 @@
|
||||
data List = { Nil, Cons Int List }
|
||||
defn length l = {
|
||||
case l of {
|
||||
Nil -> { 0 }
|
||||
Cons x xs -> { 1 + length xs }
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user