rename reversed -> reverse
This commit is contained in:
@@ -63,7 +63,7 @@
|
||||
realBasins (for =>lp _ realLowPoints (basinAround lp "src/year2021/inputs/day9.txt"))
|
||||
basinSizes (for b realBasins (count b))]
|
||||
(assert (= 480 (apply + (for =>_ height realLowPoints (+ 1 height)))))
|
||||
(assert (= 1045660 (apply * (.slice (reversed (sort basinSizes)) 0 3))))))
|
||||
(assert (= 1045660 (apply * (.slice (reverse (sort basinSizes)) 0 3))))))
|
||||
(day 10
|
||||
(load "day10.kiss")
|
||||
(assert (= 462693 (apply + (map (map (Util.readLines "src/year2021/inputs/day10.txt") getLineType) score))))
|
||||
|
@@ -24,7 +24,7 @@
|
||||
(let [&mut :Float score 0]
|
||||
(case line
|
||||
((Incomplete expected)
|
||||
(doFor char (reversed expected)
|
||||
(doFor char (reverse expected)
|
||||
(*= score 5)
|
||||
(+= score (case char
|
||||
(")" 1)
|
||||
|
@@ -1,7 +1,7 @@
|
||||
// Silly but fun implementation of a binary->decimal conversion
|
||||
(function :Int binaryStringToDecimal [:String binary &opt :Bool invert]
|
||||
(apply +
|
||||
(for [idx digit] (enumerate (reversed (binary.split "")))
|
||||
(for [idx digit] (enumerate (reverse (binary.split "")))
|
||||
(*
|
||||
(let [digit (Std.parseInt digit)] (if invert (- 1 digit) digit))
|
||||
(^ 2 idx)))))
|
||||
|
@@ -11,7 +11,7 @@
|
||||
e (max start end)]
|
||||
(let [r (collect (range s (+ e 1)))]
|
||||
(if (> start end)
|
||||
(reversed r)
|
||||
(reverse r)
|
||||
r))))
|
||||
|
||||
(function :Array<Point> pointsCoveredBy [:Line line :Bool part2]
|
||||
|
Reference in New Issue
Block a user