ssube
/
agulator
1
0
Fork 0
Code

use a char list for operators

This commit is contained in:
Sean Sube 2022-09-28 17:34:13 -05:00
parent 0ecc7467fe
commit 01148d8193
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Parse.agda
View File

@ -34,6 +34,9 @@ takeCons cs (x ∷ xs) with (findCharIndex 0 x cs)
digits : List Char
digits = primStringToList "0123456789"
opers : List Char
opers = primStringToList "=+"
-- parse a single character into a typed token
parseChar : Char → Token
parseChar '0' = Digit 0
@ -68,7 +71,7 @@ takeNat s with takeCons digits s
... | emit (just n) rem₂ = emit (just n) rem₁
takeOper : List Char → Result Token
takeOper s with takeCons ('+' ∷ []) s
takeOper s with takeCons opers s
... | emit nothing rem = emit nothing rem
... | emit (just []) rem = emit nothing rem
... | emit (just (x ∷ xs)) rem with parseChar x