examples/int.fusp


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

sub a b = code sub a b;
add a b = code add a b;
mul a b = code mul a b;

eq a b = code eq a b;
ge a b = code ge a b;
gt a b = code gt a b;
le a b = code le a b;
lt a b = code lt a b;
ne a b = code ne a b;

pow _ 0 = 1;
pow x n = mul x (pow x (sub 1 n));