diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-01-05 16:54:50 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-01-05 16:54:50 +0300 |
| commit | 94f089316ffbf2e2e74b0257355f7c390ff5262b (patch) | |
| tree | eddfe1a89e2cede726ab44a6fff356492f54f1f5 /examples | |
| parent | e96facabd92d3eb61a4f97dfc3436a34dae4812d (diff) | |
| download | csx-94f089316ffbf2e2e74b0257355f7c390ff5262b.tar csx-94f089316ffbf2e2e74b0257355f7c390ff5262b.tar.xz csx-94f089316ffbf2e2e74b0257355f7c390ff5262b.zip | |
Added sx.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/generated.csx | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/examples/generated.csx b/examples/generated.csx index 4c405c4..f6eac72 100644 --- a/examples/generated.csx +++ b/examples/generated.csx @@ -9,26 +9,18 @@ ] ] ]]] -[set map [fn [f l] [if [no l] [] - [pair [f [head l]] [map f [tail l]]] -]]] +[set map [fn [f l] [if l [pair [f [head l]] [map f [tail l]]]]]] [set id [fn args args]] -[set outstr [fn [str] [if str - [do [out [head str]] [outstr [tail str]]] - [] -]]] +[set outstr [fn [str] [if str [do [out [head str]] [outstr [tail str]]]]]] [set newline [fn [] [out 10]]] [set instr [fn [] [set c [in]] - [if [same c 10] - [] - [pair c [instr]] - ] + [if [no [same c 10]] [pair c [instr]]] ]] [outstr "-= loaded =-"] [newline] -[outstr "Hello, I am Conrad S. Xylander. What is your name?"] +[outstr "Hello, I am Casey Shawn Exton. What is your name?"] [newline] [outstr "> "] [set name [instr]] |