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

Reply via email to