Mine: data=:fread 'advent2015/day3.txt' getMoves=: ((0,1),(0,_1),(1,0),:(_1,0)) {~ ('^v><' i. ]) addStart =: (1 2 $ 0) , ] smoutput answer1 =: # ~. +/\ addStart @: getMoves data smoutput answer2 =: # ~. _2[\ ; +/\"2 (((0,1) $~ #) addStart@,./. getMoves) data
On Thu, Dec 3, 2015 at 7:00 AM, Ryan Eckbo <ec...@cim.mcgill.ca> wrote: > Data=. }: freads'/tmp/input.txt' > houses=: 3 : '+/\ (0 0), (4 2$0 1 1 0 0 _1 _1 0){~ ''^>v<'' i. y' > > # part 1 > {. $ ~. houses Data > > # part 2 > santa=. 2 | i. # Data > robo=. -. santa > {. $ ~. (santa&# ,&shouses robo&#) Data > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm