There isn't really a lot to simplify there - each part has a (somewhat arbitrary) purpose...
But you there is one thing you could do: 'BINGO' ,&:(<"0) |: (1+15*i.5)+15?~#~5 That said, I took a quick look at bingo rules, and I'm suspecting you might want something like: a: (<3 2)}'BINGO' ,&:(<"0) |: (1+15*i.5)+15?~#~5 Good luck, -- Raul On Thu, Feb 22, 2018 at 11:12 AM, Jimmy Gauvin <[email protected]> wrote: > Maybe someone can simplify this expression : > > (<"0'BINGO') , <"0 |: (1+15*i.5)+15?~#~5 > > ┌──┬──┬──┬──┬──┐ > > │B │I │N │G │O │ > > ├──┼──┼──┼──┼──┤ > > │1 │25│44│60│68│ > > ├──┼──┼──┼──┼──┤ > > │5 │27│32│52│74│ > > ├──┼──┼──┼──┼──┤ > > │11│20│41│53│63│ > > ├──┼──┼──┼──┼──┤ > > │7 │17│33│55│64│ > > ├──┼──┼──┼──┼──┤ > > │13│21│37│46│71│ > > └──┴──┴──┴──┴──┘ > > > > > On Thu, Feb 22, 2018 at 7:06 AM, Nick S <[email protected]> wrote: > >> Never mind, I see my mistake. I was assembling my square array one way and >> using it another. Sorry to bother everyone. >> >> On Thu, Feb 22, 2018 at 6:24 AM, Nick S <[email protected]> wrote: >> >> > I am trying to print a bingo card. The expression I am using is simple. >> > My result is unexpected: >> > >> > >> > |:((<' B '),(<' I '),(< ' N '),(<' G '),(<' O ')),. 3&": L:0 <"0(1 16 >> > 31 46 61)+(5?15),.(5?15),.(5?15),.(5?15),.(5?15) >> > ┌───┬───┬───┬───┬───┐ >> > │ B │ I │ N │ G │ O │ >> > ├───┼───┼───┼───┼───┤ >> > │ 2│ 16│ 44│ 51│ 63│ >> > ├───┼───┼───┼───┼───┤ >> > │ 5│ 16│ 44│ 55│ 69│ >> > ├───┼───┼───┼───┼───┤ >> > │ 5│ 24│ 36│ 58│ 61│ >> > ├───┼───┼───┼───┼───┤ >> > │ 14│ 21│ 45│ 47│ 61│ >> > ├───┼───┼───┼───┼───┤ >> > │ 15│ 18│ 39│ 50│ 68│ >> > └───┴───┴───┴───┴───┘ >> > Furthermore: >> > >> > |:((<' B '),(<' I '),(< ' N '),(<' G '),(<' O ')),. 3&": L:0 <"0 c =:(1 >> > 16 31 46 61)+(5?15),.(5?15),.(5?15),.(5?15),.(5?15) >> > ┌───┬───┬───┬───┬───┐ >> > │ B │ I │ N │ G │ O │ >> > ├───┼───┼───┼───┼───┤ >> > │ 6│ 16│ 35│ 49│ 70│ >> > ├───┼───┼───┼───┼───┤ >> > │ 7│ 29│ 40│ 56│ 62│ >> > ├───┼───┼───┼───┼───┤ >> > │ 5│ 27│ 41│ 54│ 64│ >> > ├───┼───┼───┼───┼───┤ >> > │ 11│ 30│ 44│ 52│ 63│ >> > ├───┼───┼───┼───┼───┤ >> > │ 15│ 29│ 43│ 54│ 62│ >> > └───┴───┴───┴───┴───┘ >> > c >> > 6 7 5 11 15 >> > 16 29 27 30 29 >> > 35 40 41 44 43 >> > 49 56 54 52 54 >> > 70 62 64 63 62 >> > >> > >> > The NuVoc explanation of deal says: >> > >> > Selects x items <http://code.jsoftware.com/wiki/Vocabulary/AET#Item> at >> >> random (without repetition) from the list >> >> <http://code.jsoftware.com/wiki/Vocabulary/AET#List> i.y >> > >> > >> > Am I missing something? Is this a known bug? I tried googling, but I >> > failed. >> > >> > 9!:12 '' >> > >> > 6 >> > >> > 9!:14 '' >> > >> > j806/j64avx/windows/beta-3/commercial/www.jsoftware.com/ >> > 2017-04-10T18:03:23 >> > >> > -- >> > Of course I can ride in the carpool lane, officer. Jesus is my constant >> > companion. >> > >> >> >> >> -- >> Of course I can ride in the carpool lane, officer. Jesus is my constant >> companion. >> ---------------------------------------------------------------------- >> 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
