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

Gonna checkpoint here - got basic fungll working, did a mod to allow strings as terminals, working on getting recursion working.

Browse Source
This commit is contained in:
Nathan Braswell
2021-08-05 00:07:44 -04:00
parent 5a61d5f90c
commit c8c876e1bc
5 changed files with 136 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fungll.kp
View File

@@ -38,8 +38,9 @@
altStart (lambda (t s k c) id)
altOp (lambda (p q) (lambda (t s k c) (lcompose (p t s k c) (q t s [] k c))))
term_parser (lambda (t [X b i] l k c) (lambda (sigma)
(if (= (idx b (- i 1)) (idx t k)) ((c [[X b i] l (+ 1 k)]) sigma)
sigma)))
(let (this_term (idx b (- i 1)))
(if (= this_term (slice t k (+ k (len this_term)))) ((c [[X b i] l (+ (len this_term) k)]) sigma)
sigma))))
term (lambda (s) [ s term_parser ])
continue (lambda (BSR_element c) (lambda ([U G P Y])