٥륯åĥ
74Ϣ³ʤ褦ФΤǡ8꤫4
87654321ˡ70Ȥʤޤ
ǤϴδܤǤ͡
310ڡ 0:04:28 51338
Ȥ
Basic

FOR a=0 TO 1
FOR b=0 TO 1
IF a=0 AND b=0 THEN GOTO 100
FOR c=0 TO 1
IF b=0 AND c=0 THEN GOTO 90
FOR d=0 TO 1
IF c=0 AND d=0 THEN GOTO 80
FOR e=0 TO 1
IF d=0 AND e=0 THEN GOTO 70
FOR f=0 TO 1
IF e=0 AND f=0 THEN GOTO 60
FOR g=0 TO 1
IF f=0 AND g=0 THEN GOTO 50
FOR h=0 TO 1
IF g=0 AND h=0 THEN GOTO 40
FOR i=0 TO 1
IF h=0 AND i=0 THEN GOTO 30
FOR j=0 TO 1
IF i=0 AND j=0 THEN GOTO 20
FOR k=0 TO 1
IF j=0 AND k=0 THEN GOTO 10
IF a+b+c+d+e+f+g+h+i+j+k=7 THEN LET s=s+1
10 NEXT k
20 NEXT j
30 NEXT i
40 NEXT h
50 NEXT g
60 NEXT f
70 NEXT e
80 NEXT d
90 NEXT c
100 NEXT b
110 NEXT a
PRINT s
END

f9ơ70()
˭ԡ 310ڡ 0:08:01 MAIL:fttnm528@ybb.ne.jp 51339
ǯ
8C470
ڥ󤬥ڤ졪̤Τõƻ֤
310ڡ 0:08:34 51340
ߤ
֡Ρ˾򣴤פ
ͤФ褤
Ĥ椫飴Ȥ߹碌ʤΤǡ
ʣߣߣߣˡʣߣߣߣˡ᣷̤ꡣ

#51338
ƻ礬̤ꡩϻȡ޾˺Ȳο­ƤΤ
Ū⡣äˡ֤֤̹ԻߤפȤѥ­
¿ʬᤤ
310ڡ 0:20:34 51341
Mr.ǥ
ľ˵̲ʺФǤ͡ˤ10ʬ٤dzϡ
ʥפäǰ

׻ϳƱ8C4=70
310ڡ 0:22:10 51342
鯤ο
餯򤷤Ƥޤޤ

abcde

a,b,c,d,e
0a,e7
1b,c,d7
a+b+c+d+e7
ξοޤ
310ڡ 0:40:40 51343
٥륯åĥ
#51341
פܤ¤񤤤Ƥˡ֤Ǥ͡984󤬤Ǥ
Ф¤٤ʤΤǡˡϻȤʤΤǤϤʤǤ礦
310ڡ 1:37:56 51344
ֿء׾ι
8C4ǵޤ
310ڡ 2:10:41 51345
ֿء׾ι
[롼룳]˿ʤ˿ʤĶ뤳ȤϤʤ
դäȡ
310ڡ 2:31:58 51346
ߤ
#51344
޾˽񤯤ȤʤС֤ȡʤʤ᲼ιספȤУϣˤǤ
ºݤ˽񤤤ƤߤȤʴɡΤʤȻפĤʤǤ礦





310ڡ 2:38:02 51347
(Keigei)
Ʊ褦꤬ޤ
https://okayadokary.blog.fc2.com/blog-entry-4232.html
310ڡ 4:45:56 51348

#51347 ߤ󤵤Ʊͤ˥ޥܤ˿񤭹ߤޤ+ιפ񤤤Ƥޤ
310ڡ 6:19:47 51349
٥륯åĥ
#51347
ʤۤɡȾ򥻥åȤˤƤǤ͡
ǤʤΤȻפǤޤ
ٶˤʤޤ
310ڡ 6:46:48 51350
̴
Ǥ3Ϣ³䣴Ϣ³ϣϢ³ʤ
ʤΤǤδδܤ֤ˤ
ΣɤΤȷĤƤꡢä
é失ޤǤȥۥۤǤ
ٻΤ桡 310ڡ 8:26:25 51351
Ȥ
#51348
ץǤȰʲǽBasic

