٥륯åĥ
ϰȯǤޤ
ƤȤݤΤʤˡǤ˹ͤᤤȻפäΤǡ
ޤ꤬62ͤʤΤ15̤ꡣ
ˡ2ͤλĤͤޤ
2ͤߤ魯硢Ĥ4ͤȤ3̤ꡣ
2ͤƱ魯硢4̤ꡣ
2̡ͤ魯硢2ͤȻĤȤ24̤ꡣ
15ߡ3+4+24ˡ465
410ڡ 0:15:33 41635
CRYING DOLPHIN
ѷгޤ򤸡äįƤ顢
)7Ĥο
)3Ĥο4Ĥο
2ѥͤФ褤Ȥ˵դޤ

)7Ĥο 7!(72)360̤
)ޤ7ĤΤ3Ĥη7335̤ꡣ(Ĥ4ĤϼưŪ˷ޤ)
3ġ4ĤοκϤ줾3!(32)1̤ꡢ4!(42)3̤ꡣ
ʤΤǡ3513105̤ꡣ
פơ465̤ꡣ

ˤĤäĶ!!äƤʤǤ
ï⤤ʤԳϡ 410ڡ 0:33:18 HomePage:֥⤢41636
ߤ
ؤˤʤäƼĤʤͻҤͤФΤǤ礦
ĤʤäƱΤǻ򤹤롢Ȥ֤Ф狼䤹
ֿͤνƱʤУ̤ȹͤס֣νʤ
Τǡǹͤɬפޤ

ʤˣͤǣĤؤ
ͤο᣷ʣߣˡᣳ̤
ʤˣͤؤȣͤؤʬ
ͤʣߣߣߣˡʣߣߣߣˡᣳ̤
Σͤ¤ϣͤοʤΤǡʣߣˡᣳ̤
ĤΣͤ¤ϣ̤ꤷʤ
äơߣᣱ̤ꡣ

ͤǤؤΩʤΤǡʳؤȤ߹碌Ϥꤨʤ
äơʤˡܡʤˡᣳܣᣴ̤ꡢ
410ڡ 0:34:53 41637
Mr.ǥ
ξοƱ褦˹ͤ
7ͤa.b.c.d.e.f.gȤȤ
3ͤ4ͤĤ۴Ĥ褦ʾ........{a,b,c}{d,e,f,g}ʬ줿Ȥ
a[bcd]a ,d[efg]d
[]Τʤ¤Ϥ줾졡2̤ꡢ6̤ꤺ
¤ӤξƱʤΤǡ줾졡1̤ꡢ3̤ꤺ
äƤξοϡ(7C3)*1*3105̤
7ͤ۴ĤȤ
a[bcddefg]
ξοϡ6!/2360

äơ105+360465̤ˤ........Ȥޤ
410ڡ 0:50:48 41638
abcba@baLLjugglermoka
ܤ˾ʬдñǤ͡ʬʤǷ׻ǤỌ̇̄ʤפߡη׻ˡͤ˥

6!/2+7C33!/2=465ϡäꤷ6!򣲤dzΤ˺Ƥ825Ƥޤޤ
410ڡ 0:39:00 41639
⡼ޥ
äȤɤä ^^;
7Ĥȡ(3Ĥ4Ĥˤ櫓Ȥ)ο?(Ʊ)ǤȤ˵դޤ ^^v
6!/2+7C3*3!/2=360+35*3=360+105=465
¨ ^^;v 410ڡ 0:50:39 41640
Ȥ
ȡʥɽ7ͤa,b,c,d,e,f,g
s1,,s21Ȥưʲɽ

(**0)(**a)(**b)(**c)(**d)(**e)(**f)(**g)
(**a)(***)(s01)(s02)(s03)(s04)(s05)(s06)
(**b)(***)(***)(s07)(s08)(s09)(s10)(s11)
(**c)(***)(***)(***)(s12)(s13)(s14)(s15)
(**d)(***)(***)(***)(***)(s16)(s17)(s18)
(**e)(***)(***)(***)(***)(***)(s19)(s20)
(**f)(***)(***)(***)(***)(***)(***)(s21)
(**g)(***)(***)(***)(***)(***)(***)(***)

basic

