twc/ludus
4
0
Fork 0
Code Issues 28 Pull Requests Packages Projects 8 Releases Wiki Activity

repl comment

Browse Source
This commit is contained in:
Scott Richmond 2024-06-24 12:57:09 -04:00
parent faf15bfd75
commit 4d1122fa58
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ludus.janet
View File

@ -55,25 +55,19 @@
# (do # (do
(def start (os/clock)) (def start (os/clock))
(def source ` (def source `
repeat 100 { at ("aéc", 3)
repeat 100 {
fd! (1)
rt! (inv (100))
}
rt! (inv (100))
}
`) `)
(def out (-> source (def out (-> source
ludus ludus
# j/decode j/decode
)) ))
(def end (os/clock)) (def end (os/clock))
(setdyn :out stdout) (setdyn :out stdout)
(pp out) (pp out)
# (def console (out "console")) (def console (out "console"))
# (print console) (print console)
# (def result (out "result")) (def result (out "result"))
# (print result) (print result)
(print (- end start)) (print (- end start))
) )