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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Knuth-shuffle/J/knuth-shuffle-1.j Normal file
View file

@ -0,0 +1 @@
KS=:{~ (2&{.@[ {`(|.@[)`]} ])/@(,~(,.?@>:))@i.@#

12
Task/Knuth-shuffle/J/knuth-shuffle-10.j Normal file
View file

@ -0,0 +1,12 @@
]M=: /:~(1 2 3,:2 3 4),(11 2 3,: 0 11 2),(1 1 1,:1 0),:1 1 1,:1 0 1
1 1 1
1 0 0
1 1 1
1 0 1
1 2 3
2 3 4
11 2 3
0 11 2

12
Task/Knuth-shuffle/J/knuth-shuffle-11.j Normal file
View file

@ -0,0 +1,12 @@
KS M
11 2 3
0 11 2
1 1 1
1 0 1
1 1 1
1 0 0
1 2 3
2 3 4

4
Task/Knuth-shuffle/J/knuth-shuffle-12.j Normal file
View file

@ -0,0 +1,4 @@
]L=:'aA';'bbB';'cC%$';'dD@'
+--+---+----+---+
|aA|bbB|cC%$|dD@|
+--+---+----+---+

4
Task/Knuth-shuffle/J/knuth-shuffle-13.j Normal file
View file

@ -0,0 +1,4 @@
KS L
+--+----+---+---+
|aA|cC%$|dD@|bbB|
+--+----+---+---+

1
Task/Knuth-shuffle/J/knuth-shuffle-14.j Normal file
View file

@ -0,0 +1 @@
({~?~@#)

20
Task/Knuth-shuffle/J/knuth-shuffle-15.j Normal file
View file

@ -0,0 +1,20 @@
({~?~@#) A
8 7 13 6 10 11 5 9 12
({~?~@#) M
1 1 1
1 0 1
1 2 3
2 3 4
11 2 3
0 11 2
1 1 1
1 0 0
({~?~@#) L
+----+---+--+---+
|cC%$|bbB|aA|dD@|
+----+---+--+---+

3
Task/Knuth-shuffle/J/knuth-shuffle-2.j Normal file
View file

@ -0,0 +1,3 @@
process J
fold swap transform array <==> f / g y

8
Task/Knuth-shuffle/J/knuth-shuffle-3.j Normal file
View file

@ -0,0 +1,8 @@
(,~(,.?@>:))@i.@# 1+i.6
0 0 0 0 0 0
1 1 0 0 0 0
2 0 0 0 0 0
3 2 0 0 0 0
4 3 0 0 0 0
5 0 0 0 0 0
0 1 2 3 4 5

1
Task/Knuth-shuffle/J/knuth-shuffle-4.j Normal file
View file

@ -0,0 +1 @@
2&{.@[ {`(|.@[)`]} ]

1
Task/Knuth-shuffle/J/knuth-shuffle-5.j Normal file
View file

@ -0,0 +1 @@
input { ~ shuffled indexes

4
Task/Knuth-shuffle/J/knuth-shuffle-6.j Normal file
View file

@ -0,0 +1,4 @@
(|.@; ;&~./@(,. ?@>:)@i.@#)'abcde'
+---+-+---+---+-+-----+
|4 2|3|2 1|1 0|0|abcde|
+---+-+---+---+-+-----+

1
Task/Knuth-shuffle/J/knuth-shuffle-7.j Normal file
View file

@ -0,0 +1 @@
KS=: [: > (<@C. >)/@(|.@; ;&~./@(,. ?@>:)@i.@#)

2
Task/Knuth-shuffle/J/knuth-shuffle-8.j Normal file
View file

@ -0,0 +1,2 @@
]A=: 5+i.9
5 6 7 8 9 10 11 12 13

2
Task/Knuth-shuffle/J/knuth-shuffle-9.j Normal file
View file

@ -0,0 +1,2 @@
KS A
13 10 7 5 11 9 8 6 12