the spec was to have just the last digit show up on right of | (~.@[ (,'|',])&":"_1 ":@/:~/.)/|:0 10 #: /:~ 54 59 35 41 46 25 47 60 54 46 49 46 41 34 22 111 112 2|2 5 3|4 5 4|1 1 6 6 6 7 9 5|4 4 9 6|0 11|1 2
----- Original Message ----- From: Raul Miller <[email protected]> To: Programming forum <[email protected]> Cc: Sent: Saturday, May 3, 2014 11:42:44 AM Subject: Re: [Jprogramming] Stemplot I'm not actually sure if the specification makes sense for numbers which are not two digit numbers. Roger's advice is probably worth noting. Thanks, -- Raul On Sat, May 3, 2014 at 11:36 AM, 'Pascal Jasmin' via Programming <[email protected]> wrote: > Not really as good as your version, but using 0 10 #: > > > , each (( [: ":@:~. {."1) , '|', ":@{:"1) each (] <@#~ [: = {."1) ] 0 >10 #: /:~ 54 59 35 41 46 25 47 60 54 46 49 46 41 34 22 > 2|25 > 3|45 > 4|1166679 > 5|449 > 6|0 > > works with minor display quirks for mixed length digit numbers > > > > > ----- Original Message ----- > From: Raul Miller <[email protected]> > To: Programming forum <[email protected]> > Cc: > Sent: Saturday, May 3, 2014 10:44:46 AM > Subject: Re: [Jprogramming] Stemplot > > 1. the concept of stem looks like 0 10 #: > Here's the dictionary page on antibase: > http://www.jsoftware.com/help/dictionary/d402.htm > > 2. sorting by stem could be put off, for later. > > 3. leafs look like ":@/:~ gathered using /. using the stem as key. > Here's the dictionary page on key: > http://www.jsoftware.com/help/dictionary/d421.htm > > In other words, > |:0 10 #: ruth > 5 5 3 4 4 2 4 6 5 4 4 4 4 3 2 > 4 9 5 1 6 5 7 0 4 6 9 6 1 4 2 > > ":@/:~/./|:0 10 #: ruth > 4 4 9 > 4 5 > 1 1 6 6 6 7 9 > 2 5 > 0 > > (~.@[ (,'|',])&":"_1 ":@/:~/.)/|:0 10 #: ruth > 5|4 4 9 > 3|4 5 > 4|1 1 6 6 6 7 9 > 2|2 5 > 6|0 > > /:~ (~.@[ (,'|',])&":"_1 ":@/:~/.)/|:0 10 #: ruth > 2|2 5 > 3|4 5 > 4|1 1 6 6 6 7 9 > 5|4 4 9 > 6|0 > > Not surprisingly, the most complicated part of this specification is > drawing in that vertical bar in the middle of the numbers. It's not a > number, so you have to convert the numbers to text (using ":) and you > have to do this twice, once for the numbers on the left of '|' and > again for the numbers on the right of '|', and also there's the glue > needed to make everything stick together properly. > > In the grand scheme of things, converting characters to numbers isn't > really all that complicated, and it's only a small fraction of a line > of code here, that we need to do the conversion. Still, viewed > objectively, I can easily imagine some people getting frustrated by > the mental effort needed to deal with the ugliness of formatting. > > The solution, of course, for most people, is to wait for someone else > deal with it, and then to ask for it to be different. > > That said, I often wish for a variation on /. which behaves like this: > key=: 1 :'<"_1@~.@[ u&> </.' > > In other words, modifying a dyad instead of a monad, and giving it a > left argument representing the value being keyed on. > > Then the expression would have looked like this: > /:~((,'|',])&": /:~)key/|:0 10 #: ruth > > Thanks, > > -- > Raul > > On Thu, May 1, 2014 at 7:35 PM, km <[email protected]> wrote: >> Noun ruth below shows the numbers of home runs of Babe Ruth in each of his >> 15 years with the New York Yankees, 1920 to 1934. Noun stemplot is a >> "stemplot" (defined below) of this data. I have a clumsy way of producing >> noun stemplot. How would you do it? >> >> ruth >> 54 59 35 41 46 25 47 60 54 46 49 46 41 34 22 >> stemplot >> 2|2 5 >> 3|4 5 >> 4|1 1 6 6 6 7 9 >> 5|4 4 9 >> 6|0 >> >> From Moore and McCabe, Introduction to the Practice of Statistics, Fourth >> Edition, page 20 -- >> >> To make a "stemplot": >> >> 1. Separate each observation into a "stem" consisting of all but the final >> (rightmost) digit and a "leaf", the final digit. Stems may have as many >> digits as needed, but each leaf contains only a single digit. >> >> 2. Write the stems in a vertical column with the smallest at the top, and >> draw a vertical line at the right of this column. >> >> 3. Write each leaf in the row to the right of its stem, in increasing order >> out from the stem. >> >> --Kip Murray >> >> Sent from my iPad >> ---------------------------------------------------------------------- >> 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
