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

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