for s1=0 to 1
for s2=0 to 1
for s3=0 to 1
for s4=0 to 1
for s5=0 to 1
for s6=0 to 1
if s1+s2+s3+s4+s5+s6<>2 then goto 60
for s7=0 to 1
for s8=0 to 1
for s9=0 to 1
for s10=0 to 1
for s11=0 to 1
if s1+s7+s8+s9+s10+s11<>2 then goto 50
for s12=0 to 1
for s13=0 to 1
for s14=0 to 1
for s15=0 to 1
if s2+s7+s12+s13+s14+s15<>2 then goto 40
for s16=0 to 1
for s17=0 to 1
for s18=0 to 1
if s3+s8+s12+s16+s17+s18<>2 then goto 30
for s19=0 to 1
for s20=0 to 1
if s4+s9+s13+s16+s19+s20<>2 then goto 20
for s21=0 to 1
if s5+s10+s14+s17+s19+s21<>2 then goto 10
if s6+s11+s15+s18+s20+s21<>2 then goto 10
let u=u+1
10 next s21
20 next s20
next s19
30 next s18
next s17
next s16
40 next s15
next s14
next s13
next s12
50 next s11
next s10
next s9
next s8
next s7
60 next s6
next s5
next s4
next s3
next s2
next s1
print u
end

f9 ơ465()
˭ԡ 410ڡ 1:54:28 MAIL:fttnm528@ybb.ne.jp 41641
(Keigei)
http://blogs.yahoo.co.jp/oka_yadokary/31001084.html
410ڡ 6:26:17 41642
uchinyan
Ϥˤϡơϡ
ϡ¾ΥȤ꤬㴳㤦Τ򤤤ȤäΤǴñǤ
ʴǡ

ξǤϡƿͤۤʤ룲ͤ魯뤳Ȥˤʤޤ
ϡοȤƤϡͤοͤμǰۤʤͤȼĤʤȤƱǤ
ϹͤʤΤǡĤʤ꤬θϰռʤȤˤʤޤ
ΤĤʤ򤹤ȡͤ¤Ӥϱߴľ˴ݤʤޤ
㣳ͤФȤǽʤΤǡͤξϼΤ褦ˤʤޤ

ͤȣͤʬƱߴľ˴ݤʤ
ʬΤ 7C3 = 35 ̤ꡣ
ͤϡͤꤷƸռʤΤǡ2!/2 = 1 ̤ꡣ
ͤ⡤Ʊͤˤơ3!/2 = 3 ̤ꡣ
ǡξϡ35 * 1 * 3 = 105 ̤ꡤǤ

ͤ٤ƤDZߴľ˴ݤʤ
Ʊͤˤơ6!/2 = 360 ̤ꡤǤ

ʳˤϤʤΤǡɡ
105 + 360 = 465 ̤
ˤʤޤ
ͥνȡ 410ڡ 11:37:09 MAIL:uchi@sco.bekkoame.ne.jp 41643
uchinyan
ǼĤɤߤޤ

