load 'aoc.ijs'
d =: lines 'day02'
part1=: 3 : 0
'a b c d' =. chopstring '- ' stringreplace y
(-: /:~) (".a),(+/d={.c),(".b)
)
+/ part1@> d NB. 586
part2=: 3 : 0
'a b c d' =. chopstring '- ' stringreplace y
1=+/ ((<: (". a),(".b)) { d) = {.c
)
+/ part2@> d NB. 352