ߡ
륹ХưƤޤʬʾ٤ƤΥȡ
ʸɤޤĶŬ

򤷤ΤϣܤǤȤ
526ڡ 0:08:35 37829
㡼ߡ
10 ܤ˰ɤ֤ǤФǤ褤Τ
9C4 x 2 ˤʤޤ󤫤͡
526ڡ 0:10:25 37830
㡼ߡ

> Ф֤Υɤ示ġף
ϡ֣示ġפν񤭴ְ㤤
526ڡ 0:13:17 37831
ݤä
BκǸ夬֤äʤȻפäޤ

ιͤΤǤ礦
526ڡ 0:16:55 37832
ޥ
#37831
示ĤǤm(__)m
iMac 526ڡ 0:18:21 HomePage:Men @ Work37833

֣¤λκפϲ̤ꤢ뤫ΰ̣ĤʤƺäƤޤ
526ڡ 0:18:38 37834
ߥͥ
Ȥäơϩ¤ߤޤʴ

ʤߤ֡У示Ĥδְ㤤Ǥ礦
526ڡ 0:18:49 37835
㡼ߡ
#37835
Ʊǽ饫ȻפǸäƤޤޤ
θֺǸϤɤäǤ褤פȵդ 2 ܤƤꡤ
ˤ⤽⥫ϴطʤȵդ 9C4 x 2 äƤᡤ
ȤʤäƤ褦䤯֣示ġפͽۤǤޤ
526ڡ 0:23:18 37836
ߥͥ
Τ˺Ǹ֡ФɤǤ褤Τ9C4ߣ⤷ʤǤ͡


AСB

Ǥ⡢ɤʵ⤷ޤ
526ڡ 0:23:44 37837
cyclone
У示ĤΣ硢У示ĤΣλĴ٤
§¬ޤ
526ڡ 0:27:49 37838
Kd_Gn
ˤ⥫ƥۥäȤޤ
526ڡ 0:28:58 37839
㡼ߡ
#37837
5 示ĤȤΤȤǤϡ9C4 ϤǤ
1 9 ܤ˰ɤ 2 10 ܤˤɤλȤ뤫б
4 硦 5 ¤٤ 9C410 ܤΥɤϼưŪФ˷ꡣ
526ڡ 0:31:29 37840
ߥͥ
#37840
⤢꤬Ȥޤ
̤Ǥ͡
Ѥķ꤬äꤿ
526ڡ 0:37:54 37841
ޥ
ޡ㡼ߡäƤ褦䤯9C42פΰ̣ʬޤ֣示ġפεҤ̣ʤΤǡ֤Ф示Ĥ뤫ޤäƤʤ׾ΤȤǤβäȤȤǤ...
iMac 526ڡ 0:39:43 HomePage:Men @ Work37842
ޥ
ơ֣פ֣פȵҥߥƤޤäȤؤбǤ...ƤƤޤǤ礦֣פεҤ顢֣示Ĥδְ㤤ʡפΤ⸷ޤ֤ФϣޤǤ٤ƤꤦפȤΤ...

ΤȤϡֳϣʬ֤˸¤äƤϡɤפˤ褦ȻפäƤޤոޤ顢ääƤйǤʥΡȤˤȤ⤢ΤǤϾ̤ˤޤ˿ʤ...m(__)m

