repositories
/
minfp.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
updates'
[minfp.git]
/
tests
/
preamble.mfp
1
$ ifxr 0 x y = x y;
2
& ifxr 0 x y = y x;
3
== ifxl 7 = code eq;
4
* ifxl 7 = code mul;
5
- ifxl 6 = code sub;
6
+ ifxl 6 = code add;
7
if = code if;
8
fac i = if (i == 0) 1 (i * fac (i - 1));
9
start = fac 10;