|
ミキティ |
|
なんと、邪道な方法をされた方が私以外にも（
↓スリムではありませんが。 100 s=0 110 for a12=0 to 1 120 for a13=0 to 1 130 for a14=0 to 1 140 for a15=0 to 1 150 for a23=0 to 1 160 for a24=0 to 1 170 for a25=0 to 1 180 for a34=0 to 1 190 for a35=0 to 1 200 for a45=0 to 1 210 w1=0 220 w2=0 230 w3=0 240 w4=0 250 w5=0 310 if a12=0 then w1=w1+1 320 if a13=0 then w1=w1+1 330 if a14=0 then w1=w1+1 340 if a15=0 then w1=w1+1 350 if a23=0 then w2=w2+1 360 if a24=0 then w2=w2+1 370 if a25=0 then w2=w2+1 380 if a34=0 then w3=w3+1 390 if a35=0 then w3=w3+1 400 if a45=0 then w4=w4+1 410 if a12=1 then w2=w2+1 420 if a13=1 then w3=w3+1 430 if a14=1 then w4=w4+1 440 if a15=1 then w5=w5+1 450 if a23=1 then w3=w3+1 460 if a24=1 then w4=w4+1 470 if a25=1 then w5=w5+1 480 if a34=1 then w4=w4+1 490 if a35=1 then w5=w5+1 500 if a45=1 then w5=w5+1 510 if (w1-4)*(w2-4)*(w3-4)*(w4-4)*(w5-4)=0 then goto 610 520 if w1*w2*w3*w4*w5=0 then goto 610 530 s=s+1 610 next a45 620 next a35 630 next a34 640 next a25 650 next a24 660 next a23 670 next a15 680 next a14 690 next a13 700 next a12 710 print s 720 end |
|
11月8日（木） 10:09:16
HomePage:みきこむ 31118 |