aboutsummaryrefslogtreecommitdiff
path: root/test.fun
blob: 563842921d8d3fa03faa33b0b62dd294d75f17a8 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
#inc stdlib.fun

## u32:x u32:a u32:b = a * ((u32:_ u32:c u32:d = c + d) a b);
u32:x u32:a u32:b = (* a ((u32:_ u32:c u32:d = (+ c d)) a b));

## print 12
print (x 2 4);

## Racket inspiration
## (define (fact [n 8])
##   (if (zero? n) 1 (* n (fact (- n 1)))))