blob: f805b1085488b04b44d73a87e935e45b9e8750fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(* 5 6)
## My first function definition!
(def (repeat n val)
(if (<=' n 0)
(#Nil [])
(#Cons [val (repeat (-' n 1) val)])))
## Testing one, two, three...
(repeat 5 5)
(def (fold f init inputs)
(case inputs
#( Outer comment #( Inner comment )# )#
(#Nil []) init
(#Cons [head tail]) (fold f (f init head) tail)))
## It's alive!
(fold * 1 (repeat 5 5))
|