Add day 1 and 2 solutions in J.

2 years ago · 4e8b636d2f
parent ee819d1362
commit 4e8b636d2f
2 changed files with 9 additions and 0 deletions
--- a/day1.ijs
+++ b/day1.ijs
@ -0,0 +1,3 @@
+c =. > 0 ". each cutopen 1!:1 < jpath '~/projects/AoC/2020/year2020day1.txt.cache'
+>./,(c*/c)*2020=c+/c
+>./,(c*/c*/c)*2020=c+/c+/c
--- a/day2.ijs
+++ b/day2.ijs
@ -0,0 +1,6 @@
+r =: >"1 cut each cutopen 1!:1 < jpath '~/projects/AoC/2020/year2020day2.txt.cache'
+rs =: >0".each'-'cut"1>(0}"1 r)
+cs =: 0{"1>1{"1 r
+ss =: 2{"1 r
+/1>**/|:rs-+/"1 cs=>ss
+/1=+/|:(rs-1){"1 cs=>ss