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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#include <csx.h>
#include <stdio.h>
static csx_list_fn *l;
static csx_num_fn *n;
char *define;
char *fn;
char *pair;
char *head;
char *tail;
char *not;
char *csx_if;
char *inc;
char *sum;
char *diff;
void process()
{
char *fib = csx_name("fib");
char *num = csx_name("num");
csx_eval(l(define, fib, l(fn, l(num, 0),
l(csx_if, l(inc, num, n(3), 0), n(1),
l(sum,
l(fib, l(diff, num, n(1), 0), 0),
l(fib, l(diff, num, n(2), 0), 0),
0),
0),
0), 0));
printf("fib 6 = %d\n", *(int *)csx_eval(l(fib, n(6), 0)));
}
int main()
{
l = csx_list;
n = csx_num;
define = csx_name("define");
fn = csx_name("fn");
pair = csx_name("pair");
head = csx_name("head");
tail = csx_name("tail");
not = csx_name("not");
csx_if = csx_name("if");
inc = csx_name("inc");
sum = csx_name("sum");
diff = csx_name("diff");
process();
return 0;
}
|