Ĥĺ򼡤ΣĤ˥롼ʬޤ
Сʥȡ
ʣФ飱ΰưǹԤ룵Ĥ
¡ʣѤޤǣΰưǹԤ룵Ĥ
ѡʥ

ˡ줾ΰưκݤ˲̤ꤢ뤫Ĵ٤ޤ
Тͣʣ̤ˡͣСʣ̤
ͣ¡ʣ̤ˡ¢ͣʣ̤ˡͣʣ̤ˡ¢ͣ¡ʣ̤ˡ¢ͣѡʣ̤

ȤϡФѤޤǤΰưΤ󤷡줾첿̤ꤢ뤫Ĵ٤ޤ
Тͣ£ѡᣴ
Тͣ££ѡᣴ
Тͣ£££ѡᣴ
Тͣ££ѡᣴ
ТͣУ£ѡᣵף̤
裲롼ס 315ڡ 0:21:45 HomePage:39103
Ȼ
ͤ󡡤ƱǤ
315ڡ 6:44:24 39105
ݤ󤭤
MȤ褯Ƥޤ
ޤ4Ĥʤ٤ơ줾1ø,2ø,3ø,4øοޤȤ
줾ĺ˲̤ιԤ뤫񤭤ߤޤ
M4롼פб˽񤭹ޤ
1ø塧A1̤ꤺ
2ø塧P155̤ꡡA122̤ꤺġB122̤ꤺ
3ø塧P2510̤ꡡA52413̤ꤺġB248̤ꤺ
4ø塧B1328242̤ꤺ

äơ5ø425210̤
315ڡ 0:45:01 39107

ͤʬ
øϣ̤
øϣФ̤ȣ¤̤
øϣ+ߣᣱ̤¤ߣ᣸̤
øϣ¤ʣ+)ߣᣴ̤ʤΤǣߣᣲ
315ڡ 0:49:18 39108
ͣ.ǥ
ͤ#39103ȤޤäƱǤ
315ڡ 8:46:06 39109
ʤʤ
3 ΰưDZդʤʤ˾ A B ̤Ȥ

A 5 ߡ 54 ˡ 2B 5 210 ̤Ȥޤ
315ڡ 1:02:20 39110
ߤ
μϡˣ󤴤Ȥ˲̤ꤢ뤫Τ֡
#39107ʤݤ󤭤ˤƱǤ

