rhi/aoc2023
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

some fixes oops

Browse source
This commit is contained in:
rhiannon morris 2023-12-02 14:20:50 +01:00
parent f9acd13292
commit 87ec03ee5e
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
day1-standalone.quox
View file

@ -217,8 +217,8 @@ def minus : ℕ → ℕ → ℕ =
case dup m return ℕ of { [m] ⇒ case dup m return ℕ of { [m] ⇒
elim-pair (λ _ _ ⇒ ℕ) elim-pair (λ _ _ ⇒ ℕ)
0 0
(λ _ p ⇒ succ p)
(λ _ p ⇒ p) (λ _ p ⇒ p)
(λ _ p ⇒ succ p)
(λ _ _ p ⇒ p) (λ _ _ p ⇒ p)
m n m n
} }
@ -311,17 +311,13 @@ namespace char {
λ x y ⇒ nat.le (ord x) (ord y) λ x y ⇒ nat.le (ord x) (ord y)
def between : ω.Char → ω.Char → ω.Char → Bool = def between : ω.Char → ω.Char → ω.Char → Bool =
λ lo hi c ⇒ λ lo hi c ⇒ bool.and (le lo c) (le c hi)
case dup c return Bool of { [c] ⇒ bool.and (le lo c) (le c hi) }
def is-digit : ω.Char → Bool = def is-digit : ω.Char → Bool =
between (chr 0x30) (chr 0x39) between (chr 0x30) (chr 0x39)
def digit : Char → ℕ = def digit : Char → ℕ =
λ c ⇒ nat.minus (ord c) 0x30 λ c ⇒ nat.minus (ord c) 0x30
#[compile-scheme "(lambda (c) (builtin-io (display c) (newline)))"]
postulate println : Char → IO Unit
} }
def0 Char = char.Char def0 Char = char.Char