|
hide |
|
原点なら３２通り
原点→Ｐなら２１通り ……（泣 何回やっても合わないのでプログラムに頼ってしまった 100 N=0 110 DIM P(3) 120 FOR A=1 TO 6 130 FOR B=1 TO 6 140 FOR C=1 TO 6 150 P(1)=A 160 P(2)=B 170 P(3)=C 180 X=1 190 Y=0 200 FOR K=1 TO 3 210 IF P(K)>4 THEN 220 T=X 230 X=Y*(-1)^P(K) 240 Y=-T*(-1)^P(K) 250 GOTO 320 260 END IF 270 IF P(K)>2 THEN 280 Y=Y+(-1)^P(K) 290 GOTO 320 300 END IF 310 X=X+(-1)^P(K) 320 NEXT K 330 IF X=1 AND Y=0 THEN 340 N=N+1 350 END IF 360 NEXT C 370 NEXT B 380 NEXT A 390 PRINT N 400 END |
|
アリアハン
4月20日（金） 18:34:22
39259 |