1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
// o3 calls between functions: arguments in registers, results on the stack, and the ways a call can leave the fast path
fn put_f(x) { asm { x @ #1220 } return 0; }
struct node { int v; node *next; };
o3 int fib(int n) { if (n < 2) return n; return fib(n - 1) + fib(n - 2); }
o3 int ev(int n);
o3 int od(int n) { if (n == 0) return 0; return ev(n - 1); }
o3 int ev(int n) { if (n == 0) return 1; return od(n - 1); }
o3 int three(int a, int b, int c) { return a * 100 + b * 10 + c; }
o3 int four(int a, int b, int c, int d) { return three(a, b, c) * 10 + d; }
o3 int zero() { return 7; }
o3 int ack(int m, int n) { if (m == 0) return n + 1; if (n == 0) return ack(m - 1, 1); return ack(m - 1, ack(m, n - 1)); }
o3 float half(float x, int k) { if (k == 0) return x; return half(x / 2.0, k - 1); }
o3 int noisy(int n) { if (n == 0) return 0; put_n(n); put_c(' '); return n + noisy(n - 1); }
unchecked o3 int sumlist(node *p) { int s = 0; while (p) { s = s + p.v; p = p.next; } return s; }
unchecked o3 int build(int n) {
node *h = 0;
for (int i = 1; i <= n; i++) { node *x = new(node); x.v = i; x.next = h; h = x; }
int s = sumlist(h);
while (h) { node *t = h.next; free(h); h = t; }
return s;
}
unchecked o3 int mix(int a, int b) { return three(a, zero(), b) + fib(a) + four(1, 2, 3, b); }
unchecked fn main() {
put_n(fib(20)); put_c(' ');
put_n(ev(10)); put_c(' '); put_n(ev(7)); put_c(' ');
put_n(three(1, 2, 3)); put_c(' '); put_n(four(4, 5, 6, 7)); put_c(' '); put_n(zero()); put_c(' ');
put_n(ack(2, 3)); put_c(' ');
put_f(half(64.0, 3)); put_c(' ');
put_n(build(100)); put_c(' ');
put_n(mix(6, 9)); put_c(10);
put_n(noisy(4)); put_c(10);
return 0;
}
|
