aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Stem-and-leaf-plot/J/stem-and-leaf-plot-1.j Normal file
View file

@ -0,0 +1,7 @@
stem =: <.@(%&10)
leaf =: 10&|
stemleaf =: (stem@{. ; leaf)/.~ stem
expandStems =: <./ ([ + i.@>:@-~) >./
expandLeaves=: (expandStems e. ])@[ #inv ]
showStemLeaf=: (":@,.@expandStems@[ ; ":&>@expandLeaves)&>/@(>@{. ; <@{:)@|:@stemleaf@/:~

13
Task/Stem-and-leaf-plot/J/stem-and-leaf-plot-2.j Normal file
View file

@ -0,0 +1,13 @@
stemleafX=: monad define
leaves=. 10 | y
stems=. y <.@:% 10
leaves=. stems </. leaves NB. group leaves by stem
(<"0 ~.stems),.leaves
)
showStemLeafX=: monad define
'stems leaves'=. (>@{. ; <@{:)@|: stemleafX /:~ y
xstems=. (<./ ([ + i.@>:@-~ ) >./) stems NB. stems including those with no leaves
xleaves=. (xstems e. stems) #inv leaves NB. expand leaves to match xstems
(": ,.xstems) ; ":&> xleaves
)

39
Task/Stem-and-leaf-plot/J/stem-and-leaf-plot-3.j Normal file
View file

@ -0,0 +1,39 @@
nls =: ; <@(_&".);._2 noun define
12 127 28 42 39 113 42 18 44 118 44 37 113 124 37 48 127 36 29 31 125
139 131 115 105 132 104 123 35 113 122 42 117 119 58 109 23 105 63 27 44 105
99 41 128 121 116 125 32 61 37 127 29 113 121 58 114 126 53 114 96 25 109
7 31 141 46 13 27 43 117 116 27 7 68 40 31 115 124 42 128 52 71 118
117 38 27 106 33 117 116 111 40 119 47 105 57 122 109 124 115 43 120 43 27
27 18 28 48 125 107 114 34 133 45 120 30 127 31 116 146
)
stemleaf nls NB. display has been abbreviated
┌──┬─────────────────────────────────────────────┐
│1 │2 8 3 8 │
├──┼─────────────────────────────────────────────┤
│12│7 4 7 5 3 2 8 1 5 7 1 6 4 8 2 4 0 5 0 7 │
├──┼─────────────────────────────────────────────┤
│2 │8 9 3 7 9 5 7 7 7 7 7 8 │
...
showStemLeaf nls
┌──┬─────────────────────────────────────────────┐
│ 0│7 7 │
│ 1│2 3 8 8 │
│ 2│3 5 7 7 7 7 7 7 8 8 9 9 │
│ 3│0 1 1 1 1 2 3 4 5 6 7 7 7 8 9 │
│ 4│0 0 1 2 2 2 2 3 3 3 4 4 4 5 6 7 8 8 │
│ 5│2 3 7 8 8 │
│ 6│1 3 8 │
│ 7│1 │
│ 8│ │
│ 9│6 9 │
│10│4 5 5 5 5 6 7 9 9 9 │
│11│1 3 3 3 3 4 4 4 5 5 5 6 6 6 6 7 7 7 7 8 8 9 9│
│12│0 0 1 1 2 2 3 4 4 4 5 5 5 6 7 7 7 7 8 8 │
│13│1 2 3 9 │
│14│1 6 │
└──┴─────────────────────────────────────────────┘
(showStemLeaf -: showStemLeafX) nls NB. both solutions give same result
1