|
SECOND |
|
!まとめの表を、作ってみました。全体の 44 個は、0〜9 から「異なる８個」の条件だけです。（所要時間は20年前のノート）
! 右辺 既約分数 の条件は強く、５個しか残らず、 ! 新しい題意に合うのは１つ ! 14539078 …6と2を含まず。右辺 既約分数 No_ 8 4.06sec 掲示板に入れない？ ! 掲示板に入れるのは、 ! 18957342 …0と6を含まず。右辺…約分可 No_17 5.58sec ですが、右辺 既約分数でない ! 58910270 …0が２つなのに掲示板に入れる？ ! 12748056 …3と9を含まず。右辺…約分可 No_ 1 3.49sec ! 12796048 …5と3を含まず。右辺…約分可 No_ 2 3.52sec ! 12984063 …7と5を含まず。右辺…約分可 No_ 3 3.59sec ! 13426078 …5と9を含まず。右辺…約分可 No_ 4 3.69sec ! 13672048 …5と9を含まず。右辺…約分可 No_ 5 3.80sec ! 13854072 …6と9を含まず。右辺…約分可 No_ 6 3.86sec ! 13872064 …5と9を含まず。右辺…約分可 No_ 7 3.88sec ! 14539078 …6と2を含まず。右辺 既約分数 No_ 8 4.06sec ! 14526390 …8と7を含まず。右辺…約分可 No_ 9 4.08sec ! 14678052 …3と9を含まず。右辺…約分可 No_10 4.14sec ! 15793062 …8と4を含まず。右辺 既約分数 No_11 4.52sec ! 15862093 …4と7を含まず。右辺 既約分数 No_12 4.55sec ! 15932864 …0と7を含まず。右辺…約分可 No_13 4.58sec ! 16743258 …0と9を含まず。右辺 既約分数 No_14 4.81sec ! 16945270 …8と3を含まず。右辺…約分可 No_15 4.91sec ! 16942378 …0と5を含まず。右辺…約分可 No_16 4.91sec ! 18957342 …0と6を含まず。右辺…約分可 No_17 5.58sec ! 23716048 …5と9を含まず。右辺 既約分数 No_18 6.75sec ! 23918054 …7と6を含まず。右辺…約分可 No_19 6.84sec ! 24718063 …5と9を含まず。右辺…約分可 No_20 7.10sec ! 26834051 …7と9を含まず。右辺…約分可 No_21 7.78sec ! 27984036 …1と5を含まず。右辺…約分可 No_22 8.19sec ! 34709126 …8と5を含まず。右辺…約分可 No_23 10.00sec ! 34716028 …5と9を含まず。右辺…約分可 No_24 10.00sec ! 34956021 …8と7を含まず。右辺…約分可 No_25 10.09sec ! 35618027 …4と9を含まず。右辺…約分可 No_26 10.30sec ! 35712084 …6と9を含まず。右辺…約分可 No_27 10.35sec ! 35812096 …4と7を含まず。右辺…約分可 No_28 10.38sec ! 35916048 …7と2を含まず。右辺…約分可 No_29 10.42sec ! 36754018 …2と9を含まず。右辺…約分可 No_30 10.66sec ! 36714098 …2と5を含まず。右辺…約分可 No_31 10.67sec ! 36718042 …5と9を含まず。右辺…約分可 No_32 10.67sec ! 36918054 …7と2を含まず。右辺…約分可 No_33 10.75sec ! 36984021 …5と7を含まず。右辺…約分可 No_34 10.77sec ! 37815240 …6と9を含まず。右辺…約分可 No_35 11.05sec ! 37956024 …8と1を含まず。右辺…約分可 No_36 11.08sec ! 37921054 …8と6を含まず。右辺…約分可 No_37 11.11sec ! 45908216 …3と7を含まず。右辺…約分可 No_38 13.33sec ! 45912036 …8と7を含まず。右辺…約分可 No_39 13.35sec ! 46918027 …5と3を含まず。右辺…約分可 No_40 13.67sec ! 47812096 …5と3を含まず。右辺…約分可 No_41 13.97sec ! 57912036 …8と4を含まず。右辺…約分可 No_42 16.92sec ! 57984012 …3と6を含まず。右辺…約分可 No_43 16.92sec ! 58916027 …3と4を含まず。右辺…約分可 No_44 17.27sec !終了 29.16sec !作表に使用した十進BASICプログラム OPTION ARITHMETIC RATIONAL LET n=10 LET r=8 DIM a(n+2) DATA 0,1,2,3,4,5,6,7,8,9,0,0 MAT READ a LET t0=TIME CALL perm20(1) ! 0〜9 の10個から、8個の「順列」を展開する。 PRINT USING "!終了 ###.##sec":TIME-t0 SUB perm20(k) !start CALL perm20(1) local i IF k<=r THEN FOR i=k TO n swap a(k),a(i) CALL perm20(k+1) swap a(k),a(i) NEXT i ELSE LET w2=a(4)*10+a(5) LET w3=a(6)*100+a(7)*10+a(8) IF a(1)/6=a(2)/w2+a(3)/w3 AND a(2)< a(3) THEN LET a(11)=a(11)+1 LET a(12)=TIME-t0 IF gcd(a(2),w2)=1 AND gcd(a(3),w3)=1 THEN LET w$="右辺 既約分数" ELSE LET w$="右辺…約分可 " MAT PRINT USING "! <<<<<<<< …<と<を含まず。"& w$& " No_## ###.##sec": a END IF END IF END SUB END |
|
5月27日（金） 7:15:09
51570 |