20 lines
456 B
Plaintext
20 lines
456 B
Plaintext
10 FOR n=1 TO 6
|
|
20 READ w$
|
|
30 GO SUB 1000
|
|
40 LET count=0
|
|
50 FOR i=1 TO LEN w$
|
|
60 IF w$(i)=b$(i) THEN LET count=count+1
|
|
70 NEXT i
|
|
80 PRINT w$;" ";b$;" ";count
|
|
90 NEXT n
|
|
100 STOP
|
|
1000 REM Best shuffle
|
|
1010 LET b$=w$
|
|
1020 FOR i=1 TO LEN b$
|
|
1030 FOR j=1 TO LEN b$
|
|
1040 IF (i<>j) AND (b$(i)<>w$(j)) AND (b$(j)<>w$(i)) THEN LET t$=b$(i): LET b$(i)=b$(j): LET b$(j)=t$
|
|
1110 NEXT j
|
|
1120 NEXT i
|
|
1130 RETURN
|
|
2000 DATA "abracadabra","seesaw","elk","grrrrrr","up","a"
|