From 661c70e4d786e7b2188564beddc586f1a50e4656 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 3 Jan 2015 11:24:14 -0400
Subject: The language officially has a name: Lux (stylized as "lux").

---
 src/example/test1.lux | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 src/example/test1.lux

(limited to 'src/example/test1.lux')

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)
-- 
cgit v1.2.3