|
SECOND |
|
! #49522 algebra さんのアルゴリズムを 十進BASIC で＜１０ｍｓ
!右から始めて上に終る、又は、上から始めて右に終る 〇 往復。 !右から始めて右に終る、又は、上から始めて上に終る × 不可。 !一段上がるのに、４通りが３段(y1,y2,y3)、最短距離(y1≦y2≦y3) !帰り道(w1,w2,w3) この条件で y と w が接触しない「シラミ潰し」 !------------------------------------------ FOR y1=2 TO 4 FOR y2=y1 TO 4 LET y3=4 !-- PRINT "! 行き 帰り" LET w1=1 FOR w2=1 TO MIN(y1,y2)-1 FOR w3=w2 TO MIN(y2,y3)-1 LET n=n+1 PRINT USING"!###) # # # # # #": n,y1,y2,y3 ,w1,w2,w3 NEXT w3 NEXT w2 !-- NEXT y2 NEXT y1 PRINT "! 行き帰りを逆にして２倍＝";n*2 |
|
9月10日（木） 19:03:55
49544 |