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

11
Task/Sorting-algorithms-Radix-sort/J/sorting-algorithms-radix-sort-1.j Normal file
View file

@ -0,0 +1,11 @@
radixSortR =: 3 : 0 NB. base radixSort data
16 radixSortR y
:
keys =. x #.^:_1 y NB. compute keys
length =. #{.keys
extra =. (-length) {."0 buckets =. i.x
for_pass. i.-length do.
keys =. ; (buckets,pass{"1 keys) <@:}./.extra,keys
end.
x#.keys NB. restore the data
)

1
Task/Sorting-algorithms-Radix-sort/J/sorting-algorithms-radix-sort-2.j Normal file
View file

@ -0,0 +1 @@
radixsort=: (] #~ [: +/ =/) i.@(>./)

2
Task/Sorting-algorithms-Radix-sort/J/sorting-algorithms-radix-sort-3.j Normal file
View file

@ -0,0 +1,2 @@
radixsort ?.@#~10
4 5 6 6 6 6 6 8 8

1
Task/Sorting-algorithms-Radix-sort/J/sorting-algorithms-radix-sort-4.j Normal file
View file

@ -0,0 +1 @@
rsort=: (] + radixsort@:-) <./

2
Task/Sorting-algorithms-Radix-sort/J/sorting-algorithms-radix-sort-5.j Normal file
View file

@ -0,0 +1,2 @@
rsort _6+?.@#~10
_2 _1 0 0 0 0 0 2 2