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

Remove just a tad more of bf

Browse Source
This commit is contained in:
Nathan Braswell
2020-05-12 00:33:29 -04:00
parent 25801b3d3a
commit 29230404a3
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
bf.kp
View File

@@ -11,19 +11,16 @@
(add_grammer_rule 'bfs_atom ["."] (fn* (xs) '(set-nth! output 0 (cons (nth tape (nth cursor 0)) (nth output 0))))) (add_grammer_rule 'bfs_atom ["."] (fn* (xs) '(set-nth! output 0 (cons (nth tape (nth cursor 0)) (nth output 0)))))
; Define strings of BF atoms ; Define strings of BF atoms
(add_grammer_rule 'bfs_list ['bfs_atom +] (fn* (xs) (nth xs 0))) (add_grammer_rule 'bfs ['bfs_atom +] (fn* (xs) (nth xs 0)))
; Add loop as an atom ; Add loop as an atom
(add_grammer_rule 'bfs_atom ["\\[" 'bfs_list "]"] (fn* (xs) (add_grammer_rule 'bfs_atom ["\\[" 'bfs "]"] (fn* (xs)
`(let* (f (fn* (f) `(let* (f (fn* (f)
(if (= 0 (nth tape (nth cursor 0))) (if (= 0 (nth tape (nth cursor 0)))
nil nil
(do ,(nth xs 1) (f f))))) (do ,(nth xs 1) (f f)))))
(f f)))) (f f))))
; Top level BFS rule
(add_grammer_rule 'bfs ['bfs_list] (fn* (xs) (nth xs 0)))
; For now, stick BFS rule inside an unambigious BFS block ; For now, stick BFS rule inside an unambigious BFS block
; and add compilation/implementation ; and add compilation/implementation
; Note that this compilation into the underlying Lisp ; Note that this compilation into the underlying Lisp