ޥ
Ͽ޷ѰդƤΤǤȥ֥ꤷƤˡȤ̤ˡǴñ˲򤱤뤳ȤʬäƤޤä..ˤΤᡢޤ纹ؤ..轵Ȼ褦ǥߥޥm(__)m
Mac mini 1110ڡ 0:06:37 HomePage:Men@Work38546
Ȥ
basic󤵤ޤ

FOR a=1 TO 4
FOR b=1 TO 4
FOR c=1 TO 4
if a+b+c=10 then print a;b;c
FOR d=1 TO 4
IF a+b+c+d=10 THEN PRINT a;b;c;d
FOR e=1 TO 4
IF a+b+c+d+e=10 THEN PRINT a;b;c;d;e
FOR f=1 TO 4
IF a+b+c+d+e+f=10 THEN PRINT a;b;c;d;e;f
FOR g=1 TO 4
IF a+b+c+d+e+f+g=10 THEN PRINT a;b;c;d;e;f;g
FOR h=1 TO 4
IF a+b+c+d+e+f+g+h=10 THEN PRINT a;b;c;d;e;f;g;h
FOR i=1 TO 4
IF a+b+c+d+e+f+g+h+i=10 THEN PRINT a;b;c;d;e;f;g;h;i
FOR j=1 TO 4
IF a+b+c+d+e+f+g+h+i+j=10 THEN PRINT a;b;c;d;e;f;g;h;i;j
NEXT j
NEXT i
NEXT h
NEXT g
NEXT f
NEXT e
NEXT d
NEXT c
NEXT b
NEXT a
END

f9401̤
˭ԡ 1110ڡ 0:08:10 MAIL:fttnm528@ybb.ne.jp 38547
NY
̤οӤΥѥ򤽤줾夲ޤ
1110ڡ 0:15:41 38548
Υԡ
եܥʥåȥܥʥåƥȥʥå
1110ڡ 0:16:06 38549

ͤ˽񤭽Ф
55
541
532
5311
52111
511111
64
631
622
6211
61111
73
721
7111
82
811
91
10

¤ؤθ29512401
ְ㤨501äƤߤǽ̤äޤ
1110ڡ 0:16:21 38550
ߤ
¤ˤʤȤ߹碌ƻ˽񤭽ФȤ߹碌
̤¤뤫򣱤Ĥķ׻
ʣˢ̤
ʣˢ̤
ʣˢ̤
Ͼά
ʣˢ̤
ʣˢ̤
ʣˢ̤

ޤȤƤ
οξģ̤
οξģ̤
οξģ̤
Фäģ̤
ιף̤Ǥ

Ȥ׻ְ㤤ʤäΤϴŪ(^_^)
1110ڡ 1:07:53 38551
ͣ.ǥ
ߤ󤵤Ρ#38551ȤޤäƱˡǤ
ʤäȳڤˤǤʵ
1110ڡ 0:26:44 38552

#38551Ʊƻʲˡ

ʬ42Ĥξ硢1Ĥξ硢ʤʬƹͤޤ

42Ĥξ9̤
41Ĥξ118̤
4ʤ274̤

9+118+274=401(̤)

ƤǤϥȥߥ򤹤ΤǤ
ȯޤƳȤ䤹¤ʡˤˤʤäƤΤ
1110ڡ 0:29:49 38553
Υԡ
ư̤¤