print time$
for a1=0 to 1
for a2=0 to 1
if a1=0 and a2=0 then goto 430
for a3=0 to 1
if (a2=0 and a3=0) or (a1=1 and a2=1 and a3=1) then goto 420
for a4=0 to 1
if (a3=0 and a4=0) or (a2=1 and a3=1 and a4=1) then goto 410
for a5=0 to 1
if (a4=0 and a5=0) or (a3=1 and a4=1 and a5=1) then goto 400
for a6=0 to 1
if (a5=0 and a6=0) or (a4=1 and a5=1 and a6=1) then goto 390
for a7=0 to 1
if (a6=0 and a7=0) or (a5=1 and a6=1 and a7=1) then goto 380
for a8=0 to 1
if (a7=0 and a8=0) or (a6=1 and a7=1 and a8=1) then goto 370
for a9=0 to 1
if (a8=0 and a9=0) or (a7=1 and a8=1 and a9=1) then goto 360
for a10=0 to 1
if (a9=0 and a10=0) or (a8=1 and a9=1 and a10=1) then goto 350
for a11=0 to 1
if (a10=0 and a11=0) or (a9=1 and a10=1 and a11=1) then goto 340
for a12=0 to 1
if (a11=0 and a12=0) or (a10=1 and a11=1 and a12=1) then goto 330
for a13=0 to 1
if (a12=0 and a13=0) or (a11=1 and a12=1 and a13=1) then goto 320
for a14=0 to 1
if (a13=0 and a14=0) or (a12=1 and a13=1 and a14=1) then goto 310
for a15=0 to 1
if (a14=0 and a15=0) or (a13=1 and a14=1 and a15=1) then goto 300
for a16=0 to 1
if (a15=0 and a16=0) or (a14=1 and a15=1 and a16=1) then goto 290
for a17=0 to 1
if (a16=0 and a17=0) or (a15=1 and a16=1 and a17=1) then goto 280
for a18=0 to 1
if (a17=0 and a18=0) or (a16=1 and a17=1 and a18=1) then goto 270
for a19=0 to 1
if (a18=0 and a19=0) or (a17=1 and a18=1 and a19=1) then goto 260
for a20=0 to 1
if (a19=0 and a20=0) or (a18=1 and a19=1 and a20=1) then goto 250
for a21=0 to 1
if (a20=0 and a21=0) or (a19=1 and a20=1 and a21=1) then goto 240
for a22=0 to 1
if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22=>22 then goto 230
if (a21=0 and a22=0) or (a20=1 and a21=1 and a22=1) then goto 230
FOR a23=0 TO 1
if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23=>23 then goto 220
if (a22=0 and a23=0) or (a21=1 and a22=1 and a23=1) then goto 220
FOR a24=0 TO 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24=>24 THEN GOTO 210
if (a23=0 and a24=0) or (a22=1 and a23=1 and a24=1) then goto 210
for a25=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25=>24 THEN GOTO 200
if (a24=0 and a25=0) or (a23=1 and a24=1 and a25=1) then goto 200
for a26=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26=>24 THEN GOTO 190
if (a25=0 and a26=0) or (a24=1 and a25=1 and a26=1) then goto 190
for a27=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27=>24 THEN GOTO 180
if (a26=0 and a27=0) or (a25=1 and a26=1 and a27=1) then goto 180
for a28=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28=>24 THEN GOTO 170
if (a27=0 and a28=0) or (a26=1 and a27=1 and a28=1) then goto 170
for a29=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29=>24 THEN GOTO 160
if (a28=0 and a29=0) or (a27=1 and a28=1 and a29=1) then goto 160
for a30=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30=>24 THEN GOTO 150
if (a29=0 and a30=0) or (a28=1 and a29=1 and a30=1) then goto 150
for a31=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31=>24 THEN GOTO 140
if (a30=0 and a31=0) or (a29=1 and a30=1 and a31=1) then goto 140
for a32=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32=>24 THEN GOTO 130
if (a31=0 and a32=0) or (a30=1 and a31=1 and a32=1) then goto 130
for a33=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33=>24 THEN GOTO 120
if (a32=0 and a33=0) or (a31=1 and a32=1 and a33=1) then goto 120
for a34=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34=>24 THEN GOTO 110
if (a33=0 and a34=0) or (a32=1 and a33=1 and a34=1) then goto 110
for a35=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35=>24 THEN GOTO 100
if (a34=0 and a35=0) or (a33=1 and a34=1 and a35=1) then goto 100
for a36=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36=>24 THEN GOTO 90
if (a35=0 and a36=0) or (a34=1 and a35=1 and a36=1) then goto 90
for a37=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37=>24 THEN GOTO 80
if (a36=0 and a37=0) or (a35=1 and a36=1 and a37=1) then goto 80
for a38=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38=>24 THEN GOTO 70
if (a37=0 and a38=0) or (a36=1 and a37=1 and a38=1) then goto 70
for a39=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39=>24 THEN GOTO 60
if (a38=0 and a39=0) or (a37=1 and a38=1 and a39=1) then goto 60
for a40=0 to 1
if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40=>24 then goto 50
if (a39=0 and a40=0) or (a38=1 and a39=1 and a40=1) then goto 50
for a41=0 to 1
IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41=>24 THEN GOTO 40
if (a40=0 and a41=0) or (a39=1 and a40=1 and a41=1) then goto 40
for a42=0 to 1
if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42=>24 then goto 30
IF (a41=0 AND a42=0) or (a40=1 and a41=1 and a42=1) THEN GOTO 30
for a43=0 to 1
if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43=>24 then goto 20
if (a42=0 and a43=0) or (a41=1 and a42=1 and a43=1) then goto 20
for a44=0 to 1
if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44=>24 then goto 10
if (a43=0 and a44=0) or (a42=1 and a43=1 and a44=1) then goto 10
if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44=23 then let s=s+1
10 next a44
20 next a43
30 next a42
40 next a41
50 next a40
60 next a39
70 next a38
80 next a37
90 next a36
100 next a35
110 next a34
120 next a33
130 next a32
140 next a31
150 next a30
160 next a29
170 next a28
180 next a27
190 next a26
200 next a25
210 next a24
220 next a23
230 next a22
240 next a21
250 next a20
260 next a19
270 next a18
280 next a17
290 next a16
300 next a15
310 next a14
320 next a13
330 next a12
340 next a11
350 next a10
360 next a9
370 next a8
380 next a7
390 next a6
400 next a5
410 next a4
420 next a3
430 next a2
440 next a1
print s
PRINT TIME$
END

