blob: b73c0dbd08b0c213be92f5d8097fff391fec684b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
:import std/String .
:import std/Math .
part1 [{ [[(1 <? 0) (+1) (+0)]] | 0 ; ~0 }]
part2 [{ [[(1 <? 0) (+1) (+0)]] | 0 ; ~(~(~0)) }]
main [parts nums]
nums string→number <$> (lines 0)
parts [∑(part1 0) : ∑(part2 0)]
# equivalent alternative using std/Pair P
# part1 [length (filter (P.uncurry …<?…) (zip 0 ~0))]
# part2 [length (filter (P.uncurry …<?…) (zip 0 ~(~(~0))))]
|
