diff options
| -rw-r--r-- | examples/generated.c | 2 | ||||
| -rw-r--r-- | examples/generated.csx | 9 |
2 files changed, 10 insertions, 1 deletions
diff --git a/examples/generated.c b/examples/generated.c index 0b70fd6..caa11e2 100644 --- a/examples/generated.c +++ b/examples/generated.c @@ -1,6 +1,6 @@ #include <csx.h> int main() { -csx_eval(csx_list(csx_name("do"),csx_list(csx_name("define"),csx_name("a"),csx_num(10),0),csx_list(csx_name("define"),csx_name("b"),csx_list(csx_name("sum"),csx_name("a"),csx_num(3),0),0),csx_list(csx_name("outname"),csx_list(csx_name("quote"),csx_name("sum-of-10-and-3-is"),0),0),csx_list(csx_name("outnum"),csx_name("b"),0),0)); +csx_eval(csx_list(csx_name("do"),csx_list(csx_name("define"),csx_name("map"),csx_list(csx_name("fn"),csx_list(csx_name("f"),csx_name("l"),0),csx_list(csx_name("if"),csx_list(csx_name("not"),csx_name("l"),0),csx_list(0),csx_list(csx_name("pair"),csx_list(csx_name("f"),csx_list(csx_name("head"),csx_name("l"),0),0),csx_list(csx_name("map"),csx_name("f"),csx_list(csx_name("tail"),csx_name("l"),0),0),0),0),0),0),csx_list(csx_name("map"),csx_list(csx_name("fn"),csx_list(csx_name("n"),0),csx_list(csx_name("outnum"),csx_name("n"),0),csx_list(csx_name("output"),csx_num(10),0),0),csx_list(csx_name("map"),csx_list(csx_name("fn"),csx_list(csx_name("n"),0),csx_list(csx_name("sum"),csx_name("n"),csx_num(10),0),0),csx_list(csx_name("quote"),csx_list(csx_num(1),csx_num(2),csx_num(3),csx_num(4),csx_num(5),0),0),0),0),0)); return 0; } diff --git a/examples/generated.csx b/examples/generated.csx new file mode 100644 index 0000000..4d22565 --- /dev/null +++ b/examples/generated.csx @@ -0,0 +1,9 @@ +[define map [fn [f l] [if [not l] [] + [pair [f [head l]] [map f [tail l]]] +]]] + +[map [fn [n] [outnum n] [output 10]] + [map [fn [n] [sum n 10]] + [quote [1 2 3 4 5]] + ] +] |