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

Loop function can be simpler

Browse Source
This commit is contained in:
Nathan Braswell
2020-04-10 23:05:05 -04:00
parent 7bc58e904e
commit 721dc203be
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

@@ -10,11 +10,11 @@
(add_grammer_rule :bfs_list [] (fn* [xs] xs)) (add_grammer_rule :bfs_list [] (fn* [xs] xs))
(add_grammer_rule :bfs_list [:non_empty_bfs_list] (fn* [xs] (nth xs 0))) (add_grammer_rule :bfs_list [:non_empty_bfs_list] (fn* [xs] (nth xs 0)))
(add_grammer_rule :bfs_atom ["\\[" :bfs_list "]"] (fn* [xs] (add_grammer_rule :bfs_atom ["\\[" :bfs_list "]"] (fn* [xs]
`(let* (f (fn* [f] `(let* (f (fn* []
(if (= 0 (nth (deref arr) (deref ptr))) (if (= 0 (nth (deref arr) (deref ptr)))
nil nil
(do ,(nth xs 1) (f f))))) (do ,(nth xs 1) (f)))))
(f f)))) (f))))
(add_grammer_rule :bfs [:bfs_list] (fn* [xs] (nth xs 0))) (add_grammer_rule :bfs [:bfs_list] (fn* [xs] (nth xs 0)))
(def! with_update (fn* [arr idx val] (def! with_update (fn* [arr idx val]
(if (if