2022-09-28 22:06:38 +00:00
|
|
|
module Expr where
|
2022-09-28 04:12:48 +00:00
|
|
|
|
2022-09-28 22:06:38 +00:00
|
|
|
open import Agda.Builtin.Char
|
|
|
|
|
open import Agda.Builtin.List
|
|
|
|
|
open import Agda.Builtin.Maybe
|
|
|
|
|
open import Agda.Builtin.Nat
|
|
|
|
|
open import Agda.Builtin.String
|
|
|
|
|
|
|
|
|
|
data Token : Set where
|
|
|
|
|
Digit : Nat → Token
|
|
|
|
|
Delim : Char → Token
|
|
|
|
|
Oper : Char → Token
|
|
|
|
|
Skip : Char → Token
|
|
|
|
|
Term : Token
|
