diff --git a/src/ludus.janet b/src/ludus.janet index a4d4361..72aadef 100644 --- a/src/ludus.janet +++ b/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) -fd! (100) -lt! (0.25) -fd! (100) -setheading! (0.75) -unbox (turtle_state) + +fn fib { + (1) -> 1 + (2) -> 1 + (n) -> add ( + fib (sub (n, 1)) + 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)) )