Such a pity J is not too popular on github. Anyway, here's my solution too. In general, I don't like to use tacit defs everywhere. Procedural logic is much more clear and easier to read and understand and not always slower.
NB. next good password http://adventofcode.com/day/11 ilo =: (+./)@(8 11 14&e.) NB. 'i' 'l' 'o' in vector abc =: 3 : '+./*./ 2=/\ 2 1 0 + 0 1 2 |.!._1"0 _ y' NB. three ascending chars xxs =: |:2 26$i.26 NB. noun: list of all pairs prs =: 3 : '2<:+/+./"1 xxs E."1 _ y' NB. at least 2 diff pairs v4s =: _97+a.&i. NB. 'hepxcrrq' --> 7 4 15 23 2 17 17 16 n4v =: 26&#. NB. 7 4 15 23 2 17 17 16 --> 57647112526 v4n =: 26&#.^:_1 NB. 57647112526 --> 7 4 15 23 2 17 17 16 s4v =: a.{~ 97&+ NB. 7 4 15 23 2 17 17 16 --> 'hepxcrrq' main =: 3 : 0 n =. n4v v4s y while. do. v=. v4n n=. >:n if. -.ilo v do. if. abc v do. if. prs v do. break. end. end. end. NB. faster than *.? end. s4v v ) echo p ,: main p=. main 'hepxcrrq' NB.hepxxyzz heqaabcc exit 0 On Fri, Dec 11, 2015 at 5:38 PM, Joe Bogner <joebog...@gmail.com> wrote: > my solution for day 11: > > https://gist.github.com/joebo/49e9ac513c2dcac3b012 > > > NB. creates and documents a function > NB. could be improved to split out example > NB. or automatically assert on the example > NB. originally from > http://www.jsoftware.com/pipermail/programming/2014-July/038316.html > func=: 3 : 0 > doc=.(y,'_doc')=: 0 : 0 > lines=.dlb each LF cut doc > 0!:0 > {: lines > examples=.(y,'_examples')=:3 }. each (#~ (<'ex:') E. 3 {. each [) lines > for_ex. examples do. > ex=.(>ex) > try. > assert ". ex > catch. > smoutput ex , ' failed' > smoutput 'returned ' > smoutput ". ex > end. > > end. > '' > ) > > func 'isStraight' > boolean test for a increasing straight of 3 numbers > restated: does adding 1 to the first 2 numbers equal the last 2 > numbers? > ex: 1 = isStraight (0,1,2) > ex: 0 = isStraight (0,2,2) > ex: 1 = isStraight (7,8,9) > isStraight=: [: *@(+/) (3 ((1&+)@(2&{.) -: }.) \ ]) > ) > > func 'nextLetter' > returns the next letter with odometer (wrap) if necessary > adverb parameter indicates how many letters are in the sequence > NB. + (97 -~ a.&i.) > ex: 0 1 -: (2 nextLetter) (0,0) > ex: 1 0 -: (2 nextLetter) (0,25) > nextLetter=: (1 : '(((m#26)&#:) @: ((m#26)&#.) @: (((m#26) #: 1) + ]) > )') > ) > > func 'charIdx' > charIdx=: a. i. ] > ) > > func 'noBadLetter' > boolean test for i, o, or l in a sequence of numbers where 0-26 = a-z > ex: 1 = noBadLetter (97 -~ a.&i.) 'ab' > ex: 0 = noBadLetter (97 -~ a.&i.) 'ai' > noBadLetter=: 0&=@(+/) @: ((97 -~ (charIdx 'iol')) e. ]) > ) > > > func 'has2Pair' > boolean test for whether there are at least 2 pairs of > non-overlapping characters > ex: 0 = has2Pair (1,1,1,2,3) > ex: 1 = has2Pair (1,1,1,2,2,3) > ex: 1 = has2Pair (1,1,1,2,2,3,3) > has2Pair=: ((>:&2)@(+/) @: ((2 >:~ #);.1~ _1&(|.!._) ~: ])) > ) > > > nextPassword=: (a. {~ 97&+) @: ([: (8 nextLetter)^:(-. @ (isStraight > *. noBadLetter *. has2Pair))^:_ (8 nextLetter)) @: (97 -~ a.&i.) > > smoutput pt1=:nextPassword 'hepxcrrq' > smoutput pt2=:nextPassword pt1 > > On Fri, Dec 11, 2015 at 2:48 AM, David Lambert <b49p23t...@gmail.com> > wrote: > > In the session below, the final sentence > > valid A > > runs "forever". Why? > > > > $ ijconsole > > > > JVERSION > > Engine: j803/2014-10-19-11:11:11 > > Library: 8.04.13 > > Platform: Linux 64 > > Installer: unknown > > InstallPath: /usr/share/j/8.0.4 > > > > > > LC=: 26}.Alpha_j_ > > > > a2v=: _8{.LC&i. > > > > NB. these tests apply to numerical vectors. > > straight=: 1 e. _1 _1 E. 2 -/\ ] > > oil=: 1 e. 14 8 11&e. > > pairs=: ((1 < {: - {.)*.(1 < #))@:([: I. 0 = 2 -/\ ]) > > valid=: straight *. -.@:oil *. pairs > > > > TEST=:>;:'hijklmmn abbceffg abbcegjk abcdefgh abcdffaa ghijklmn > ghjaabcc' > > ([: valid a2v)"1 TEST NB. passes the small test suite. > > 0 0 0 0 1 0 1 > > > > > > [A=: a2v'abcdddoz' > > 0 1 2 3 3 3 14 25 > > > > valid A > > ^Z > > [1]+ Stopped ijconsole > > $ > > ---------------------------------------------------------------------- > > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
