ͣ.ǥ
ɤΣǡ43̤ˡɤοǡ53̤
פǡηϡ3!*1*3*354̤
פǡηϡ32ˡ3324̤
ä
43*53*5424ˡ3120̤
ʥפäˡŪ᤯򤱤ޤ
510ڡ 0:36:23 39313

ʣ˿ξ
ʣݣ˿ݣݣ
áʣˡߣСʣˡᣲ̤
ʣݣ˿ݣݣ
СʣˡߣСʣˡᣱ̤
ʣ˿ξϿݣݣ
СʣˡߣСʣˡᣱ̤
510ڡ 0:24:15 39314
⡼ޥ
4C3*5C3*(9C6-6)=3120
510ڡ 0:33:51 39315
abcba@baLLjugglermoka
ĤοϺ磳硣
ƿ(3,2,1)ξ硧96410=2160
ƿ(2,2,2)硧24410=960
2160+960=3120

ɾʬβˡǤ͡Ĥμǵ褦ȤựʤΤϤȤȤ()
510ڡ 0:56:06 39316
̤ꤹ
ExcelVBAȡʴʤ

Public Sub 790()
Cells.Clear
Dim cards() As String
cards = Split("1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5", ",")
Dim fcards(1 To 6) As String
Dim count As Integer
Fetch LBound(fcards), fcards, LBound(cards), cards, count
Cells(1, 1) = count
End Sub

Private Sub Fetch(p As Integer, fcards() As String, n As Integer, cards() As String, count As Integer)
If p > UBound(fcards) Then
Dim colors As String
Dim nos As String
Dim s As String
Dim i As Integer
For i = LBound(fcards) To UBound(fcards)
If InStr(colors, Left(fcards(i), 1)) = 0 Then colors = colors + Left(fcards(i), 1)
If InStr(nos, Right(fcards(i), 1)) = 0 Then nos = nos + Right(fcards(i), 1)
s = s + fcards(i) + " "
Next
If Len(colors) = 3 And Len(nos) = 3 Then
count = count + 1
Cells(count, 2) = s
End If
Exit Sub
End If
If n > UBound(cards) Then Exit Sub
Fetch p, fcards, n + 1, cards, count
fcards(p) = cards(n)
Fetch p + 1, fcards, n + 1, cards, count
End Sub
510ڡ 10:26:35 39317
AD164©
Ҥ櫓AAABBCˤʤ2121323 ˤʤ3121213 ˤʤ ĥǥޥۤ顣ޤʸϤǤ
510ڡ 10:45:57 39318
uchinyan
Ϥˤϡơϡ
ǽ򸫤ȤݤʵΤǤճȴñǤʴǡ

飳ο֤Τ 4C3 ̤ꡤĤο飳ο֤Τ 5C3 ̤ǡ
ƿƱ褦ˣĤο񤫤ƤΤǡϼͳ˹Ԥ 4C3 * 5C3 ̤Ǥ
ξβǣߣ᣹Υɤˤʤޤ椫飶
ʲϿʲˤʤʤ褦٤ФΤǡ9C6 - 3 - 3 ̤ꡤǤ
줬4C3 * 5C3 ̤Τ줾ФƹͤΤǡ
4C3 * 5C3 * (9C6 - 3 - 3) = 4 * 10 * (84 - 6) = 3120 ̤
ˤʤޤ

᡼ȤƤϡ򲣼˿ļˤȡμʿԤľǤǤʻҤ 20 Ĥθ顤
ǽˡļʿԤʣܤȲʿԤʣܤӡΣĤθ˹礦֡
ȤФǤȿΩƤޤ͡
ͥνȡ 510ڡ 11:42:32 MAIL:uchi@sco.bekkoame.ne.jp 39319
ϺĹ
ϤäѤĤ줺˴ԡ
βɤि˺ɬ˲򤭤ޤ
ʤΤˡĶ˻ƻ֤ʤ
510ڡ 12:15:08 39320
uchinyan
(ɲýޤ)
ǼĤɤߤޤ
ۤƱʤΤǤͤȤƤ̯˰㤦褦Ǥ

#39313
ޤοȣοᡤФƿΥѥʬष˿ƤϤ롤Ȥˡ

#39314#39318
ΥѥȿΥѥʬष˿ȿƤϤƤˡ

#39315#39319#39322#39325
ޤοȣοᡤΣߣ᣹θΥɤ椫飶
ʲϿʲˤʤʤ褦֡Ȥˡ

#39316
ƿκǤ뤳Ȥ顤ƿΥѥʬष˿ƤϤƤˡ
׻ʤɸܤ#39313äݤΤǤͤȤƤ#39314˶ᤤΤʡ

#39317#39327
ץˤˡ
ͥνȡ 511ʶ 15:02:28 39321
cocolo
#39319uchinyanβȤޤäƱǤ
510ڡ 15:59:56 39322
AD164©
ޤƤ褯ɤƤޤǤ39314#ƱǤ
510ڡ 16:31:51 39323
AD164©
ޤƤ褯ɤƤޤǤ39314#ƱǤ
510ڡ 16:31:52 39324
hide
#39319uchinyanƱǤ
Ƕǰִñä

ޤäطʤǤ˹ʤޤ
ꥢϥ󡡡 510ڡ 19:53:24 39325
ϥ饮㡼ƥ
ץǤñʥץǤǤΤǤݤ褦ˤʤäޤ
ǯȤ˾ƤŤƤƤ褦ʵ⤷ޤ
510ڡ 21:00:22 HomePage:湩ؤ˥39327
ͣ.ǥ
#39325 hide󡡿ʤǤȤޤ
Ǥ͡
ϤΤȤϻפäƤΤǤǤ͡
511ʶ 11:34:33 39328
uchinyan
#39325
ޤäطʤǤ˹ʤޤ
Τäإ٥Ǥ͡ǤȤޤ
ͥνȡ 511ʶ 15:01:29 MAIL:uchi@sco.bekkoame.ne.jp 39329
ʸ
󤼤פĤʤäޡȤ롦
511ʶ 19:50:45 39330
kotani
ʤͤʤвǤʤǤ
ͤ㤤򡢤ʤ귫֤ˤäȲˤɤ夭ޤ
513 19:01:06 MAIL:xv7da2@bma.biglobe.ne.jp 39331
hide
#39328 #39329
꤬Ȥޤ
̾ϢˤϤޤޤʤޤ󤬡ǤȥåףܻؤƴĥꤿȻפޤ
ꥢϥ󡡡 514ʷ 13:45:36 39332
fumio
äȲ򤱤ʾС
ǤϤǤϡޤޤ
515ʲС 1:33:38 39333