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

add semicolons to raw haxe code

Browse Source
This commit is contained in:
Yvon
2022-06-18 22:41:21 +03:00
committed by Nat Quayle Nelson
parent b975ff2e14
commit 5085d32ac8
9 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
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)

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

2
projects/aoc/src/year2021/Solutions2021.kiss
View File

@@ -4,7 +4,7 @@
`(let [theMap ,theMap key ,key amount ,amount &mut count (dictGet theMap key)]
(unless count
(dictSet theMap key (set count (Int64Helper.fromFloat 0))))
(dictSet theMap key #{count + amount}#)))
(dictSet theMap key #{count + amount;}#)))
// Remove and return an arbitrary key-value pair from the given Map
(function :Array<Dynamic> dictShift [:Map<String,Dynamic> m]

2
projects/aoc/src/year2021/day5.kiss
View File

@@ -37,4 +37,4 @@
(function :Int numHotPositions [file &opt :Bool part2]
(let [theMap (ventsByPos file ?part2)
two (Int64Helper.fromFloat 2)]
(count theMap ->vents #{ vents >= two }#)))
(count theMap ->vents #{ vents >= two; }#)))

2
projects/aoc/src/year2021/day6.kiss
View File

@@ -9,7 +9,7 @@
(doFor age list
(let [count (dictGet theMap age)
one (Int64Helper.fromFloat 1)]
(dictSet theMap age #{count + one}#)))
(dictSet theMap age #{count + one;}#)))
theMap))
(function :Map<Int,Int64> stepAgeMap [:Map<Int,Int64> theMap]