src/example/test1.lang


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(* 5 6)

(def (repeat n val)
  (if (<=' n 0)
    (#Nil [])
    (#Cons [val (repeat (-' n 1) val)])))

(repeat 5 5)

(def (fold f init inputs)
  (case inputs
    (#Nil [])            init
    (#Cons [head tail]) (fold f (f init head) tail)))

(fold * 1 (repeat 5 5))