Mr.ǥ
5ŤĤ¤ϰ֤򤯤٥Ȥˤϱǡ102252̤
Τ
Ʊ֤ˤʤΤϡȡ2̤...ϲžƱ(¼1̤
¾252-2=250
ȤΤʤˤϲžƱˤʤΤ10̤եޥΥǼ¼250/1025̤
äơ21+2526(̤ˡȤޤ
1230ڡ 0:15:25 51141

5Ĥ̤Ȥˤޤ޿Ƥޤ
1+1+1+1+1 1̤
1+1+1+2 4̤
1+1+3 6̤
1+2+2 6̤
1+4 4̤
2+3 4̤
5 1̤
1230ڡ 0:16:22 51142
鯤ο
51142

ƱǤ

1230ڡ 0:18:50 51143

#51141
ʤۤɤǤ͡
ޤ޿ʤƤ褫äǤ͡
1230ڡ 0:19:03 51144
٥륯åĥ
51̤
414̤
324̤
3116̤
2216̤
21114̤
ߢ1̤
ƻĴ٤26̤ˤʤޤ
1230ڡ 0:19:28 51145
Ȥ(8)
ƻ˿夲
¤
֣Ģ̤
֣ġĢ̤
֣ġĢ̤Ʊ
֣&1ġĢ6̤
֣&ġĢ̤Ʊ
֣&ġġĢ4̤
֣&ġġĢ̤

֥륫Ȥ桹鷺
̸޻ԡ 1230ڡ 0:41:53 51146
ߤ
򤬸礦Τ̤ꤢ뤫ǾʬΤĤ꤬ޤ

ʤ򤬸ʤߤǣ̤
ʤ򤬣Ȥ礦
оμ¦˻Ĥ򣳤Ģ̤
оμξ¦ˣĤȣĤʬ뢪̤
ʤ򤬣ȸ礦̤

ȤʤäΤɡɤΤ
1230ڡ 1:46:06 51147
SECOND
!(BASIC) ȥߤĤ֤ǡ̤ꤷФʤɤХ

DIM m(2^10)
FOR i=BVAL("0000011111",2) TO BVAL("1111100000",2)
LET w=i
LET b=0
FOR j=1 TO 10 !bit=1η׿
IF 0< MOD(w,2) THEN LET b=b+1
LET w=INT(w/2)
NEXT j
IF b=5 AND chk(i)=0 THEN
LET n=n+1
PRINT USING"!###) ##########":n,right$("00000"& BSTR$(i,2),10)
END IF
NEXT i

FUNCTION chk(w) !ƥ10̤ǽʣå
LET r=0
FOR j=1 TO 10
IF 0< m(w) THEN LET r=r+1 ELSE LET m(w)=w
IF 0< MOD(w,2) THEN LET w=w+2^10
LET w=INT(w/2)
NEXT j
LET chk=r
END FUNCTION

END

! 1) 0000011111
! 2) 0000101111
! 3) 0000110111
! 4) 0000111011
! 5) 0000111101
! 6) 0001001111
! 7) 0001010111
! 8) 0001011011
! 9) 0001011101
! 10) 0001100111
! 11) 0001101011
! 12) 0001101101
! 13) 0001110011
! 14) 0001110101
! 15) 0001111001
! 16) 0010010111
! 17) 0010011011
! 18) 0010011101
! 19) 0010100111
! 20) 0010101011
! 21) 0010101101
! 22) 0010110011
! 23) 0010110101
! 24) 0011001101
! 25) 0011010101
1230ڡ 2:53:43 51148

äȲäƿѤ2,4,6,8,10
㤨6Ѥ硢5Ĥ(1,1,3)(1,3,1)(3,1,1)(1,2,2)(2,1,2)(2,2,1)3Ĥʬ롣
1ĤˤƹߤȤ߹碌
6ߣ=̤Ȥε3սꤢꡢޤʬ٤Ʊ(㤨10󿧤Ѥ5Ĥ(1,1,1,1,1)ʬ뤿ᡢѤäƤƱˤʤ)ǤϤʤΤ3ʣƤΤǡ663=12̤ꡣ
üޤޤΤ褦ˤ
11+442+663+444+11=26̤ꡣ

