diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-01-04 01:25:44 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-01-04 01:25:44 +0300 |
| commit | 0b4de175110bdf6ffaeb0ba3b86053fd2fec78be (patch) | |
| tree | ac9b054f1ea89c5bc0772afa06b7092f81e1fbbe /examples/generated.csx | |
| parent | 76ad99e0aa3fc5dd079dcf1b2f232c2a5f390372 (diff) | |
| download | csx-0b4de175110bdf6ffaeb0ba3b86053fd2fec78be.tar csx-0b4de175110bdf6ffaeb0ba3b86053fd2fec78be.tar.xz csx-0b4de175110bdf6ffaeb0ba3b86053fd2fec78be.zip | |
.
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]] ] |