Compare commits

..

2 Commits

Author SHA1 Message Date
Scott Richmond
4d1122fa58 repl comment 2024-06-24 12:57:09 -04:00
Scott Richmond
faf15bfd75 at works with strings 2024-06-24 12:56:43 -04:00
2 changed files with 7 additions and 13 deletions

View File

@ -663,7 +663,7 @@ fn at {
when {
nil? (raw) -> nil
gte? (raw, 128) -> panic! "not an ASCII char"
true -> raw
true -> base :str_slice (str, n, inc (n))
}
}
(_) -> nil

View File

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