mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 19:47:15 +03:00
6 lines
198 B
Plaintext
6 lines
198 B
Plaintext
U60.parser.decimal
|
|
: (Parser #U60)
|
|
= (Parser.bind String #U60 Parser.decimal λchars
|
|
(Parser.pure #U60
|
|
(List.fold Char chars ∀(r:#U60)#U60 λhλtλr(t #(+ #(- h '0') #(* r #10))) λr(r) #0)))
|