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 <[email protected]> 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