ˤ衢Υߥˤ¿ʤǤ򤪤ޤȤ򡢿ӿ夲ޤߤޤǤm(__)m
iMac 526ڡ 0:43:45 HomePage:Men @ Work37843
NY
ǿ夲Ǥ
ɤ򣱣硢鱦¤٤Ȥˡ
ֱüФΥɤ¤ξ礬դAB褦Ǥ
526ڡ 0:50:49 37844
CRYING DOLPHIN
ߣγʻҤˤơΥɤΤ򢪿ʹԡ
¤ΥɤΤ򢬿ʹԤɽȤˤơʻҤ
鱦ޤǹԤοͤơ94Ȥʤޤ
ʹȥɤν֤ϣУб뤳ȤϼȻפä
ޤۤ餫ǤϤʤƤ(

ʻҤ֤׹ͤϽ꤫ʬ⤫ΤΡ
ϥȻפǡ
ǽϢˤʤʤȤ˺ơ
ߣʻҤ򣴡ߣʻҤˤƤޤäơ
ȡ꤬ŷޤǤʴְ㤤Ѥ߽Ťͤorz

äԤФʤΤǼ(
ɤǤ᤿ 526ڡ 1:55:32 HomePage:ƻ37845
ͣ.ǥ
ˡ֤1̤ꡡ֤45*4̤ꡡ֤353*̤
֤252*̤ꡡ֤15̤
ס1+20+60+40+5126̤
ȡ櫓DzȤǽʤʡ
äȹͤƤߤޤ
526ڡ 7:13:18 37846

CRYING DOLPHINǢ5˴ȥȤʤΤǣC4Ǥ͡
526ڡ 2:38:13 37847
abc
դκȡФǤA,BˤĤƼФ֤ͤƣ5ģ5Ĥ碌10Ĥ¤٤(üϣ)ˡ11бΤǡԤ¤ο94ȤʤΤ˻֤ޤ

#37832
㤨СAABBAABBBAФƤϡСν˼ФΤB
κǸФȤʤޤ衣
526ڡ 8:24:30 37848
abcba@jugglermoka
ʬȿְ㤤βǽΤľäƹͤƤ顢֤ȥɤ¤Ӥ11бˤʤäƤΤ˵դޤ

ޤǤϤ褤ΤǤȤꤷ10C5(ܤAλȽ񤤤ƤΤȤޤ)

ɷ׻9C4=126Ǥ

̤2NΥɤN2ʬϡ(2N-1)_C_(N-1)̤Ǥ͡

ɿ̤äǤΥؤϥԥԥβǤ͡⤫ʤ䡣
526ڡ 8:22:09 37849
⡼ޥ
ä!!
ϡAϤޤ뤫...10C5/2=9C4 ˤʤΤ
Ǽ ^^;v
526ڡ 8:59:57 37850
ͣ.ǥ
ˤ֤θĿȡ¤ˤФθĿȤȿ¦˰ܤ
¤κǸФȺǴˣ¤˰ܤ뤳ȤǤ¤˻Ĥ꤬Ф롣
ʳΤȤϻĤʤΤǡĤ4Ĥ֤λ94̤
526ڡ 10:45:47 37851
uchinyan
Ϥˤϡơϡ
ࡤˤ񤷤äȻԺơɤʴǡ

饫ɤäȤϡФʤ A ꡤ֤ʤ B Τǡɤοȼ뻳бƤޤ
ǡäʳǤ٤ƤΥɤʤʤäƤΤϡ
뻳Ǥ AB 5 󤺤ġǽ A Ȥơθ A 4 ġB 5 ġ¤٤ΤƱǤ
㤨СA-BBAAABABB ξ硤륫ɤ¤Ӥ ǡǸ B äơäƽλ
ξλϡ夫顤A ֡B СǤ͡
Ȥ櫓ǡ(4+5)C4 = 9C4 = 126 ̤ꡤˤʤޤ

񤤤ƤޤȶñǤͤꡤޤͤꡤǸ夫ͤȡǤ (^^;
ͥνȡ 526ڡ 17:08:14 37853
uchinyan
ǼĤɤߤޤ
ƻ˿夲⤤ä褦Ǥ
ʳβˡϡɤϡɤοȼ뻳б˵դƷ׻ˡΤ褦Ǥ
ͥνȡ 526ڡ 14:16:33 37854
ߡ
()


ʸϤ褯ɤޤʤȼʬǤפ(äˣ)
526ڡ 14:07:54 37855
ޥ
֣פ֣פȸƤޤäȤؤнǤԤ줿Τ0:15ǤΤǡ0:30ޤǤˤꤤˤĤƤϡ126Ǥ252ǤפȤƤȤˤޤʼºݤ˳ϣ̾ǡǸ0:19Ǥ

ϤǤ򤪤ѿޤǤm(__)m
MacBook Air 526ڡ 18:54:24 37856

˽פƤݥȥ󥭥󥰤ν̤Τޤ޹Ƥޤ
̤ѤäȤˤ꽤񤷤֤ˤʤäƤޤ

¿ʬ
㡼ߡߡtomhvolxaؽ(ɾά)
ν֤ä褦ʵǤοƤޤ

狼жƤȤ꤬Ǥ
526ڡ 19:28:22 37857
㡼ߡ
#37857
3 ̤ޤΤϳФƤޤġ
526ڡ 20:20:52 37858
cyclone
#37857
#37856γ3ͤϡ㡼ߡ󡢤Ҥ蘆TaroȻפΤ
¿ʬǤäƤΤǤϤʤȡ
΢ܡ 526ڡ 20:54:05 HomePage:饤եå峫37859
hide
Aλˤ֤οǾʬƿƤޤ
BκǸ夬аʳʤȤ˵Ť
ǽŪˤ9C4ȿ夲ξDzޤ
ȡࡡ 526ڡ 22:07:32 37860
ޥ
#37857 ʡߤ
#37859 cycloneˤν񤭹ߤ̤ꡢΤϤΣͤǤȤ櫓ǡȻפޤm(__)m
iMac 527ʶ 0:04:28 HomePage:Men @ Work37861
̴
ˤΥޥͤϡñȻפäִ֤˼ʬϼǤäǼĺǹǤͣ⡣оǴñȸ򤷡ܡǡΤΤȤäȹͤǺǹߤޤޥ͡ǹǤ衦ä˰ݤʤΤǤ͡
527ʶ 0:52:03 37862

CRYING DOLPHINƱȯۤǤǽ֤ʤɤȾꤷƹͤƤޤ㤨У¢ηʤ顢Т֢¤֢ƱȤʤΤǾꤷʤƤȵդޤ
527ʶ 9:05:37 MAIL:yokoyama3548@yahoo.co.jp 37863

CRYING DOLPHINƱȯۤǤǽ֤ʤɤȾꤷƹͤƤޤ㤨У¢ηʤ顢Т֢¤֢ƱȤʤΤǾꤷʤƤȵդޤ
527ʶ 9:32:05 MAIL:yokoyama3548@yahoo.co.jp 37864
???
Υޥ
Option Explicit '1:green, 2:red
Dim c(10) As Integer 'A:c(1)~c(5), B:c(6)~c(10)
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim j As Integer
c(n) = 1
While c(n) <= 2
If onaji(n) = 0 Then
If n < 10 Then
Call saiki(n + 1)
Else
Call check(1)
End If
End If
c(n) = c(n) + 1
Wend
End Sub
Sub check(ByVal x As Integer)
Dim nA As Integer
Dim nB As Integer
Dim owari As Integer
c(0) = c(1)
nA = 1
nB = 0
owari = 0
While owari = 0
If c(0) = 1 Then
nA = nA + 1
If nA > 5 Then
owari = 1
Else
c(0) = c(nA)
End If
Else
nB = nB + 1
If nB > 5 Then
owari = 1
Else
c(0) = c(nB + 5)
End If
End If
If nA + nB = 10 And owari = 0 Then
owari = 1
Call check2(1)
End If
Wend
End Sub
Sub check2(ByVal x As Integer)
Dim card0 As String
Dim deta As Integer
Dim j As Integer
card0 = card(1)
deta = 0
j = 1
While deta = 0 And j <= Cells(1, 1).Value
If card0 = Cells(j, 2).Value 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 = card0
Range("B" & Cells(1, 1).Value).Select
End If
End Sub
Private Function onaji(ByVal n As Integer) As Integer
Dim d(2) As Integer
Dim j As Integer
d(1) = 0
d(2) = 0
For j = 1 To n
d(c(j)) = d(c(j)) + 1
Next j
If d(1) <= 5 And d(2) <= 5 Then
onaji = 0
Else
onaji = 1
End If
End Function
Private Function card(ByVal x As Integer) As String
Dim j As Integer
card = "A:"
For j = 1 To 10
If c(j) = 1 Then
card = card + ""
Else
card = card + ""
End If
If j = 5 Then
card = card + " B:"
End If
Next j
End Function
527ʶ 17:16:49 37865

꤬Ȥޤǽޤ
㡼ߡ2̤1̤ˤʤäȤ113ݥȤȤʤ꿷ϿȤʤޤ
527ʶ 19:07:37 37866

äǤΤȤޤǤνɽŽäȤޤ
ǯȾ裷裷20ʬ

113㡼ߡ
57sugitakukun
44ߥ饯
39Taro
35sodo
32ߡ
18tfnt
15ؽ
13ʥ륫
13Τ߹
11
10cocolo
10
10
9
9EG
8
7kasama
7ݤä
6
6kazz
5tomh
4ߥͥ
3̥ʡ ֥꡼
3߼Ψ繥ʹ
3add
3餫
3M'm
3cyclone@饤եå峫
3ѥޥ
2volxa
2ե륳
2
2ȥ饤

2äѥȥ
2miki-flour-st


1⡼
527ʶ 19:08:25 37867
imai
(4,5)(0,0)Ѳϩ夲9C4Ǥ
528ڡ 7:37:32 37868
㡼ߡ
ϿǤǯäƤ 3 Ϣ³ 1 ̡4 Ϣ³ 1 ̤
1 󤺤ĽФƤޤ͡ФƤޤ
528ڡ 7:52:02 37869
ߡ
ĤޤϤ뤫ġ
ܻؤߥåɥʥȥ٥å(ʬͤʬ)
528ڡ 21:54:06 37870
hide
Ǥ

4οABCD11ܿΤȤABCD11ܿǤ
ȤȤ򼨤/ѤΤϡֻפϰϳǤ
9ܿξʳư̤¤9ܿθο9ܿˤפȻפΤǤġġ
ȡࡡ 531ʲС 22:15:43 37871
祦ե
Ƥ褿ΤǤ򤫤äǤ
BλκǸ夬ФǤʤФʤʤΤǡκ2dzȤȤ򤷤ޤ
531ʲС 22:47:26 37872
ߡ
#37871

ǯˤ뤱ɡ̤ǻȤμǤ
61ʿ 15:44:47 37873
hide
#37873
λǤ
꤬Ȥޤ
ȡࡡ 61ʿ 16:58:39 37874