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 { when {
nil? (raw) -> nil nil? (raw) -> nil
gte? (raw, 128) -> panic! "not an ASCII char" gte? (raw, 128) -> panic! "not an ASCII char"
true -> raw true -> base :str_slice (str, n, inc (n))
} }
} }
(_) -> nil (_) -> nil

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))
) )