diff options
author | Eduardo Julian | 2015-01-03 11:24:14 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-01-03 11:24:14 -0400 |
commit | 661c70e4d786e7b2188564beddc586f1a50e4656 (patch) | |
tree | fe3aff74ffa526d455b7e22d7015573dc926f5f1 /src/example/test1.lux | |
parent | 212dd66966a873e3d7183b071f719ef58e4d88fe (diff) |
The language officially has a name: Lux (stylized as "lux").
Diffstat (limited to 'src/example/test1.lux')
-rw-r--r-- | src/example/test1.lux | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/src/example/test1.lux b/src/example/test1.lux new file mode 100644 index 000000000..8e740eabd --- /dev/null +++ b/src/example/test1.lux @@ -0,0 +1,38 @@ + +(* 5 6) + +## My first function definition! +(def (repeat n val) + (if (<=' n 0) + (#Nil []) + (#Cons [val (repeat (-' n 1) val)]))) + +## Testing one, two, three... +(repeat 5 5) + +(def (fold f init inputs) + (case inputs + #( Outer comment #( Inner comment )# )# + (#Nil []) init + (#Cons [head tail]) (fold f (f init head) tail))) + +## It's alive! +(fold * 1 (repeat 5 5)) + +3.14 + +(def pi 3.14) + +pi + +(def (foo x) + (let [y (*' 2 x)] + (+' x y))) + +(foo 10) + +(def bar {#x 10 #y 20}) +bar +(get@ #x bar) +(set@ #z 30 bar) +(remove@ #y bar) |