aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2021-01-04 17:43:58 +0300
committerAleksey Veresov <aleksey@veresov.pro>2021-01-04 17:43:58 +0300
commite96facabd92d3eb61a4f97dfc3436a34dae4812d (patch)
treedd8a027de2a61c005b08cde06bc682895aa71ddf /examples
parentfa6a4104b04aa7834fdafc3aca9b479605445ca7 (diff)
downloadcsx-e96facabd92d3eb61a4f97dfc3436a34dae4812d.tar
csx-e96facabd92d3eb61a4f97dfc3436a34dae4812d.tar.xz
csx-e96facabd92d3eb61a4f97dfc3436a34dae4812d.zip
Example improved.
Diffstat (limited to 'examples')
-rw-r--r--examples/generated.csx30
1 files changed, 21 insertions, 9 deletions
diff --git a/examples/generated.csx b/examples/generated.csx
index 8710bd6..4c405c4 100644
--- a/examples/generated.csx
+++ b/examples/generated.csx
@@ -12,17 +12,29 @@
[set map [fn [f l] [if [no l] []
[pair [f [head l]] [map f [tail l]]]
]]]
-[map [fn [n] [outint n] [out 10]]
- [quote [99 37 73 42]]
-]
[set id [fn args args]]
-[outint [[id 42 13 31] 2]]
-[out 10]
-[out ["Hello!" 1]]
-[out 10]
[set outstr [fn [str] [if str
[do [out [head str]] [outstr [tail str]]]
[]
]]]
-[outstr "Hello, World!"]
-[out 10]
+[set newline [fn [] [out 10]]]
+[set instr [fn []
+ [set c [in]]
+ [if [same c 10]
+ []
+ [pair c [instr]]
+ ]
+]]
+
+[outstr "-= loaded =-"]
+[newline]
+[outstr "Hello, I am Conrad S. Xylander. What is your name?"]
+[newline]
+[outstr "> "]
+[set name [instr]]
+[outstr "Nice to meet you, "]
+[outstr name]
+[outstr "."]
+[newline]
+[outstr "I have to go. Goodbye!"]
+[newline]