祦ե
եܥʥåޤǤϤ狼äƤΣι򸫤ΤϤ狼äΤ1ιƤޤäġ10̰⤤뤫ȻפäΤˡorz
126ڡ 0:25:30 38867

դμޤǤʤȤʤեܥʥåäݤΤʬޤ
֡ģģ¡ġģáȤ
£¢¢£âᣡâ

ǥȻθ
¡֡ˤ
ãáġġˤȤʤޤ
裲롼ס 126ڡ 0:28:06 HomePage:38868
ͣ.ǥ
ܤޤǤ򡡣[]Τξο[]ξο[]Ȥ
ʣ[][]+[]
[+1][]+[][]
\[+1][][-1]
äơ[+1][]ܣ[-1]ȤʤäơУ[]Ѥϥեܥʥå
11饹ȤȤ
3+1˲ͤȤʤο311Ȥʤο[3-1]
13ȤʤΤϡեܥʥåΡ[11]233̤
Ȥޤ
126ڡ 1:00:35 38869
abcba@baLLjugglermoka
#38868
ȿ¦ޤ񤤤Ƥȥեܥʥåγǰǹͤ˷׻άǤ˵դ򤱤ޤեܥʥå˵դΤˤʤ֤ݤäϸޤǤ⤢ޤ(^^;;;
126ڡ 1:24:14 38870
doba
ޤζ̤οȹ礻˼Τ褦̾ĤޤʰʲIDȸƤӤޤ

֡a
ġb
c
ġA
B
ġC

ΡֺȡפˤޤȤβǽܥѥĴ٤ȡʲΤȤ狼ޤ

(1) ʸʸٳ뤹ȡIDɬ
abca
νܤ롣
(2) ʸϡʸʸΤɤˤܤǤ뤬
ʸϾʸˤܤʤ

(2)ϡʸϢ³ʤפȤȤƱͤǤ

(1)ꡢܥѥͤݤϡʸʸɤ¤֤
ˤФ褤Ȥ狼ޤ
Ǥϡ0ܸ夬ʸaˤǡ13ܸ夬ʸBˤǤ뤳Ȥ狼äƤꡢ
餫12ܸϾʸaˤǤ
äơ(2)θȡѥϡ
֡١ؾ٤ʸ12¤٤Τ٤ʸϢ³Ǹʸؾ٤Ǥ褦ʤΤο
ƱǤ1ܸ夫12ܸޤǤοID¤Ӥбޤ
ϡ¤
ĹΥ֥åĹΥ֥å¤٤Ĺ12ˤ¤Υѥ
ȤƱǤĹΥ֥åˡ־סĹΥ֥åˡ羮פȽ񤤤ƤȹͤФ褤

⡢եܥʥåФƤͭ̾Ǥ͡
126ڡ 3:10:59 38871
kasama
褯狼ʤäΤǡιɽƿեȤȤäƣ褷ޤ

ġ֡ġ
򡡣
ġ
֡
򡡣
ġ
ġ
126ڡ 10:47:54 38872
̤ꤹ
10BASICʤ顢ʤ

CALL fetch(0, "R", "W", count)
PRINT count
END
EXTERNAL SUB fetch(n, a$, b$, count)
IF n < 13 THEN
IF a$ = "R" THEN CALL fetch(n+1, "W", b$, count)
IF a$ = "W" THEN CALL fetch(n+1, "B", b$, count)
IF a$ = "B" THEN CALL fetch(n+1, "R", b$, count)
IF a$ <> b$ THEN
IF b$ = "R" THEN CALL fetch(n+1, a$, "W", count)
IF b$ = "W" THEN CALL fetch(n+1, a$, "B", count)
IF b$ = "B" THEN CALL fetch(n+1, a$, "R", count)
END IF
ELSE
IF a$ = "W" AND b$ = "W" THEN LET count = count+1
END IF
END SUB
126ڡ 10:45:38 38873

Ʋ⤵ƻ񤤤ơûƻˡǡ
126ڡ 10:52:31 38874
uchinyan
Ϥˤϡơϡ
ƻDz򤭤ޤޤǤȿؤäݤʤäƤޤޤ͡

n ܤκȤθǤޤĤζ̤οǡǽʤΤϡ֡ġġġǤ
ǡξο㤨Сʤ (n) ̤ꡤʤɤȽ񤯤Ȥˤޤ
ȡ -> -> ġ -> ֡ǤäơФƤ̤ο¤Ӥ̤ͤ϶̤ʤȻפΤǡ
(n+1) = (n)
(n+1) = (n) + (n)
(n+1) = (n) + (n)
(n+1) = (n)
(n+1) = (n) + (n)
(n+1) = (n)
(0) = 0(0) = 1(0) = 0(0) = 0(0) = 0(0) = 0
ޤǡ
(1) = 0(1) = 0(1) = 1(1) = 1(1) = 0(1) = 0
(2) = 1(2) = 0(2) = 0(2) = 0(2) = 2(2) = 0
(3) = 0(3) = 3(3) = 0(3) = 0(3) = 0(3) = 2
(4) = 0(4) = 0(4) = 5(4) = 3(4) = 0(4) = 0
(5) = 5(5) = 0(5) = 0(5) = 0(5) = 8(5) = 0
(6) = 0(6) = 13(6) = 0(6) = 0(6) = 0(6) = 8
(7) = 0(7) = 0(7) = 21(7) = 13(7) = 0(7) = 0
(8) = 21(8) = 0(8) = 0(8) = 0(8) = 34(8) = 0
(9) = 0(9) = 55(9) = 0(9) = 0(9) = 0(9) = 34
(10) = 0(10) = 0(10) = 89(10) = 55(10) = 0(10) = 0
(11) = 89(11) = 0(11) = 0(11) = 0(11) = 144(11) = 0
(12) = 0(12) = 233(12) = 0(12) = 0(12) = 0(12) = 144
(13) = 0(13) = 0(13) = 377(13) = 233(13) = 0(13) = 0
ǡ233 ̤ꡤˤʤޤ

ɡեܥʥåʤǤ͡
ʬäƤޤС⤦ޤ򤱤ʤȤϻפΤΡ֤ʤΤdzˤǤޤ
ͥνȡ 126ڡ 11:46:18 MAIL:uchi@sco.bekkoame.ne.jp 38875
uchinyan
ǼĤɤߤޤ
ŪˤϡեܥʥåȵդƲ򤫤Ƥ褦Ǥ
ΰ̣ǤƱǤ㴳ιͤκۤʬࡣ

#38868#38870
13 ܤεոμޤĴ٤ˡ

#38869
n ܤξοޤζ̤οξοξοʬषƳ򤯲ˡ

#38871
ޤζ̤οΥѥʸʸʸ֤ơ
֡١ؾ٤ʸ12¤٤Τ٤ʸϢ³Ǹʸؾ٤Ǥ褦ʤΤο
ĹΥ֥åĹΥ֥å¤٤Ĺ12ˤ¤Υѥ
֤ƹͤˡ

#38872
ܹͤƲ򤯲ˡϴ˿ؤǤ͡

#38873
ץˤˡ

#38874
ηϩ֤ƹͤˡܺ٤

#38875
ޤζ̤οΥѥ˴Ťʥ֤ǹͤˡ
ͥνȡ 126ڡ 12:20:01 MAIL:uchi@sco.bekkoame.ne.jp 38876
ͼ
ä줿եܥʥåޤǤϵŤΤˡ

ܡܡܤȻ׹ͤȤΤ
̤ꡤ̤ꡤ̤ʤΤ

ǥեܥʥåѤƤ233̤ꡣ

äȷ׻ʤƾǤäƤޤɤߴְä
13ܤäעФΤ12Ƿ׻Ƥޤ

Ѥ
126ڡ 16:41:14 38877
???
Option Explicit
Dim a(13) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
Range("A1").Select
End Sub
Sub saiki(ByVal n As Integer)
a(n) = 1
While a(n) <= 2
If n < 13 Then
Call saiki(n + 1)
Else
Call check(1)
End If
a(n) = a(n) + 1
Wend
End Sub
Sub check(ByVal x As Integer)
Dim b(2) As Integer
Dim c(4) As Integer
Dim d As String
Dim deta As Integer
Dim j As Integer
Dim jj As Integer
Dim jjj As Integer
b(1) = 0 '
b(2) = 1 '
c(1) = 0 '
c(2) = 1 '
c(3) = 2 '
c(4) = 2 '
d = ""
For j = 1 To 13
d = d + iro(b(a(j)))
deta = 0
jj = 1
While deta = 0 And jj <= 4
If c(jj) = (b(a(j)) + 1) Mod 3 Then
deta = 1
Else
jj = jj + 1
End If
Wend
jjj = b(a(j))
b(a(j)) = c(jj)
c(jj) = jjj
Next j
If b(1) = 1 And b(2) = 1 Then
deta = 0
j = 1
While deta = 0 And j <= Cells(1, 1).Value
If Cells(j, 2).Value = d Then
deta = 1
Else
j = j + 1
End If
Wend
If deta = 0 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = d
Range("B" & Cells(1, 1).Value).Select
End If
End If
End Sub
Private Function iro(ByVal n As Integer) As String
Select Case n
Case 0
iro = ""
Case 1
iro = ""
Case Else
iro = ""
End Select
End Function
126ڡ 17:10:26 38878
̤ꤹ
Excelޥʤ顢ʤ

Option Explicit

Sub Macro1()
Cells.Clear
Dim count As Integer
fetch 0, "", "", count, ""
Cells(1, 1) = count
End Sub

Private Sub fetch(n As Integer, a As String, b As String, count As Integer, s As String)
If n < 13 Then
If a = "" Then fetch n + 1, "", b, count, s + ""
If a = "" Then fetch n + 1, "", b, count, s + ""
If a = "" Then fetch n + 1, "", b, count, s + ""
If a <> b Then
If b = "" Then fetch n + 1, a, "", count, s + ""
If b = "" Then fetch n + 1, a, "", count, s + ""
If b = "" Then fetch n + 1, a, "", count, s + ""
End If
Else
If a = "" And b = "" Then
count = count + 1
Cells(count, 2) = s
End If
End If
End Sub
127ʶ 8:13:48 38879
⡼ޥ
øǤ...^^;
եܥʥå1,2,3,5,8,...,144,233,377 ...
(2,0)Ϥޤꡢ4ܤˣĤ(0,0)Τ...53...377233ʤʤ...Orz...
θٶ...^^;...
127ʶ 11:44:32 38880

Ȥ߹碌οȤƤϡȥեܥʥåȤʤ롣
λʤΤǣλ֡ΤȤģ֤ǤʤƤϤʤʤ
ޤȤ߹碌ϡ֡ˢĢor֢֣ĢĤȣ󤴤ȤƱȤ߹碌Ȥ뤳ȤˤʤꡢܤȣܤƱǿפ뤿ᣱλͤȤ뤳ȤǽǤ롣
ˡܤȣܤϣܤޤǤȤ߹碌Фƣ̤ꤷ褬ʤᡢϤΥեܥʥåΣܤΣ̤Ȥʤ롣
ο夲ʤƲ򤱤ΤϽƤΤ褦ʵޤ
127ʶ 14:14:21 38881
Ȼ
Excelޥ

Option Explicit
Const % = 13
Const % = 0, % = 1, % = 2, % = 3
Sub 775()
Cells.Clear
Cells(2, 1) = "Фϡ" & (0, , ) & " ̤"
End Sub
Private Function &(ByVal %, ByVal 1%, ByVal 2%)
If < Then
If 1 = 2 Then
= + ( + 1, 1, (2 + 1) Mod )
Else
= + ( + 1, 1, (2 + 1) Mod ) + ( + 1, (1 + 1) Mod , 2)
End If
ElseIf 1 = And 2 = Then = 1 '''ΤȤ
End If
End Function

128ڡ 0:35:32 38883

Ȥȡˤ̤ꡢġˤ̤ȤʤꡢġˤϣȤȡˣ̤ꡢġˣ̤ʤȵ§狼ޤˤΣȸϡˣ̤ꡢġˣ̤ˤʤꡢġˤΣȸϡˣ̤ꡢġˣ̤ˤʤΤǡȻˡˤȡġˤΤߤˤʤꡢη̤顢ȸΡˤϣܣᣱġˤϣܣ᣸ʲη׻η֤ǣȸϡˣ̤ꡢġˣ̤ȤʤޤܸˡˤˤʤΤϡˤξʤΤǡ̤ꡣ㤤ƣܤ̤򣲣ܣ᣶ȽФäƤޤ
128ڡ 9:06:09 38884
Ҥ
եܥʥåǤдñ դɤǤ
128ڡ 19:35:24 38885
ˤ
˹ʤޤ() ȤƤ򤷤Ǥ
128ڡ 19:38:28 38886

եܥʥå󡢤Τʻ򽬤äʤ
ԤΥ٥ι⤵˶äޤ
ϡˤƻŪʲˡޤ
13ܤǡˤˤʤΤǡ12ܤǤϡ֡ˤǤꡢ֡ˤϤޤäơ֡ˤäƤޤ
ǡʸΡֺȡפºݤ˹ԤʤäƻʬޤΤ褦ʤΤꡢƤӡ֡ˤޤǤΥѥ󤬲ढΤĴ١νι׿ǵޤ
η̡ΡֺȡפΤΤ̤ꡢΡֺȡפΤΤ̤ꡢΡֺȡפΤΤ̤ꡢ12ΡֺȡפΤ̤Ǥ뤳Ȥ狼ޤ
ΤΥѥϤνιפǤΤǡΤȤǹ233Ȥʤޤ
12ܤΡֺȡפǽơ֡ˤΡ
ܤΡֺȡס12ܤΡֺȡפ(9+3)ߣ12
ܤΡֺȡס12ܤΡֺȡפ(3+9)ߣ12
ܤΡֺȡס12ܤΡֺȡפ(6+6)ߣ16
ܤΡֺȡסܤΡֺȡס12ܤΡֺȡפ(6+3+3)ߣߣ36
ܤΡֺȡסܤΡֺȡס12ܤΡֺȡפ(3+6+3)ߣߣ36
ܤΡֺȡסܤΡֺȡס12ܤΡֺȡפ(3+3+6)ߣߣ36
ܤΡֺȡסܤΡֺȡסܤΡֺȡס12ܤΡֺȡפ(3+3+3+3)ߣߣߣ81
128ڡ 22:24:53 38887

ʤΡֺȡפˤäȯѥեܥʥåˤʤΤͤƤߤޤ
dobaΤ褦ˡ֡aġbcġABġCȤ
ʸabcϡֺȡפǣ̤ʸȾʸˤѲǽ뤬
ʸABCϣ̤ʾʸˤˤѲʤ
abB
bcC
caA
Ab
Bc
Ca
ȤβɤäƤȡ
ǽ顡֡ʡa
ܤκȡʣܡˡbBΣ̤
ܤκȡʣܡˡcCcΣ̤
ܤκȡʣܡˡaAaaAΣ̤
ܤκȡʣܡˡbBbbBbBbΣ̤

ܤǤΥѥ˼äȡܤΥѥȤΤ
ܤξʸʬaˣĤdzơ̤ꡢʸʬAˣĤdzơ̤ȯơ
ף̤ʣߣܣߣ᣸ˤˤʤäƤ롣
ȡܤǤϡܤγƥѥʾʸʬʸʬˣĤ
ĤȯȤȤˡܤξʸʬĤƤ뤳Ȥˤʤ롣
ܤξʸʬĤȤΤϡܤγƥѥcCcˤ飱ĤȯͳˤƤ롣
äơܤǤΥѥϡܤǤΥѥȣܤǤΥѥιפˤʤ롣
줬ŪΩΤǡ
nܤǤΥѥϡn-1ܤǤΥѥn-2ܤǤΥѥιפˤʤ롣
äѤꡢ狼ˤǤͤ
128ڡ 22:26:23 38888
ޡ
ޤ椬ƱʤۿʤߤȤơ
ߤϤޤꡤϣ³ʤ롼Τɽ
ޤǤ͡

10111213
1321345589144 233
ߡ1321345589144 233
ס1321345589144 233

ޤܤΡΤ
ܤΡ֤Τ
ܤΡĤΤ

ȤȤ˵ŤФΤޤФޤ͡
˺Τϼä˲򤱤ޤǤ
131ʲС 17:57:38 38889
ϺĹ
ϤϤϡäȲ򤱤եܥʥåʤˤʤΤˤʤȤϽ褿ɡϽǤʤä
᤿ѤǤΤǤ⤦٤ȹͤ顢ΤޤǤФơ줿θơٶޡ
21ʿ 13:19:28 38890
轵äǥǤ
#38866
ݡ11/3ᡡ25/3ݡ
Ǥ¿ʬ
21ʿ 17:14:27 38891
ޡ
#38891
̤ǤǤߴְ㤨ޤ
21ʿ 19:37:37 38892