f9ơ
16:49:27
1582
16:49:30

2022ǯ223򤷤ޤ
ץǤʤˡ(ϩΥ礭ƤǤ)򤷤ޤ
ץǤˡ񤤤ƤƼ¹Ի֤3((2)(1)ϤäȻ֤)
ADSLǤΥ󥿡ͥåȤ(331)ΤǤ
˿Τ39Ǻ46˳̹Ǵ֤˹鷺!!
˸Υ󥿡ͥå⤬ADSL(50ᥬ)2ܤ
(äʹǤ褯狼ʤ)ۤǡ
˭ԡ 310ڡ 17:07:06 MAIL:fttnm528@ybb.ne.jp 51352
ֿء׾ι
#51336 ߤ󤵤
¡ȯŸϤȻפޤۤȤ˽ꤷƤߤǤ͡

ơߤƤơ칩礬ɤФƤȻפޤ
ߤʤ󡢤⤦ˤʤޤ
311ʶ 6:55:05 51353
ֿء׾ι
#51352ңץǤäƤߤޤƵƤӽФȤäơ

1203ʣˤg1ǡʣˤg2δؿǤ

$u=21;$r=23;$c1=0;$c2=0

def g1(a,b,k,l)
if a==$u&&b==$r then $c1=$c1+1
else if a<$u then;if l!=1 then g1(a+1,b,l,1)end end
if b<$r then g1(a,b+1,l,2)end end
end

def g2(a,b,k,l)
if a==$u&&b==$r then $c2=$c2+1
else if a<$u then;if l!=1 then g2(a+1,b,l,1)end end
if b<$r then;if k+l!=4 then g2(a,b+1,l,2)end end end
end

p Time.now;g1(0,0,0,0);p Time.now;p $c1
p Time.now;g2(0,0,0,0);p Time.now;p $c2

ǡ̤
08:42:52.2405349
08:42:56.6741753
2024

