Try
le2=: 13 :'(=x) ([: ": #)"_ 1 _ y'
S le2 L
3 4 8
3
7
You need to review the ranks of u@v and [: u v . I used (":@#) b. 0 to
find the ranks I used above.
On Thursday, May 15, 2014, Linda Alvord <[email protected]> wrote:
> Here's an odd behavior. Why doesn't le2 behave the same as le3?
>
>
> S=:2 2 2 3 4
>
> L=:3 4 8 3 7
>
> NB. x u/.y ↔ (=x) u@# y
>
> le3=: 13 :'(=x) ":@ # y'
> ]LE3=: S le3 L
> 3 4 8
> 3
> 7
>
> le2=: 13 :'(=x) ([: ": #) y'
> ]LE2=: S le2 L
> 3 4 8
> 3 0 0
> 7 0 0
>
> le=: 13 :'x ": /. y'
> ]LE=:S le L
> 3 4 8
> 3
> 7
>
> 5!:4 <'le3'
> 5!:4 <'le3'
> ┌─ ]
> │ ┌─ ":
> ├─ ~ ─── @ ─┴─ #
> ──┤
> │ ┌─ [:
> └─────┼─ =
> └─ [
>
> 5!:4 <'le2'
> ┌─ ]
> │ ┌─ [:
> ├─ ~ ──────┼─ ":
> ──┤ └─ #
> │ ┌─ [:
> └─────┼─ =
> └─ [
>
> 5!:4 <'le'
> ── /. ─── ":
>
> Linda
>
>
>
>
> -----Original Message-----
> From: [email protected] <javascript:;> [mailto:
> programming- <javascript:;>
> [email protected] <javascript:;>] On Behalf Of Linda Alvord
> Sent: Tuesday, May 13, 2014 4:14 AM
> To: [email protected]
> Subject: Re: [Jprogramming] Stemplot
>
> Here's the first 4 lines with a line feed. Linda
>
> D=:/:~ 17 133 151 47 12 19 52 80 32 87 24 14 20 90 9 47 72 7 36 64
> NB.D=:/:~50 83 95 107 113 113 116 116 118 123
> NB.D=:11 11 31 73 74 92 104 114 129 133
> NB.D=:/:~ (>:?15)+?10#140
>
> -----Original Message-----
> From: [email protected]
> [mailto:[email protected]] On Behalf Of Linda
> Alvord
> Sent: Monday, May 12, 2014 11:29 PM
> To: [email protected]
> Subject: Re: [Jprogramming] Stemplot
>
> Here's where this belongs.
>
> ip, I enjoyed this problem. I created the following script to randomly
> generate lists and then create the stemplot. Save in a new jijx. Then run
> it. Remove the NB. in the second line to see another example. Do the same
> for the third line. Removing the NB. from the fourth line will generate
> new
> data. Hopefully it won't fail. Id appreciate inprovements within simple J
> from anyone.
>
> D=:/:~ 17 133 151 47 12 19 52 80 32 87 24 14 20 90 9 47 72 7 36 64
> NB.D=:/:~50 83 95 107 113 113 116 116 118 123
> NB.D=:11 11 31 73 74 92 104 114 129 133
> NB.D=:/:~ (>:?15)+?10#140
>
> sl=: 13 :'''S L''=:|:0 10#:y'
> sl D
> S
> L
>
> ]DO=:(<./S)+i.>:(>./S)-<./S
>
> ]WL=:":,.(DO e. S)#DO
>
> ]WOL=:":,.(-.DO e. S)#DO
>
> ]SS=:(|."1(|."1 WL),|."1 WOL),.'|'
>
> ]LS=:S ":/. L
>
> ]NLS=:((0{$WOL),1{$LS)$' '
>
> ]SP=: SS,. LS, NLS
>
> ]OS=: (".0 1{"1 SS)-0{DO
>
> ]G=: OS i. i.$DO
>
> ]GOOD=:G {"2 SP
>
> ]D
>
> In these days I guess you could call it a stem plot "app". In any case,
> when you understand any steps you can remove ] from a given line and it
> will no longer provide that result. Eventually, if you remove them all,
> you
> can make a stem plot of two digit numbers. I would have able to develop
> this
> and then use it in a high school Probability and Statistics class.
>
> Linda
>
>
>
> -----Original Message-----
> From: [email protected]
> [mailto:[email protected]] On Behalf Of Kip Murray
> Sent: Wednesday, May 07, 2014 9:47 AM
> To: [email protected]
> Subject: Re: [Jprogramming] Stemplot
>
> 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
--
Sent from Gmail Mobile
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
