Compare commits
2 Commits
492c954655
...
4d1122fa58
Author | SHA1 | Date | |
---|---|---|---|
|
4d1122fa58 | ||
|
faf15bfd75 |
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
)
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user