dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

fix aoc2025 tests, consider greek when determining uppercase
Some checks failed
Publish Playground / build (push) Has been cancelled
Details
Publish Playground / deploy (push) Has been cancelled
Details

Browse Source
This commit is contained in:
Steve Dunham
2026-02-21 21:41:22 -08:00
parent 34744a8edc
commit 673c79b786
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
aoc2025/Node.newt
View File

@@ -22,9 +22,8 @@ instance Applicative Promise where
instance HasIO Promise where instance HasIO Promise where
liftIO = promise_lift liftIO = promise_lift
pfunc fs : JSObject := `require('fs')`
pfunc getArgs : List String := `arrayToList(String, process.argv)` pfunc getArgs : List String := `arrayToList(String, process.argv)`
pfunc readFile uses (MkIORes) : (fn : String) -> IO String := `(fn) => (w) => Prelude_MkIORes(require('fs').readFileSync(fn, 'utf8'), w)` pfunc readFile uses (MkIORes) : (fn : String) -> IO String := `(fn) => (w) => Prelude_MkIORes(fs.readFileSync(fn, 'utf8'), w)`
pfunc runPromise uses (MkIORes MkUnit) : ∀ a. Promise a → IO Unit := `(a,p) => (w) => { pfunc runPromise uses (MkIORes MkUnit) : ∀ a. Promise a → IO Unit := `(a,p) => (w) => {
// p(w) // p(w)

2
src/Prelude.newt
View File

@@ -901,7 +901,7 @@ isDigit '9' = True
isDigit _ = False isDigit _ = False
isUpper : Char → Bool isUpper : Char → Bool
isUpper c = let o = ord c in 64 < o && o < 91 isUpper c = let o = ord c in (64 < o && o < 91) || (912 < o && o < 938)
isAlphaNum : Char → Bool isAlphaNum : Char → Bool
isAlphaNum c = let o = ord c in isAlphaNum c = let o = ord c in