ޥĥ
δвǯ֤Ǥ礦
λ衤ͤʤǤޤޤ
줫ޤ礯礯Ƥޤ(ƤȤǤ)
ͤꤤޤ
1126ڡ 0:04:54 43928
!!!
ʤΣ
͡ 1126ڡ 0:07:00 43929
Ȥ
Basic ǡ=a,=b,=c,=d,=e,=f
=1,=2,=3Ȥ

for a=1 to 3
for b=1 to 3
if b=a then goto 50
for c=1 to 3
if c=b then goto 40
for d=1 to 3
if d=c then goto 30
for e=1 to 3
if e=d then goto 20
for f=1 to 3
if f=e or f=a then goto 10
let s=s+1
10 next f
20 next e
30 next d
40 next c
50 next b
60 next a
print s
end

f9ơ66()
˭ԡ 1126ڡ 0:08:22 MAIL:fttnm528@ybb.ne.jp 43930
ʪ
Ȥꤢץߥ
ޤǿ13ƤϤꢪ66
˹ͤβ
ޤ2ɤ櫓(ǥ꡼ˤʤäƤ)ͤ
3*2^1=6
3ɤ櫓ͤ
ö³ƱˤʤΤǧ뢪ȷŪ2ɤ櫓
ˤʤΤǸ2̤
3*2^2-6=6
ʲƱͤ
3*2^3-6=18
3*2^4-18=30
3*2^5-30=66...
1126ڡ 0:14:57 MAIL:butsuri.0523@gmail.com HomePage:twitter43931
٥륯åĥ
ϴñȻפäǤޤä٤礦򺮤Ƥޤ
;ʬȤ߹碌66̤ꡣ
1126ڡ 0:15:19 43932
ǯ
ǤޤȤꤢ֤ˤơ㤨С֤ξΥ򤫥󥸤ξο­ơξϥ֤󥸤ξο­ơ󥸤ξϥ֤ξοäơǸΥޤǷ׻֤ξȣ̤ꡣ򡢥󥸤ξƱͤʤΤǡߣ᣶
Ĥ̤ˡǤɽ༡׻ޤ
1126ڡ 0:17:04 43933
٥륯åĥ
󿧤ξ2Ĥĸߡ6̤ꡣ
ξ硢321Ĥξ礬36̤ꡢ2ĤĤξ礬24̤ꡣ
¤Ǿʬ줾οʬ׻ޤ
1126ڡ 0:18:48 43934
Mr.ǥ
֤ȤȤ
ϡְʳ2̤
ϥοʳ2̤
Ʊͤ
2̤ꤺ
ޤǤοϡ2^4=16(̤
Τ
֤Ǥȡ6̤....ξ祫ϡ2̤ꤺ
ְʳǤϡ16-610̤....ξ祫ϡ1̤ꤺ
ä
ͤϡ3*(6*2+10*1)66̤ˡȤޤ
1126ڡ 0:21:43 43935

Ф
3222223222248
Ǵְ㤨ä
964824126363
Ȼפä㤤ޤ
ǸΡ3פߤ66ޤ
ɤƤʡ(^^;
1126ڡ 0:25:38 43936

ꤹȡϥʳΣϥʳΣǣᣳ̤ꡣ
ǡƱˤʤΤ̤ꤢΤǣ̤ꡣ
ˣढΤǣ᣶̤ꡣ
¾ꥵȡ)ǡ褦򸫤ФΤǤֺī٤äפεϤǤɵǤޤǤ
Ϻꡡ 1126ڡ 0:36:46 43937
Mr.ǥ
#43936̲ͤޤ
ĤؤǾοPnȤ
3̤ꡢ2̤ꤺĤȹͤƤ 3*2^(n-1)̤
Τܤ˿Ʊˤʤϡܤ1Ľȡ
(n-1)ĤؤǤΤ
Pn=3*2^(n-1)Pn-1P2=3*26Ȥʤ뤫
P33*2^266

P63*2^53066................
1126ڡ 1:09:53 43938
ߤ
ʤˣ򣳤ĤĢߤ֤ʤΤǣߣ᣶̤ꡣ
ʤˣȤ
ʣ˳ƿġġġ
Ʊξ硢Ʊξ硢줾֤ϣ̤ꤺġ
ζ̤ͤơߣߡʣߣߣˡᣳ̤
ʣ¡˳ƿĤ
֤ϣ̤ʤΤǡζ̤ͤƣߡʣߣߣˡᣲ̤

ʾꡢܣܣ᣶̤ꡢ

(#43933)Τ褦βˡƬ褮äΤǤľ֤ξǤ
ߣ᣹̤ʤΤǡ̤λŪˡǹԤȽǤƲ򤭤ޤ
1126ڡ 0:58:53 43939
ܥ饮ΡԾͻ

īˤƥȤϥܥܥ
1126ڡ 1:12:56 43940

#43938
Mr.ǥβˡ򤷤ޤ
꤬Ȥޤ
ǫ˹ͤʬޤ
̵ޤ(^^;
̲
nkǾդȤ
(k-1)^n(-1)^n(k-1)̤
ˤʤ褦Ǥ(Ȼפޤ)

1126ڡ 7:12:01 43941
ϥ饮㡼ƥ
ץǤOctave򥤥󥹥ȡ뤷ΤǤ
ԤƤޤץDz򤯤ˤϺŬǤ
1126ڡ 7:43:17 HomePage:湩ؤ˥43942
̴
Ȥ礬̤γơġȤ硢ȥƱξ礬dzơġۤʤ뿧ξ礬dzơġäơĤȤʤ롣
ٻΤ桡 1126ڡ 8:07:52 43943
ǯ
#43937
꤬ޤ451625914

ϲ˽äư°פ˵᤿ΤǤ
#43939Τ褦ˡˡߤʤȤϤĩ蘆Ƥ褦ʤΤǡν񤭹ߤ򸫤ơˡٶƤ餤ޤ
1126ڡ 9:24:40 43944
ϺĹ
פ֤ΰȯʤΤǽ񤭹
褦ǶϫиΤǡǽ餫񤭽Ф
6ꡢ3٤ޤǤϽ񤭽ФᤤȿƤ롣
ϲ20ʬۤɤDz򤱤ޤ
ʤޤ͡͡٤Ҥޤ̤褦ˡ
1126ڡ 11:10:04 43945
Mr.ǥ
#43941Jޥޤ
餳פĤޤ޽񤭤ʤäΤɤǤͭ񤦤ޤ
̲ˤĤơ򤤤Ȥ
Pnk*(k-1)^(n-1)Pn-1
Pn(k-1)^n{Pn-1(k-1)^(n-1)} PᣰФ
Ʊ(k-1)^n(-1)^n(k-1)̤˻ޤ
1126ڡ 11:40:53 43946
???
Dim a(6) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim dame As Integer, j As Integer
a(n) = 1
While a(n) <= 3
Select Case n
Case 1 : dame = 0
Case 6 : dame = -(a(5) = a(6) Or a(6) = a(1))
Case Else : dame = -(a(n - 1) = a(n))
End Select
If dame = 0 Then
If n < 6 Then
Call saiki(n + 1)
Else
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 6
Cells(Cells(1, 1).Value, j + 1).Value = iro(a(j))
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function iro(ByVal n As Integer) As String
Select Case n
Case 1 : iro = ""
Case 2 : iro = ""
Case Else : iro = ""
End Select
End Function
1126ڡ 12:53:18 43947
uchinyan
Ϥˤϡơϡ
ϡäƻ˹ͤв򤱤ʤΤǡȤƤɸŪסϢˤϰסǤ礦
ȡǤϲ꤬äȻפޤʴǡ

(ˡ1)ƻ
Ȥξϡ餫ˤޤ
Ȥξ
֤Τ 3 ̤ꡣ֤λϸߤ㤤ʤ 2 ̤ꡣ
ǡξϡ3 * 2 = 6 ̤ꡤǤ
Ȥξ
Ʊ֤θĿϡ3, 2, 1 2, 2, 2Ǥ
3, 2, 1 ΤȤ
γƤ 3 * 2 * 1 = 6 ̤ꡣ
֤λϡ3 򣱤֤ˤĤΣΣĤ 1 ˤ뤷ʤΤǡ2 * 3 = 6 ̤ꡣ
ǡΤȤϡ6 * 6 = 36 ̤ꡤǤ
2, 2, 2 ΤȤ
γƤ 1 ̤ꡣ
֤λϡϻѷ濴˴ؤоΤˤ롤ȥȥȥΤ줫ʤ
ˡ㤨СȥʤСΣ򡤥ȥȤ뤫ȥȤ뤫ޤ
Ԥϡ濴˴ؤоΤ 3 ̤ꡤ֥ѥؤογƤ 3 * 2 * 1 = 6 ̤ꡤǡ3 * 6 = 18 ̤ꡣ
ԤϡɡĤο濴˴ؤоΤ֤뤳ȤˤʤΤǡ֥ѥؤογƤ 3 * 2 * 1 = 6 ̤ꡣ
ǡΤȤϡ18 + 6 = 24 ̤ꡤǤ
ꡤξϡ36 + 24 = 60 ̤ꡤǤ
ʾǤ٤ƤʤΤǡοϡ6 + 60 = 66 ̤ꡤˤʤޤ

(ˡ2)
̤ˡ֤ս꤬ n սξο An ̤Ȥޤο A6 Ǥ
ȡ 3 ̤ꡤϥʳʤΤ 2 ̤ꡤϥʳʤΤ 2 ̤ꡤϥʳʤΤ 2 ̤ꡤȤʤꡤ
ʥ֤ˤϡ3 * 2^5 ̤ꡤǤˤϥȥοפƤޤΤޤ
פƤޤϡȥĤΥȹͤƤΤǡ A5 ̤Ǥ
ĤޤꡤפơA6 = 3 * 2^5 - A5ǤƱȤϷ֤Τǡɡ
A6 = 3 * 2^5 - A5A5 = 3 * 2^4 - A4A4 = 3 * 2^3 - A3A3 = 3 * 2^2 - A2
A2 = 3 * 2 = 6Ǥꡤ
A3 = 3 * 2^2 - 6 = 6A4 = 3 * 2^3 - 6 = 18A5 = 3 * 2^4 - 18 = 30A6 = 3 * 2^5 - 30 = 66
Ĥޤꡤοϡ66 ̤ꡤˤʤޤ

(ˡ1)ϡʤǤ礦
(ˡ2)ϡǶλ̵ǤϰνФˡΤޤ󤬡Ǥˤ˻ȤˡʤΤǡ
ϡǤϻȻפäƤޤ
ʤߤˡΤ⺣ޤǤλDzо줷ƤΤǤ
ͥνȡ 1126ڡ 13:11:33 MAIL:uchi@sco.bekkoame.ne.jp 43948
uchinyan
ǼĤɤߤޤ


ʲεҤϡ⤽ϻ伫ȤٶΥ˲᤮ʤΤǤ
޳ѤʤΤǤͤޤǤˤȻפäƸΤǤ
Ȥ⤢äơˡʬϻ F.A.Q. ΡֻϰϡפεҤ򻲹ͤˡ
ĿͤǤиǼŪ˹ԤäƤΤǤäơҴŪʤΤǤϤޤ
ޤǤ⤴ͤǤ餺

#43931#43938#43948(ˡ2)#43950Σܡ#43951
ݤͤˡ

#43934#43939#43943#43948(ˡ1)
Ȥο֤λʤɤǾʬƹͤˡ

#43932#43933#43935#43936#43937
οꤷƱξȹͤܤˡ
#43931ʤɤݤˡ򤵤ˤߺդβˡΤ褦Ǥ
¼ŪݤˡȺϤʤΤǤμηۤ˽񤤤Ƥ뤫ɤʬषޤ

#43945
񤭽Фƹͤˡ
¿ʬ¼Ūˤ#43934ʤɤƱǤϤʤʡȻפޤ

#43950κǽ
ȥƱɤǾʬƹͤˡ

#43930#43942#43947
ץˤˡ

ʤ
#43941
(k-1)^n(-1)^n(k-1)̤
#43946
Ʊ(k-1)^n(-1)^n(k-1)̤˻ޤ
ϤǤ͡
ܤ򤤤Ƥ⤤#43936Τ褦¤ȤƤ⤤Ǥ͡
ͥνȡ 1127ʶ 14:39:34 43949

ʬϰʲΤ褦˲򤭤ޤ

ȥƱξȰۿξ˾ʬ
ᥨλȥȥȤ߹碌ƣѥǡ
22312̤ꡢ
⥨λȥȥȤ߹碌ƣѥǡ
333!54̤
541266̤ꡣ
ǹͤˡ
˥ä
⥪λϥդ˷ޤΤǡA(5)̤ꡢ
ᥪλϡȥ˹ͤA(4)̤ǡ2ǽʤΤǡ
A(6)A(5)2A(4)
A(2)A(3)6硹ˡ
1127ʶ 1:55:03 43950

3ɤʬξ321=6̤
4ɤʬξ3222-6=18̤
5ɤʬξ32^41830̤
6ɤʬξ32^53066̤
1127ʶ 3:10:20 43951
ֿء׾ι
깹ʤäΤǡˤĤơץͷǤߤޤSmallBasicǤ

ޤʹ֤ۤȤɹͤʤƤǡ
s=0
For a=1 To 3
For b=1 To 3
For c=1 To 3
For d=1 To 3
For e=1 To 3
For f=1 To 3
If (a-b)*(b-c)*(c-d)*(d-e)*(e-f)*(f-a)<>0 Then
s=s+1
EndIf
EndFor
EndFor
EndFor
EndFor
EndFor
EndFor
TextWindow.Writeline(s)

ĤˡƵƽФǤθǤSubǰĤʤΤȡѿ٤ƥХȤΤǡ路Ƥޤޤʲ̤Ǥ
s=0
n=0
For a=1 To 3
p=1
stack.PushValue("x1",p)
Stack.PushValue("x2",a)
bunki()
EndFor
TextWindow.WriteLine(s)

Sub bunki
p=Stack.PopValue("x1")
n=stack.PopValue("x2")
If p=6 Then
If n<>a Then
s=s+1
EndIf
Else
p=p+1
If n=1 Then
stack.PushValue("x1",p)
Stack.PushValue("x2",2)
stack.PushValue("x3",p)
bunki()
p=stack.PopValue("x3")
stack.PushValue("x1",p)
Stack.PushValue("x2",3)
stack.PushValue("x3",p)
bunki()
p=stack.PopValue("x3")
ElseIf n=2 then
stack.PushValue("x1",p)
Stack.PushValue("x2",1)
stack.PushValue("x3",p)
bunki()
p=stack.PopValue("x3")
stack.PushValue("x1",p)
Stack.PushValue("x2",3)
stack.PushValue("x3",p)
bunki()
p=stack.PopValue("x3")
elseif n=3 then
stack.PushValue("x1",p)
Stack.PushValue("x2",1)
stack.PushValue("x3",p)
bunki()
p=stack.PopValue("x3")
stack.PushValue("x1",p)
Stack.PushValue("x2",2)
stack.PushValue("x3",p)
bunki()
p=stack.PopValue("x3")
EndIf
EndIf
EndSub

ץå塢ݥåפǥåѤ߾夲Ʋơ⤷äǤ
123ڡ 16:59:23 43952