miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added optional_WS back

Browse Source
This commit is contained in:
Nathan Braswell
2020-04-10 23:11:17 -04:00
parent 7a6a1e0d82
commit c4078aa5e1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bf.kp
View File

@@ -28,7 +28,7 @@
(add_grammer_rule :bfs [:bfs_list] (fn* [xs] (nth xs 0)))
(add_grammer_rule :form ["bf{" :bfs "}"]
(add_grammer_rule :form ["bf" :optional_WS "{" :optional_WS :bfs :optional_WS "}"]
(fn* [xs]
`(fn* [input]
(let* (
@@ -45,6 +45,6 @@
_ (swap! inptr (fn* [old] (+ old 1))))
(swap! arr (fn* [old] (with_update old (deref ptr) h)))))
out (fn* [] (swap! output (fn* [old] (cons (nth (deref arr) (deref ptr)) old)))))
(do ,(nth xs 1) (deref output))))))
(do ,(nth xs 4) (deref output))))))
(println (bf{,>+++[<.>-]} [1337]))
(println (bf { ,>+++[<.>-] } [1337]))