mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
19 lines
368 B
Plaintext
19 lines
368 B
Plaintext
Char.is_name
|
|
: ∀(a: Char) Bool
|
|
= λa
|
|
(Bool.or
|
|
(Char.is_between #97 #122 a)
|
|
(Bool.or
|
|
(Char.is_between #65 #90 a)
|
|
(Bool.or
|
|
(Char.is_between #48 #57 a)
|
|
(Bool.or
|
|
(Char.equal #95 a)
|
|
(Bool.or
|
|
(Char.equal #46 a)
|
|
(Bool.or (Char.equal #45 a) Bool.false)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
) |