kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

change raw haxe

Browse Source
This commit is contained in:
Yvon
2022-06-11 22:54:20 +03:00
committed by Nat Quayle Nelson
parent a1853d02e5
commit b975ff2e14
15 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
projects/aoc/src/year2020/EvasionDSL.kiss
View File

@@ -34,4 +34,4 @@
(if (stream.isEmpty)
null
`(,(b.symbol (stream.expect "a ship command" ->(stream.takeChars 1)))
,(b.symbol (stream.expect "a number argument" ->(stream.takeUntilAndDrop #|"\n"|#))))))
,(b.symbol (stream.expect "a number argument" ->(stream.takeUntilAndDrop "\n"))))))

8
projects/aoc/src/year2020/FerrySimDSL.kiss
View File

@@ -3,7 +3,7 @@
(function :FerrySquare emptySeat [:Array<FerrySquare> n :SeatsChanged changed]
// Empty seats with completely empty neighbors, fill up
(cond
((= true (apply = (for neighbor n #|neighbor != fullSeat|#)))
((= true (apply = (for neighbor n #{neighbor != fullSeat}#)))
(set changed.changed true)
fullSeat)
(true emptySeat)))
@@ -11,7 +11,7 @@
(function :FerrySquare fullSeat [:Array<FerrySquare> n :SeatsChanged changed]
// Full seats with 4 or more full neighbors become empty
(cond
((<= 4 (count n (lambda [neighbor] #|neighbor == fullSeat|#)))
((<= 4 (count n (lambda [neighbor] #{neighbor == fullSeat}#)))
(set changed.changed true)
emptySeat)
(true fullSeat)))
@@ -43,7 +43,7 @@
(for :Array<FerrySquare> row state
(apply +
(for :FerrySquare seat row
(if #|seat == fullSeat|# 1 0))))))
(if #{seat == fullSeat}# 1 0))))))
(defReaderMacro "L" [stream] `emptySeat)
(defReaderMacro "#" [stream] `fullSeat)
@@ -51,4 +51,4 @@
(undefReaderMacro "...")
(defReaderMacro &start "" [stream]
`(state.push ,(ReaderExp.ListExp (readExpArray stream #|"\n"|#))))
`(state.push ,(ReaderExp.ListExp (readExpArray stream "\n"))))

2
projects/aoc/src/year2020/Passports.kiss
View File

@@ -4,7 +4,7 @@
(let [key (stream.expect "passport key" (lambda [] (stream.takeUntilAndDrop ":")))
value (stream.expect "passport value" (lambda [] (stream.takeUntilOneOf [" " "\n"] true)))]
(dictSet pp key value))
(if (= #|"\n\n"|# (try (stream.expect "paragraph break" (lambda [] (stream.peekChars 2))) (catch [e] "")))
(if (= "\n\n" (try (stream.expect "paragraph break" (lambda [] (stream.peekChars 2))) (catch [e] "")))
(begin (stream.dropWhitespace) pp)
(begin (stream.dropWhitespace) (readPassport stream pp))))

2
projects/aoc/src/year2020/Solutions2020.kiss
View File

@@ -126,7 +126,7 @@
dist (Adapters.distribution diffs)]
(assert (= 1998 (* (dictGet dist 1) (dictGet dist 3)))))
(let [memoized (memoize Adapters.arrangementCount)]
(set Adapters.arrangementCount #|cast memoized|#))
(set Adapters.arrangementCount #{cast memoized}#))
(assert (= "347250213298688" (Int64.toStr (Adapters.arrangementCount adapters 0))))))
(day 11