ޥ͡͡ǯ⤢꤬Ȥޤ
1230ڡ 2:57:50 51149
ֿء׾ι
5¤٤Ƥơ֤֤褦ˤȡ5Ĥ
(11111)(1112)(122)(113)(23)(14)(5)
θĿʬ䤬ǤΤǡƾ¤ޤ

ǯ꤬֡Ȥޤ
ǯ⵹ꤤޤ
1230ڡ 4:10:06 51150
SECOND
!#51148 (BASIC) äѤХǤʲǤ̤ꡢפưʤ

DIM m(2^10)
FOR i=BVAL("0000011111",2) TO BVAL("1111100000",2)
LET w=i
LET b=0
FOR j=1 TO 10 !bit=1η׿
IF 0< MOD(w,2) THEN LET b=b+1
LET w=INT(w/2)
NEXT j
IF b=5 AND chk(i)=0 THEN
LET n=n+1
PRINT USING"!###) ##########":n,right$("00000"& BSTR$(i,2),10)
END IF
NEXT i

FUNCTION chk(w) !ƥ10̤ǽʣå
LET r=0
LET w1=w !ɲ
FOR j=1 TO 10
IF 0< m(w) THEN LET r=r+1 ELSE LET m(w)=w
IF 0< MOD(w,2) THEN LET w=w+2^10
LET w=INT(w/2)
IF w=w1 THEN EXIT FOR !ɲ
NEXT j
LET chk=r
END FUNCTION

END

! 1) 0000011111
! 2) 0000101111
! 3) 0000110111
! 4) 0000111011
! 5) 0000111101
! 6) 0001001111
! 7) 0001010111
! 8) 0001011011
! 9) 0001011101
! 10) 0001100111
! 11) 0001101011
! 12) 0001101101
! 13) 0001110011
! 14) 0001110101
! 15) 0001111001
! 16) 0010010111
! 17) 0010011011
! 18) 0010011101
! 19) 0010100111
! 20) 0010101011
! 21) 0010101101
! 22) 0010110011
! 23) 0010110101
! 24) 0011001101
! 25) 0011010101
! 26) 0101010101
1230ڡ 5:13:31 51151
̴
#51142
졼ͤƱͤ˲򤭤ޤ
ޥ͡ǯѤäˤʤޤ٤
ǯ⵹ꤤ夲ޤ
ٻΤ桡 1230ڡ 7:09:23 51152
ߤ뤯
С󥵥ɤ
(252+0+2+0+2+0+2+0+2+0)/20
1230ڡ 17:08:10 51153
ߤ뤯
ΤǤְ㤤Ǥ
(252+0+2+0+2+0+2+0+2+0)/10=26
1230ڡ 17:09:54 51154
June
Ǥ
1230ڡ 21:57:57 51155
ǯ
#51141Mr.ǥ
Ĥʤ䤫ʲǴƤޤ
ϴְ㤤Ĥ10c2-25210C5=252Ǥ礦
ĤȰ㤦ΤǡĴΤǤ...
1230ڡ 23:25:18 51156
Mr.ǥ
#51156 ǯԤ
֤ĤȰ㤦ΤǡĴΤǤ...
꤬Ȥޤ
ĴҤϤɤⰭޤǤѤʤȤΥ򲡤褦
ʸƤΤ˵դƤޤäƤޤ
ʵνǤʤ֤ʤΤǡΤޤޤˤƤᤴۤ򤪤Ƥޤޤ
1231ʶ 0:56:12 51157
SECOND
ޥ뤵ޡ
顢Ĥ ꤬Ȥޤ
ǤäˤʤäƤʬǡĤޤ¤ǤΤ褦ˡפ͡ľĺʤǤ礦
#51151 ΥꥹȤ⡢ʲ˼ؤΤǤޤ˽Ĥ˹᤮ƽޤ

FUNCTION chk(w) ! ˽Ťʤޤ ƥȡʣå
LET r=0
DO
IF 0< m(w) THEN LET r=r+1 ELSE LET m(w)=w
IF 0< MOD(w,2) THEN LET w=w+2^10
LET w=INT(w/2)
LOOP UNTIL w=i !ᥤ¦ (i) ˽Ťʤнλ
LET chk=r
END FUNCTION
12 13:45:50 51158