June 2018 Update

Task/Knuth-shuffle/BASIC/knuth-shuffle-2.basic

@@ -1,14 +1,13 @@
- 10 RAND
- 20 LET A$=""
- 30 FOR I=1 TO 26
- 40 LET A$=A$+CHR$ (37+I)
- 50 NEXT I
- 60 PRINT A$
- 70 FOR I=26 TO 2 STEP -1
- 80 LET J=1+INT (RND*I)
- 90 LET T$=A$(I)
-100 LET A$(I)=A$(J)
-110 LET A$(J)=T$
-120 PRINT AT 0,I-1;CHR$ (CODE A$(I)+128)
-130 PRINT AT 0,J-1;CHR$ (CODE A$(J)+128)
-140 NEXT I
+ 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