path: root/docs/history/10-zc/code/examples/fact.zc

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); putc('0' + (n & 1)); return 0; }
fn main() { bin(fact(10)); putc(10); putn(fact(10)); putc(10); return 0; }