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
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Knuth-shuffle/Applesoft-BASIC/knuth-shuffle.basic Normal file
View file

@ -0,0 +1,13 @@
100 :
110 REM KNUTH SHUFFLE
120 :
130 DIM A(25)
140 FOR I = 1 TO 25
150 A(I) = I: PRINT A(I);" ";: NEXT I
160 PRINT : PRINT
170 FOR I = 25 TO 2 STEP - 1
180 J = INT ( RND (1) * I + 1)
190 T = A(I):A(I) = A(J):A(J) = T: NEXT I
200 FOR I = 1 TO 25
210 PRINT A(I);" ";: NEXT I
220 END