1ܣᣲ̤
1ܣܣᣴ̤
1ܣܣܣ᣸̤
1ܣܣܣᣱ̤
2ܣܣ15ᣲ̤
4ܣ1529ᣵ̤
8152956ᣱ̤
152956108ᣲ̤
102956108208ᣴ̤
Ȥʤ4Ĥ­ƤƥȥܥåǤϡ
1110ڡ 0:35:42 38554
tomh
1,2,3,4ФȤä10ʾ뤳ȤƱǤ͡
դΤ٤ä (^^;
ԡ 1110ڡ 0:35:53 MAIL:tomh@yahoo.co.jp HomePage:H to M38555
ͤ
10ξ硡ξ硡ƻʺȤ򤷤ޤ
10̤
9C19
8C1+8C2=36
7C1+7C2*2+7C3=84
ʲά
1+9+36+84+120+101+44+6=401
ݤʤȤ򤷤Τϻorz
裲롼ס 1110ڡ 0:37:54 HomePage:38556
CRYING DOLPHIN
ǽ顢꤬ѤäƤʤȴ㤤ơ᤮Ƥ飵ʾ
Τϡ(

ư̤¤10ˤʤ0Ȥʤο2^91511פ
ȴǤޤݤʤäƹͤľơ
֤äƥեܥʥåο̤͡פȤˡ˻ä衣
(ȤʬΤȤǻФƤȤˡդ)

¤11Τߡ1̤
¤22112̤
¤3321121114̤
¤4431222111312111211118̤
¤5ĺüοǾʬȡ4?ס3?ס2?ס1?פ4ѥ
뤬?ʬΡ¤1ס¤2ס¤3ס¤4
Ȥʤο¤Τǡ124815̤
¤6Ʊͤˡ4?ס3?ס2?ס1?פ4ѥ
¤2ס¤3ס¤4ס¤5פ2481529̤
¤748152956̤
¤88152956108̤
¤9152956108208̤
¤102956108208401̤
ï⤤ʤԳϡ 1110ڡ 0:47:22 HomePage:ƻ38557
ͣ.ǥ
ԹͤľȡΤ褦ˤʤޤ
οθĿ򡡣[]Ȥ
[1]1[2]2[3]4 ,[4]8
5ΤȤġ[][-4]ܣ[-3]ܣ[-2]ܣ[-1]
Ȥʤޤ
6ΤȤϡ
[]2*[-1]ݣ[-5]ǵΤڤʤ褦Ǥ
[5]15
[6]15*2129
[7]29*2256
[8]2*564108
[9]108*28208
[10]208*215401
[11]401*229773
[12]1490[13]2872[14]5536
¿СʴǵΤǤ礦
1110ڡ 1:37:12 38558
abcba@jugglermoka
#38556

ʬƱˡǤ
1110ڡ 1:45:48 38559
̤ꤹ
basicǡʤ餳ʤ

CALL puls10(0, count)
print count
END
EXTERNAL SUB puls10(s, count)
IF s >= 10 THEN
IF s = 10 THEN LET count=count+1
EXIT SUB
END IF
FOR i=1 TO 4
CALL puls10(s+i,count)
NEXT I
END SUB
1110ڡ 8:17:44 38560
ϥ饮㡼ƥ
ߤޤ󡢥ץǤץǤ
ԡ 1110ڡ 9:19:47 HomePage:湩ؤ˥38561
cyclone
#38550Ʊ
1110ڡ 12:43:37 HomePage:饤եå峫38562
uchinyan
Ϥˤϡơϡ
ࡤ빽ͤƤޤޤʴǡ

(ˡ1)
õ뤿ˤ⡤ȤˤƻˤäƤߤޤ
Ʒο 1 4 ¤ 10 ˤʤΤǡ
ޤ¤ 10 ˤʤ 1 4 Υѥ̵뤷Ĵ١¤٤еˤʤޤ
㤨С10 = 1 + 2 + 3 + 4 ʤΤǡѥȤƤ 1 2 3 4¤٤ 1234, 1243, 1324, ... ʤɤ 4! = 24 ġʤɤǤ
¹ԤȡΤ褦ˤʤޤ->פΤΤ̣Τѥǡ->פαΥѥ󤪤θĿǤ
1 1 1 1 1 1 1 1 1 1 -> 10!/10! = 1
1 1 1 1 1 1 1 1 2 -> 9!/8! = 9
1 1 1 1 1 1 1 3 -> 8!/7! = 8
1 1 1 1 1 1 4 -> 7!/6! = 7
1 1 1 1 1 1 2 2 -> 8!/6!2! = 28
1 1 1 1 1 5
1 1 1 1 1 2 3 -> 7!/5! = 42
1 1 1 1 6
1 1 1 1 2 4 -> 6!/4! = 30
1 1 1 1 2 2 2 -> 7!/4!3! = 35
1 1 1 1 3 3 -> 6!/4!2! = 15
1 1 1 7
1 1 1 2 2 3 -> 6!/3!2! = 60
1 1 1 3 4 -> 5!/3! = 20
1 1 8
1 1 2 2 4 -> 5!/2!2! = 30
1 1 2 2 2 2 -> 6!/2!4! = 15
1 1 2 3 3 -> 5!/2!2! = 30
1 1 4 4 -> 4!/2!2! = 6
1 9
1 2 2 2 3 -> 5!/3! = 20
1 2 3 4 -> 4! = 24
1 3 3 3 -> 4!/3! = 4
2 8
2 2 2 4 -> 4!/3! = 4
2 2 2 2 2 -> 5!5! = 1
2 2 3 3 -> 4!/2!2! = 6
2 4 4 -> 3!/2! = 3
3 7
3 3 4 -> 3!/2! = 3
ǡϡ->פαüο­ФΤǡ
1 + 9 + 8 + 7 + 28 + 42 + 30 + 35 + 15 + 60 + 20 + 30 + 15 + 30 + 6 + 20 + 24 + 4 + 4 + 1 + 6 + 3 + 3 = 401
ˤʤޤ

(ˡ2)
(ˡ1)ǵդΤǤ
㤨С1 1 1 7 ˤϡ1 1 1 2 5 ֥ѥ󤬤ޤ5 ϴ 2 3 ȥѥʬƤꡤ¤ 5 ξ˴Ըޤ
¾ξƱͤǡ¤˴ؤ뤳Ȥ̣Ƥޤ
ǡ¤ n ξ a(n) ĤȤȡ
a(1) ϡ餫 1 ǡa(1) = 1 Ǥ
a(2) ϡ2 = 1 + 1 = 2 ꡤ
Ǿ̷ο 1 ǻĤηο¤ 1 ξ a(1) 2 Τǡ
a(2) = a(1) + 1 = 1 + 1 = 2Ǥ
a(3) ϡ3 = 1 + 2 = 2 + 1 = 3 ꡤ
Ǿ̷ο 1 ǻĤηο¤ 2 ξ硤Ǿ̷ο 2 ǻĤηο¤ 1 ξ硤3 Τǡ
a(3) = a(2) + a(1) + 1 = 2 + 1 + 1 = 4Ǥ
a(4) ϡ4 = 1 + 3 = 2 + 2 = 3 + 1 = 4 ꡤ
Ǿ̷ο 1 ǻĤηο¤ 3 ξ硤Ǿ̷ο 2 ǻĤηο¤ 2 ξ硤
Ǿ̷ο 3 ǻĤηο¤ 1 ξ硤4 Τǡ
a(4) = a(3) + a(2) + a(1) + 1 = 4 + 2 + 1 + 1 = 8Ǥ
n >= 5 ξϡn = 1 + (n-1) = 2 + (n-2) = 3 + (n-3) = 4 + (n-4) ꡤ
Ǿ̷ο 1 ǻĤηο¤ n-1 ξ硤Ǿ̷ο 2 ǻĤηο¤ n-2 ξ硤
Ǿ̷ο 3 ǻĤηο¤ n-3 ξ硤Ǿ̷ο 4 ǻĤηο¤ n-4 ξǡ
a(n) = a(n-1) + a(n-2) + a(n-3) + a(n-4)
ˤʤޤǤϡa(10) Τǡ
a(5) = a(4) + a(3) + a(2) + a(1) = 8 + 4 + 2 + 1 = 15
a(6) = a(5) + a(4) + a(3) + a(2) = 15 + 8 + 4 + 2 = 29
a(7) = a(6) + a(5) + a(4) + a(3) = 29 + 15 + 8 + 4 = 56
a(8) = a(7) + a(6) + a(5) + a(4) = 56 + 29 + 15 + 8 = 108
a(9) = a(8) + a(7) + a(6) + a(5) = 108 + 56 + 29 + 15 = 208
a(10) = a(9) + a(8) + a(7) + a(6) = 208 + 108 + 56 + 29 = 401
ǡ401 ġˤʤޤ
ʤñ˷׻صǤn >= 6 ʾϡ
a(n) = a(n-1) + a(n-2) + a(n-3) + a(n-4) = a(n-1) * 2 - a(n-5)
ѷƷ׻ڤ⤷ޤ͡
ͥνȡ 1110ڡ 13:35:10 38563
uchinyan
ǼĤɤߤޤ

#38548#38551#38552#38553#38556#38559#38563(ˡ1)
ƻˤΤޤ޾Τ夲ˡ夲ξʬλˤϳƿͤιפ褦Ǥ

#38550#38562
¤ 10 dzư̤ο 5 ʾޤΤ夲 2^9 = 512 ˡ

#38549#38554#38555#38557#38558#38563(ˡ2)
ˤˡ

#38547#38560#38561#38565
ץˤˡ
ͥνȡ 1110ڡ 13:38:26 38564
???
Option Explicit
Dim keta As Integer
Dim a(10) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
For keta = Application.RoundUp(10 / 4, 0) To 10
Call saiki(1)
Next keta
Range("A1").Select
End Sub
Sub saiki(ByVal n As Integer)
Dim j As Integer
a(n) = 1
While a(n) <= 4
If n < keta - 1 Then
Call saiki(n + 1)
Else
a(keta) = 10
For j = 1 To keta - 1
a(keta) = a(keta) - a(j)
Next j
If 1 <= a(keta) And a(keta) <= 4 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To keta
Cells(Cells(1, 1).Value, j + 1).Value = a(j)
Next j
Range("B" & Cells(1, 1).Value).Select
End If
End If
a(n) = a(n) + 1
Wend
End Sub
1110ڡ 13:29:06 38565

¤ˤʤȤ߹碌񤭤ơ夲Ǥ
եܥʥåο̤Ǥ
οǡ夲ʳDz򤱤Ȥ̵
1110ڡ 14:34:57 38566

ȥ饤󡢡ʤΤ狼ޤ󤬡ˤޤ䤷򤤤ƤޤɤΤԤͤޤäǻߤޤäƤޤƨ褦ˤĩ路ޤǤǤΤǤϤδϤäΤǤɣ売̤ꡢ塦Ƚ񤭽ФƲ򤤤ƤޤߤʤޤǤ
1110ڡ 22:28:56 38567