aboutsummaryrefslogtreecommitdiff
path: root/examples/fact.zc
diff options
context:
space:
mode:
Diffstat (limited to 'examples/fact.zc')
-rw-r--r--examples/fact.zc4
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/fact.zc b/examples/fact.zc
new file mode 100644
index 0000000..1790900
--- /dev/null
+++ b/examples/fact.zc
@@ -0,0 +1,4 @@
+fn fact(n) { if (n < 2) return 1; return n * fact(n - 1); }
+// prints in binary, like the old asm example
+fn bin(n) { if (n > 1) bin(n >> 1); put_c('0' + (n & 1)); return 0; }
+fn main() { bin(fact(10)); put_c(10); put_n(fact(10)); put_c(10); return 0; }