ߤ뤯
ϣܤǽʬʤΤǤͽꤿΤǻȤä㤨ȤȤ.....
6ܤǤ͡

6C2*16C2-(4+3+2+1)*2
530ڡ 0:08:38 40594

iPadSafariϲѻȤʤǤ͡
äƤ⥨顼ˤʤΤǡޤǥѥΩ夲ޤʴ

û롼15ˡ;פƻ120򤫤ơ1800
֤äƤΤ20Ǥ硣
1800-20=1780
530ڡ 0:08:56 40595
ʸ
120*15=1800
ʣǤͤ
(1+4+2+3)*2 = 20

1780
530ڡ 0:12:21 40596
Mr.ǥ
¾Ʊ
62*162ˡ201780ȤȤʤޤ
530ڡ 0:58:19 40597

22-6=14ȴְ㤨ƤȤΡ
530ڡ 1:22:27 40598

ܤΤȤϤҤȤĤκûꡢĤ꣱ܤ飲֤Τǣ̤ߣᣱ̤ꡣǺûǶʤѤοϡΣѥ󤢤ꡢƻäȳѤҤȤĤˤĤĤ̺û롼ȤǤΤdzѣʣ̤˳ѣʣ̤˳ѣʣ̤˳ѣʣ̤ˤǣߣܣߣܣߣܣߣᣴ̤꤬ʣΤǡȾʬΣ̤̤ˤʤޤߤʤΤ褦ˤҤȤĤμˤޤȤƹͤˡĤǤʬˤʤäƤޤޤ
530ڡ 9:25:38 40599
uchinyan
Ϥˤϡơϡ
ࡤʬäƤޤС֤ʤʤȤפȤʤΤǤ빽ϫޤ (^^;
ɡʴ

ûϩˤ˽ƻϩ 2 ɲä롤Ȥˤǹͤޤ
ûϩ 6C2 = 15 ̤ꡣ
γơξ˻Ĥ 2 ܤƻϩɲäΤǡ줾κûϩФ 16C2 = 120 ̤ꤺĤǡ
120 * 15 = 1800 ̤ꡣ
Τۤʤûϩζʤս꤬ǾʻҤФĺĤˤʤΤФ 1 ̤ꤺĽʣΤǡ
ʤս
1 * 2 + 2 * 4 + 3 * 6 + 4 * 3 = 40 ս
Ⱦʬ 20 ̤ơ
1800 - 20 = 1780 ̤
ˤʤޤ
ͥνȡ 531ʶ 10:58:36 40600
uchinyan
ǼĤɤߤޤ
ϳƱˡΤ褦Ǥ͡
ͥνȡ 530ڡ 13:26:59 MAIL:uchi@sco.bekkoame.ne.jp 40601
ϺĹ
1800ޤǤϤʬޤθ塢ʣƤΤΤ褦ˤäǤθ夺֤֤ޤ
ϵԤλȤȱԤƤޤƽ뤯ʤꤽǡޤԤʤΤǤ
530ڡ 22:46:38 40602

20ϡʬּФưפȹͤơ
3IJ1ļФ1Ĥνǡ5!/3! ȤǤޤ͡
531ʶ 17:35:08 40603
???
٥ʥĤäƤޤޤ
10ܤǤϤʤ6ܤǤϡ
Option Explicit
'.o-21-o-22-o
'.|....|....|
'18...19...20
'.|....|....|
'.o-16-o-17-o
'.|....|....|
'13...14...15
'.|....|....|
'.o-11-o-12-o
'.|....|....|
'.8....9...10
'.|....|....|
'.o--6-o--7-o
'.|....|....|
'.3....4....5
'.|....|....|
'.o--1-o--2-o
Dim a(8) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim j As Integer
If n = 1 Then
a(1) = 1
Else
a(n) = a(n - 1) + 1
End If
While a(n) <= 22
If n < 8 Then
Call saiki(n + 1)
ElseIf check(1) Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 8
Cells(Cells(1, 1).Value, j + 1).Value = a(j)
Next j
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function check(ByVal x As Integer) As Integer
Dim b(22) As Integer
Dim j As Integer
check = 0
For j = 1 To 22
b(j) = 0
Next j
For j = 1 To 8
b(a(j)) = 1
Next j
If b(1) + b(2) + b(5) + b(10) + b(15) + b(20) = 6 Then
check = 1
ElseIf b(1) + b(4) + b(7) + b(10) + b(15) + b(20) = 6 Then
check = 1
ElseIf b(1) + b(4) + b(9) + b(12) + b(15) + b(20) = 6 Then
check = 1
ElseIf b(1) + b(4) + b(9) + b(14) + b(17) + b(20) = 6 Then
check = 1
ElseIf b(1) + b(4) + b(9) + b(14) + b(19) + b(22) = 6 Then
check = 1
ElseIf b(3) + b(6) + b(7) + b(10) + b(15) + b(20) = 6 Then
check = 1
ElseIf b(3) + b(6) + b(9) + b(12) + b(15) + b(20) = 6 Then
check = 1
ElseIf b(3) + b(6) + b(9) + b(14) + b(17) + b(20) = 6 Then
check = 1
ElseIf b(3) + b(6) + b(9) + b(14) + b(19) + b(22) = 6 Then
check = 1
ElseIf b(3) + b(8) + b(11) + b(12) + b(15) + b(20) = 6 Then
check = 1
ElseIf b(3) + b(8) + b(11) + b(14) + b(17) + b(20) = 6 Then
check = 1
ElseIf b(3) + b(8) + b(11) + b(14) + b(19) + b(22) = 6 Then
check = 1
ElseIf b(3) + b(8) + b(13) + b(16) + b(17) + b(20) = 6 Then
check = 1
ElseIf b(3) + b(8) + b(13) + b(16) + b(19) + b(22) = 6 Then
check = 1
ElseIf b(3) + b(8) + b(13) + b(18) + b(21) + b(22) = 6 Then
check = 1
End If
End Function
61ڡ 14:02:48 40604
Mr.ǥ
1ǤϤʤޣΤ褦ˡĽꤹ٤Ƥ̤äBãοǤ
34̤ˤȽФޤʤΤǤ礦
ʤƤ⡡꤬Ǥ褦˻פޤ
62 1:41:57 40605
ä
īż֤ǹͤƤʣ20̤ο狼餺Ф餯֤Ƥޤ
62 23:38:05 40606