diff options
Diffstat (limited to 'examples/generated.csx')
-rw-r--r-- | examples/generated.csx | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/examples/generated.csx b/examples/generated.csx index bddb2ed..cb2557c 100644 --- a/examples/generated.csx +++ b/examples/generated.csx @@ -1,7 +1,17 @@ -[set map [fn [f l] [if [same l []] [] +[set no [fn [x] [same x []]]] +[set outint [fn [n] [if [< n 0] + [do [out 45] [outint [neg n]]] + [if [< n 10] + [out [+ 48 n]] + [do + [outint [div n 10]] + [out [+ 48 [mod n 10]]] + ] + ] +]]] +[set map [fn [f l] [if [no l] [] [pair [f [head l]] [map f [tail l]]] ]]] - -[map [fn [n] [sum n 10]] - [quote [1 2 3 4 5]] +[map [fn [n] [outint n] [out 10]] + [quote [99 37 73 42]] ] |