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

all tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Sorting-algorithms-Counting-sort/J/sorting-algorithms-counting-sort-1.j Normal file
View file

@ -0,0 +1,8 @@
csort =: monad define
min =. <./y
cnt =. 0 $~ 1+(>./y)-min
for_a. y do.
cnt =. cnt >:@{`[`]}~ a-min
end.
cnt # min+i.#cnt
)

1
Task/Sorting-algorithms-Counting-sort/J/sorting-algorithms-counting-sort-2.j Normal file
View file

@ -0,0 +1 @@
csort=: (+/@(=/) # ]) >./ (] + 1 i.@+ -) <./

5
Task/Sorting-algorithms-Counting-sort/J/sorting-algorithms-counting-sort-3.j Normal file
View file

@ -0,0 +1,5 @@
] a =. _3 + 20 ?@$ 10
_2 _2 6 _1 1 6 _1 4 4 1 4 4 5 _3 5 3 0 _1 3 4
csort a
_3 _2 _2 _1 _1 _1 0 1 1 3 3 4 4 4 4 4 5 5 6 6

3
Task/Sorting-algorithms-Counting-sort/J/sorting-algorithms-counting-sort-4.j Normal file
View file

@ -0,0 +1,3 @@
csrt=:2 :0
(m+i.n-m) (+/@(=/)~ # [) ]
)

3
Task/Sorting-algorithms-Counting-sort/J/sorting-algorithms-counting-sort-5.j Normal file
View file

@ -0,0 +1,3 @@
csrt=:2 :0
(+/@(=/) # ])&(m+i.n-m)
)

2
Task/Sorting-algorithms-Counting-sort/J/sorting-algorithms-counting-sort-6.j Normal file
View file

@ -0,0 +1,2 @@
(_3 csrt 17) a
_3 _2 _2 _1 _1 _1 0 1 1 3 3 4 4 4 4 4 5 5 6 6