礭οޤʤȡ󤴤Ȥξο񤭹ʤΤǤĤ餤Ǥ
ΩΤʤ餽ξdz礷ޤʬǤޤΤȤʤʤġ
315ڡ 1:46:33 39111
fumio
ФϡΤäƤƤ⡢ȯʤ餺
ϤϤϡ(С
315ڡ 6:50:28 39112
abcba@baLLjugglermoka
4ã5ĤϷޤΤǡĤܤƸ5ܤˡ˷׻ñˤʤޤ
315ڡ 10:11:15 39113
uchinyan
Ϥˤϡơϡ
μŪ褯ΤǡΤäƤдñǤ鸫ǤΩΤ̿餦Τޤ͡

ƲγĺοϡĺȤĤʤäƤ٤ĺΤΰβξο¤ˤʤޤ
Q ȤưʤʤäƤޤΤǡQ 뤳ȤϤޤ
ޤ5 ܤ Q ΤΤǡ Q 褿Τ̵뤹뤳Ȥˤʤޤ
Ĥޤꡤ5 ܤ Q 褿ο 0 ȤƤȤˤʤޤ
ʾΤȤդƳƲĺο񤭽ФƤȡ
ǽ
1<---P
0 0 0 0 0
0 0 0 0 0
0 -> 0<---Q
1
0<---P
1 1 1 1 1
0 0 0 0 0
0 -> 0<---Q
2
5<---P
2 2 2 2 2
2 2 2 2 2
0 -> 0<---Q
3
10<---P
13 13 13 13 13
08 08 08 08 08
10 -> 00<---Q
4
65<---P
52 52 52 52 52
42 42 42 42 42
40 -> 00<---Q
5
260<---P
253 253 253 253 253
188 188 188 188 188
210<---Q
äơ 210 ̤ꡤˤʤޤ

ºݤη׻ϡоʤɤθǤΤǡŻǤǤޤ͡
ͥνȡ 315ڡ 10:29:42 MAIL:uchi@sco.bekkoame.ne.jp 39114
uchinyan
ǼĤɤߤޤ
θ塤򸫤ơʬƹͤޤ

#39103#39105#39109#39119#39120
ĺ֤ΰưλĴ١P Q ؤ 5 ǹԤԤоθƽ񤭽Фơ׻ˡ

#39113
4ã5ĤϷޤΤǡĤܤƸ5ܤˡ
Τ褦Ǥܺ٤
#39117Ʊ⤷ޤ󤬡P βǤϤʤ Q βܤƤȤȾ㤦ΤǡʬˤƤޤ
äȤ⡤¼Ʊ׻ˤʤȻפޤ

#39117#39121
Ф飱ǰưǤ룵ĤĺΤΤҤȤĤܤơ飴ǣѤعԤˡͤޤ
Ȥˡ
츫äƸΤʬˤƤޤºݤ˿ݤˤ#39103ƱȤˤʤ褦˻פޤ

#39107#39108#39111#39114
1 5 ܤγĺؤΰưξο񤭹Ǥˡ

#39110
3 γĺ֤ΰưDZդ뤫ʤʬषƷ׻ˡ

#39122
Ʋ󤴤Ȥ˰βƱĺ뤫ɤʬष׻ˡ
ͥνȡ 315ڡ 15:38:02 39115
uchinyan
#39095
٤Фʤ顤ʤǤȤޤ
ޤؤν褫餷פʡȤϻפäƤޤ褫äǤ͡
ͥνȡ 315ڡ 10:57:26 MAIL:uchi@sco.bekkoame.ne.jp 39116

Ф飱ǰưǤ룵ĤĺΤΤҤȤĤܤơ飴ǣѤعԤˡͤޤ
٣Ф롼ȤΤߣ̤ꤢꡢʳΣĤĺͳ롼Ȥ줾죸̤ꡣ
ܣߣᣴ
줬¾ΣĤĺФƤ⤤Τǡ
ߣᣲ̤
#39113ιͤȤۤƱʡ
315ڡ 11:12:17 39117

#39116
꤬Ȥޤ
ؤȹʤϳȤǤΤǤѸ줬äȸäΤ
԰¤ǤʽƤ褫äǤ
ܿĻԡ 315ڡ 12:15:35 MAIL:dice-k@onyx.ocn.ne.jp HomePage:39118
hide
PεΥ0123ȤơΣ
10121112121211221222
Τ줫
ߡʣߣܣߣߣˡߣᣲ
ȡࡡ 315ڡ 12:29:08 39119
ϺĹ
ͤ¾ƱǤ
315ڡ 12:30:40 39120
ģ©
ͤιͤƱǤż֤ΰŻǤϣ
ܣߣˤƤǤ

͡ʤǤȤޤ
315ڡ 12:43:20 39121
ͼ
ޤǽ飵̤

ܤPȤ
ߣߣߣߣᣵ̤
ܤP餺ܤǣܤƱȤ
ߣߣߣߣᣴ̤
ƱͤˣܤǣܤƱ餺ܤǣܤƱȤ
ߣߣߣߣ᣶̤
ܤǣܤƱʤȤ
ߣߣߣߣ᣶̤

ޤǤ¤̤ꡣ
äȭѤäɣܤQ夷顤Ϥ⤦ưʤäƸ餤ƵĤ

ïˤ¤äƤʤ()
315ڡ 14:28:39 39122
⡼ޥ
äȤ...^^;
ꤤˡפĤ...ƻ˿ޤ...Orz...
5*{(2*(2*2+2*2)+2*(2*2+2*2)+1*5*2)}
=5*(2*16+10)
=5*42=210
ä...Orz...

ʤǤȤޤ&#9825;
!!
315ڡ 16:03:08 39123

Ф飱Ǥ륰롼פѤˣǤ륰롼פ¤ȤȡǣѤ夯ѥϣУ£ѡ£ѡ££ѡ££ѡ£££ѤΣѥǡУ£ФΤߣߣߣߣᣵ̤ꡢ¾ϣߣߣߣᣴ̤ꡢäƣܣߣᣲȤޤʵʬȰ㤦ȯۤΤ뤳ȤǤڤǤ
315ڡ 17:13:22 39124

Ǥ֣У£ФΤߡע֣У£ѤΤߡפǤ
315ڡ 17:16:15 39125

ͤȤͤƱǤ񤭹ǤߤʤΤΤɤȤѥǡǤ狼äȤǤʤν񤭹ߤޤơ̵̤̤䤷Ƥޤ
315ڡ 17:21:19 39126
???
Υޥ
Option Explicit
Dim a(5) As Integer
Sub Macro1()
'_______12
'________8
'_4---5----6---Q7
'___P1---2---3
'______9
'10---------------11
Cells(1, 1).Value = 0
a(0) = 1
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim max As Integer
Dim j As Integer
If n < 5 Then a(n) = 1: max = 12 Else a(5) = 7: max = 7
While a(n) <= max
If SIG(n) Then
If n < 5 And a(n) <> 7 Then
Call saiki(n + 1)
ElseIf n = 5 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 0 To 5
Cells(Cells(1, 1).Value, j + 2).Value = a(j)
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function SIG(ByVal n As Integer) As Integer
Dim b As Integer
b = a(n - 1)
Select Case a(n)
Case 1
SIG = -(b = 2 Or b = 4 Or b = 5 Or b = 9 Or b = 10)
Case 2
SIG = -(b = 1 Or b = 3 Or b = 5 Or b = 6 Or b = 9)
Case 3
SIG = -(b = 2 Or b = 6 Or b = 7 Or b = 9 Or b = 11)
Case 4
SIG = -(b = 1 Or b = 5 Or b = 8 Or b = 10 Or b = 12)
Case 5
SIG = -(b = 1 Or b = 2 Or b = 4 Or b = 6 Or b = 8)
Case 6
SIG = -(b = 2 Or b = 3 Or b = 5 Or b = 7 Or b = 8)
Case 7
SIG = -(b = 3 Or b = 6 Or b = 8 Or b = 11 Or b = 12)
Case 8
SIG = -(b = 4 Or b = 5 Or b = 6 Or b = 7 Or b = 12)
Case 9
SIG = -(b = 1 Or b = 2 Or b = 3 Or b = 10 Or b = 11)
Case 10
SIG = -(b = 1 Or b = 4 Or b = 9 Or b = 11 Or b = 12)
Case 11
SIG = -(b = 3 Or b = 7 Or b = 9 Or b = 10 Or b = 12)
Case Else
SIG = -(b = 4 Or b = 7 Or b = 8 Or b = 10 Or b = 11)
End Select
End Function
315ڡ 17:45:20 39127

󡧵ءǤȤ
ˤƱ̾ˡ˿ƤߤäƤޤ
顢77ФοƤˡ㤤Τ줫ԤƤޤ

äʤ귯ޤȯΣФä
ξ硢5ˡ15250
˿ʤ硢Фȡ4ܤˣѤΰ֤ãǤʤ5ܤˣѡȤȤ4ܤˡˤ뤳Ȥɬܡ
äơ5ˡ442160
50160210
ϡû֤ǽ褿

ǼĤ轵ڤǤޤ
ˡβǤΤʤȻפƤƤޤ
ϡ˸ˤ̤ޤ
317ڡ 8:38:05 MAIL:yasuhirovich@oboe.ocn.ne.jp 39128
Ȥ
p=1,q=12Ȥ
ʸβ2,7Ȥȿפޤ
3,4,5,6
8,9,10,11Ȥ
ʸǤ
///////9
/5///10///12
///4///8
//6///11
1////////7
////3
///2
basic

LET s=0
for a=1 to 1
FOR b=2 TO 6
FOR c=1 TO 11
if b=2 and ( c<>1 and c<>3 and c<>7 and c<>11 and c<>6 ) then goto 40
if b=3 and ( c<>1 and c<>2 and c<>7 and c<>8 and c<>4 ) then goto 40
if b=4 and ( c<>1 and c<>3 and c<>8 and c<>9 and c<>5 ) then goto 40
if b=5 and ( c<>1 and c<>4 and c<>9 and c<>10 and c<>6 ) then goto 40
if b=6 and ( c<>1 and c<>2 and c<>11 and c<>10 and c<>5 ) then goto 40
FOR d=2 TO 11
if c=1 and ( d<>2 and d<>3 and d<>4 and d<>5 and d<>6 ) then goto 30
if c=2 and ( d<>3 and d<>7 and d<>11 and d<>6 ) then goto 30
if c=3 and ( d<>2 and d<>7 and d<>8 and d<>4 ) then goto 30
if c=4 and ( d<>3 and d<>8 and d<>9 and d<>5 ) then goto 30
if c=5 and ( d<>4 and d<>9 and d<>10 and d<>6 ) then goto 30
if c=6 and ( d<>2 and d<>11 and d<>10 and d<>5 ) then goto 30
if c=7 and ( d<>2 and d<>3 and d<>8 and d<>11 ) then goto 30
if c=8 and ( d<>9 and d<>4 and d<>3 and d<>7 ) then goto 30
if c=9 and ( d<>10 and d<>5 and d<>4 and d<>8 ) then goto 30
if c=10 and ( d<>9 and d<>5 and d<>6 and d<>11 ) then goto 30
if c=11 and ( d<>10 and d<>6 and d<>2 and d<>7 ) then goto 30
FOR e=7 TO 11
IF d=2 AND ( e<>7 AND e<>11 ) THEN GOTO 20
IF d=3 AND ( e<>7 AND e<>8 ) THEN GOTO 20
IF d=4 AND ( e<>8 AND e<>9 ) THEN GOTO 20
IF d=5 AND ( e<>9 AND e<>10 ) THEN GOTO 20
IF d=6 AND ( e<>11 AND e<>10 ) THEN GOTO 20
IF d=7 AND ( e<>8 AND e<>11 ) THEN GOTO 20
IF d=8 AND ( e<>9 AND e<>7 ) THEN GOTO 20
IF d=9 AND ( e<>10 AND e<>8 ) THEN GOTO 20
IF d=10 AND ( e<>9 AND e<>11 ) THEN GOTO 20
IF d=11 AND ( e<>10 AND e<>7 ) THEN GOTO 20
for f=12 to 12
LET s=s+1
10 next f
20 next e
30 next d
40 next c
50 next b
60 next a
PRINT s
END

f9210̤ꡦ()
˭ԡ 318 1:00:47 MAIL:fttnm528@ybb.ne.jp 39129
pascal
ΥݥȤϡ
ָ޲ǣѤ夯֤ξʬפǤ͡( ..)ե
318 18:34:27 39130
pascal
ǽŸޤƣѤޤĤˤƲ򤤤ƤޤˡȺǽŪƻ˿뤷ʤʤäƤޤѤǤ
ΤΩŪоȤΤǤ͡ŤѤǤ
԰֤̾äƺܤäƤޤޤޤ.....
318 18:39:30 39131

ģ©Ҥ
⡼ޥ󤵤
ͤ

꤬Ȥޤ
ܿĻԡ 320ʲС 19:55:07 MAIL:dice-k@onyx.ocn.ne.jp HomePage:39132