#41635
ޤͤͤλƤƿˡ
ƻǤ¤ǹλƤˡǤ
¤ϡ˻䤬¾ΥȤDz򤤤ݤ˺ǽ˻פդˡǤ (^^:

#41636#41637#41638#41639#41640#41642Υ[1]#41643
ͤ٤Ƥߤ路礦ͤȣͤʬƳƥ롼路礦ˤʤ뤳Ȥܤˡ
줾Υ롼ξοˤʤΤݥȤǤ͡

#41642Υ[2]
ˤˡ

#41641
ץˤˡ

ʤߤˡ䤬˲򤤤ȤȤϡ#41642ΥꡤǤ
ͥνȡ 410ڡ 12:29:05 MAIL:uchi@sco.bekkoame.ne.jp 41644
???
Υޥ
Option Explicit : Dim a(7) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Dim j As Integer, jj As Integer
For j = 1 To 7 - 1
For jj = j + 1 To 7
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = j
Cells(Cells(1, 1).Value, 3).Value = jj
Next jj
Next j
Cells(1, 5).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim j As Integer
If n = 1 Then a(n) = 1 Else a(n) = a(n - 1) + 1
While a(n) <= Cells(1, 1).Value
If check(n) = 0 Then
If n < 7 Then
Call saiki(n + 1)
Else
Cells(1, 5).Value = Cells(1, 5).Value + 1
For j = 1 To 7
Cells(Cells(1, 5).Value, j + 5).Value = Str(Cells(a(j), 2).Value) + ":" + Str(Cells(a(j), 3).Value)
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function check(ByVal n As Integer) As Integer
Dim b(7) As Integer
Dim j As Integer, jj As Integer, jjj As Integer
For j = 1 To 7 : b(j) = 0 : Next j
check = 0 : j = 1
While check = 0 And j <= n
jj = 2
While check = 0 And jj <= 3
jjj = Cells(a(j), jj).Value
b(jjj) = b(jjj) + 1
If b(jjj) > 2 Then check = 1 Else jj = jj + 1
Wend
j = j + 1
Wend
End Function
410ڡ 12:51:20 41645
ϺĹ
ŤޤǤ֤֤ޤ򤫤äǤ
3601֤餤56Ϥޤ
410ڡ 13:49:59 41646
ǯ
äȡߤʤȤʤˡǤդϣƤᡪ
ǥ롼פˡǴְ㤤ʤȳοƤˡͤƤ⤫äݤˤʤ
Ƥޤ
ͤȣͤΥ롼פ˵Ť
(7-1)!/2+7C3*{(3-1)!/2}*{(4-1)!/2}465
⤷Ǥ͡
410ڡ 16:12:39 41647

http://www.sansu.org/used-html/index584.html
ΤƱꤢޤ衼
ǯϥɥ͡ѤƿΥեꤷƤŻäƤߤ
410ڡ 19:55:45 41648

http://www.sansu.org/used-html/index584.html
ΤƱꤢޤ衼
ǯϥɥ͡ѤƿΥեꤷƤŻäƤߤ
410ڡ 20:45:24 41649
ޥ
ޤäŤʤä....orz
iMac 411ʶ 2:07:54 HomePage:41650
uchinyan
#41648
졤Ǥ⤳ϲ򤤤ʤɡʤܤƤ
Ȼפä顤κϡϹޤƳˤۤ򤫤ƤʤǤ͡
줫⤦ǯФäƤǤ͡ᤤΤǤˤ򴶤ޤ
ͥνȡ 411ʶ 14:19:24 MAIL:uchi@sco.bekkoame.ne.jp 41651
̴
ǯꡦƤߤȡλ򤱤ʤäȤȽ
ϤɤˤäȲ򤱤ޤꤽΤΤϡ򤤤ΤǤ
äƻξˤϲ򤱤ʤΤǤϡ
uchinyanͤͤµȤϡΤޤǤޤǰʾ˴ĥäƲڤФʤ礷Ƥޤ
411ʶ 19:03:53 41652
Mr.ǥ
#41648
Τ褦ɤDz򤤤褦ʵƤΤǤǤ
ˤƤ⥷åʤΤϡΤȤ⺣2ܤλ֤פƤȤǤ
uchinyan͡Ĥκ٤ʬϡڤߤˤƤޤ
ޤ¤ʤõ濴˷ƤޤΤѤǤ礦ȤĥäƤ
412ڡ 9:33:10 41653
и
äȣοʣˤǤʤʤȻפäƤޤ
ȣʬѥ⤢äǤ͡1ǯʾϢ³Ͽڤ뤫Ȼפäƥҥҥ䤷ޤ
412ڡ 10:12:32 41654
uchinyan
̴Mr.ǥ
դ򤢤꤬Ȥޤߤˤʤޤ
ϤǤ PC ˰ưǤʤPC äʤΤǡ
ޤǤϻŻȤȤ֤ PC ˤޤ񤷤⤢뤫⤷ޤ
ޤϼˤΤǼͳ֤ޤĤϻߤ±Dzᤴʤʤꡤ
ʤȻä񤷤ʤ뤫Τޤ
ʤꤽʤȤˤϡ餫ᤴϢ褦ȻפäƤޤ
ޤޤǤϡ̵ΤӤ껲äǹԤȻפäƤޤ (^^;
ͥνȡ 413 14:41:23 MAIL:uchi@sco.bekkoame.ne.jp 41655

⤮꤮ǡäޤ
ͤ񤫤ƤޤˣȻפä줺Τ褦ɤߴְ㤨ƤΤȻפޤ¾β⤫ФǸˤ⤦Ҥĩĩ路Ƥ飳Ĥ4Ĥʬ礬뤳Ȥ˵դޤuchinyanβʬˤϴ֤˹礤ޤǤˤȤäƤηǼĤǤߤʤ˲񤨤뤳Ȥ()ˤʤäƤޤ줫³ƹԤǤԤޤ礦
Ϻꡡ 414ʷ 22:08:42 41656
ޤ륱
ˤ

ޤǤˤʤΤǡץ񤤤ͷǤޤ

οͤ飲ͤξη׻̤Ǥ

3 => 1
4 => 3
5 => 12
6 => 70
7 => 465
8 => 3507
9 => 30016
10 => 286884
11 => 3026655
12 => 34944085
13 => 438263364
14 => 5933502822
15 => 86248951243
16 => 1339751921865
17 => 22148051088480
18 => 388246725873208
19 => 7193423109763089
20 => 140462355821628771

ϤƤơäƤΤ顢
ʤ硡 416ʿ 16:08:42 MAIL:take4310@mobile.email.ne.jp HomePage:ޤ륱41657