Oops, off by one error indeed... 2-~(+1%*)/:~(~.@[,./:~@}:/.)/|:>:0 10#:data,10*1+i.>./<.data%10
Thanks, -- Raul On Wed, May 7, 2014 at 9:46 AM, Kip Murray <[email protected]> wrote: > You somehow lost the leaf 1 from data item 151 (an "off by 1" error?). > Last row of answer should be 15 1 _ _ _ Sorry about line wrap. --Kip > > NB. Actually... this isn't any shorter, but it feels cleaner: > > 2-~(+1%*)/:~(~.@[,./:~@}:/.)/|:>:0 10#:data,10*i.>./<.data%10 > 0 7 9 _ _ > 1 2 4 7 9 > 2 0 4 _ _ > 3 2 6 _ _ > 4 7 7 _ _ > 5 2 _ _ _ > 6 4 _ _ _ > 7 2 _ _ _ > 8 0 7 _ _ > 9 0 _ _ _ > 10 _ _ _ _ > 11 _ _ _ _ > 12 _ _ _ _ > 13 3 _ _ _ > 14 _ _ _ _ > 15 _ _ _ _ > > NB. Thanks, > > stemplot data > 0|7 9 > 1|2 4 7 9 > 2|0 4 > 3|2 6 > 4|7 7 > 5|2 > 6|4 > 7|2 > 8|0 7 > 9|0 > 10| > 11| > 12| > 13|3 > 14| > 15|1 > > data > 17 133 151 47 12 19 52 80 32 87 24 14 20 90 9 47 72 7 36 64 > > > On Wednesday, May 7, 2014, Raul Miller <[email protected]> wrote: > >> Actually... this isn't any shorter, but it feels cleaner: >> 2-~(+1%*)/:~(~.@[,./:~@}:/.)/|:>:0 10#:data,10*i.>./<.data%10 >> >> Thanks, >> >> -- >> Raul >> >> >> On Wed, May 7, 2014 at 4:11 AM, Raul Miller >> <[email protected]<javascript:;>> >> wrote: >> > On Wed, May 7, 2014 at 3:59 AM, Kip Murray >> > <[email protected]<javascript:;>> >> wrote: >> >> Can you add in the "empty stems" 10 11 12 14 ? >> > >> > Like this? >> > 2-~(+1%*)/:~(~.@[,./:~@}:/.)/|:(,0,.~1+0 i.@{>./)>:0 10#:data >> > >> > Thanks, >> > >> > -- >> > Raul >> ---------------------------------------------------------------------- >> For information about J forums see http://www.jsoftware.com/forums.htm >> > > > -- > Sent from Gmail Mobile > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
