repl stuff

src/ludus.janet

@@ -80,27 +80,31 @@
 #### REPL
 (comment
 # (do
- # (def start (os/clock))
+ (def start (os/clock))
  (def source `
-fd! (100)
+ 
-rt! (0.25)
+fn fib {
-fd! (100)
+    (1) -> 1
-lt! (0.25)
+    (2) -> 1
-fd! (100)
+    (n) -> add (
-setheading! (0.75)
+        fib (sub (n, 1))
-unbox (turtle_state)
+        fib (sub (n, 2))
+    )
+}
+
+fib (30)
  `)
  (def out (-> source 
   ludus
   j/decode
   ))
- # (def end (os/clock))
+ (def end (os/clock))
  (setdyn :out stdout)
  (pp out)
  (def console (out "console"))
  (print console)
  (def result (out "result"))
  (print result)
- # (print (- end start))
+ (print (- end start))
 )