|
SECOND |
|
DIM a(7)
DATA 1,2,3,4,5,6,0,0 MAT READ a CALL perm20(1) !十進BASICで、1〜6 順列の展開 P(6,6) SUB perm20(k) local i IF k< 6 THEN FOR i=k TO 6 swap a(k),a(i) CALL perm20(k+1) swap a(k),a(i) NEXT i ELSE FOR j=1 TO 6 IF a(a(j))<>j THEN EXIT SUB ! 対称でない、除く NEXT j LET a(7)=a(7)+1 MAT PRINT USING "! <<<<<< No_###": a END IF END SUB END ! 123456 No_ 1 ! 123465 No_ 2 ! （ ! ） ! 653421 No_ 75 ! 654321 No_ 76 |
|
7月29日（金） 2:09:31
51712 |