mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 15:56:12 +03:00
18 lines
737 B
Plaintext
18 lines
737 B
Plaintext
Parser.pick_while.go
|
|
: ∀(cond: ∀(chr: Char) Bool)
|
|
(Parser String)
|
|
= λcond λcode
|
|
let P = λx(Parser.Result String)
|
|
let cons = λhead λtail
|
|
let P = λx ∀(head: Char) ∀(tail: String) (Parser.Result String)
|
|
let true = λhead λtail
|
|
let P = λx (Parser.Result String)
|
|
let done = λcode λvalue (Parser.Result.done String code (String.cons head value))
|
|
let fail = λerror (Parser.Result.fail String error)
|
|
(~(Parser.pick_while.go cond tail) P done fail)
|
|
let false = λhead λtail
|
|
(Parser.Result.done String (String.cons head tail) String.nil)
|
|
(~(cond head) P true false head tail)
|
|
let nil =
|
|
(Parser.Result.done String String.nil String.nil)
|
|
(~code P cons nil) |