08:42:56.6754296
08:42:56.7551062
1582

Ǥ
311ʶ 9:01:25 51354
ߤ
#51353
äƲʸ#51336ˤɤǤߤȡȸǥ
Ф⡢ʸɽ٤ĴʤɤѤܤ
ͭ̾ȤʤȶĥǤ礦͡βǤꤢä
Ȥ#38910ʹߡǯˡ

ʣˤ
ܥåȤϺǽˤä֤äƤޤ
ȤɡưƤʤΤϡäơפǤϤʤǤ͡ϸ
ʤ褦ˡ֥ܥåȤϥˤޤפȤ٤Ǥ

ʣˤǤϿʤޥιפǤϤʤñˡɽФפ䤨Ф褫ä

ʣˤ
Ųߤ򲿲ꤲȤܥåȤϥˤޤ
ʲξ򤹤٤ܥåȤʤƻڤǹͤΤ٤Ƥ
˽񤭤ʤ򤹤٤ƻȤȤϸ¤ޤ
ξ
ɽǣФ
΢󤫽ФϢ³Ϥʤä
ܤɽФ


ʹʬ褦ɽˤ褦ʸ㼨ɤ
ޥɽΤñ
Ʊ֤ʣ̤βˡˤĤƤϻؼɬסդޥ
ѷ򣲼礬뤬ǡƱ֤򣲲ʾ̤ʤ
Ʊ̤ΤϲġˡפȤơоݤۤ⡣
ϣ̤ǣϣˡʣգѷΥѥ
311ʶ 18:15:19 51355
Ѥ
ܤ˿񤭹ǵޤȱΤ줾6Ƥõ8C3Ǵñ˵ޤΤǤ͡Ǽ
313 11:52:06 51356
Ф
#51345#51340
8C4Ƚ񤤤ƤͤΤ򸫤ơ֤Ϥơפȹͤ뤳ȿʬ
դޤǤ¤˾𤱤ʤ
ĤĤ4ĤȤ߹碌Ǥ͡

βޤ꤯ɤ
1ܤĤλĤ˹ԤΤ˹ԤΤȽ񤯤
yt4Ĥy3ĤȤ߹碌(ytϲĤȽựyϲựˤ7C335̤
1ܤλƱͤy4Ĥyt3ĤȤ߹碌7C3=35
碌70̤ˤʤޤ
313 23:39:30 51357
ֿء׾ι
#51354ѿȤʤǡΥ᥽åɤǺƵƤӽФ򤹤褦ˤơ򡣼Τ褦ˤȻפޤ

u=4;r=7;c=0

g=->(a,b,k,l)do if a==u&&b==r then c=c+1
else if a<u then if l!=1 then g.call(a+1,b,l,1)end end
if b<r then g.call(a,b+1,l,2)end end end

g.call(0,0,0,0)
p c

314ʷ 9:43:31 51358
ֿء׾ι
#51354 ֥饦ǻȤBASICץȡʥwwwBasicˤhtmlեˤƤߤȡ
<html>
<head>
<script src="https://google.github.io/wwwbasic/wwwbasic.js"></script>
<script type="text/basic">

declare function f(a,b,k)

screen 11
c=0:u=21:r=23
f=f(0,0,0):print c
end

function f(a,b,k)
if a=u and b=r then:c=c+1
else
if a<u and k<>1 then:f=f(a+1,b,1):end if
if b<r then:f=f(a,b+1,2):end if
end if
f=0
end function

</script>
</head>
</html>

ä֤ΤǡɽޤǣäۤԤäƤƤ
316ʿ 15:22:13 51359
ޤ륱
Ƕ˻äơäƤ櫓Ǥ
ʤ顢äȥ饤ʡޤ

11ʤद˿ʤΤϲܤ
οϢ³ƤΤǤ

٤ɤǤκˡäȰ㤦ΤꤽǤ

p 11.times.to_a.combination(4).map{|a|a[0..-2].zip(a[1..-1]).map{|i,j|j-i}}.count{|c|!c.include?(1)}
316ʿ 23:07:47 MAIL:take4310@mobile.email.ne.jp 51360
鯤ο
Ͽ̤ŤƤ롣ϥޥۡ
316ʿ 23:54:02 51361