st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-10 00:38:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Memoized CPS parser combinators, monadic version

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-20 07:41:43 +03:00
parent fb9f6f4509
commit f1f3c8aff0
2 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
stdlib/Ostap.expr
View file

@ -101,7 +101,7 @@ fun seq (a, b) {
--infixr |> after | (a, b) {seq (a, b)}
infixr || before !! (a, b) {alt_k (a, b)}
infixr ||> after || (a, b) {seq_nm (a, b)}
infixr ||> after || (a, b) {seq_k (a, b)}
infix @ at * (a, f) {
fun (k) {
@ -171,8 +171,8 @@ local a = token_k ("a");
local as = memo (
fun (k) {
(empty_k || (as ||> a)) (k)
(empty_k @ fun (x) {""} || as ||> fun(as) {a @ fun (a) {as ++ a}}) $ k
}
);
as (print) ({"a", "a"})
(as ||> fun (as) {eof_k @ lift (as)}) (print) ({"a", "a"})