5ǽˤȤ롧3!=6
52ܤˤȤ롧4*2=8
53ܤˤȤ롧4*3=12
5ǸˤȤ롧4*3*2=24
­50
ܿĻԡ 104ڡ 0:13:09 39860
ߤ
#39860ʤ
βˡƱͤˡܤˤȤ뤫ǾʬǤ
Ǹ˲Ĥ뤫ǾʬȤɤä᤯򤱤
104ڡ 8:12:06 39861

Ǹ˺ü˻ĤǾʬޤ
Ĥ硡̤ꡡʣ
Ĥ硡̤ꡡʣࣲ
Ĥ硡̤ꡡʣߣ
Ĥ硡̤ꡡʣˡף̤

裲롼ס 104ڡ 0:20:27 HomePage:39862
abcba@baLLjugglermoka
ʬϺǸ˻Ĥ14ξǹͤޤ
104ڡ 0:48:56 39863
⡼ޥ
ä...^^;
5-4321...1*3!=6
5-5-abc...4*2!=8
5-5-5-ab...4*3*1=12
5-5-5-5-a...4!=24

=6+8+12+24=50
äΤ...Orz...

#39680 #39861 ߤ󤵤ƱǤ......but...Ķ...
104ڡ 1:30:39 39864
HirotakaUEDA
׹Ͳ54321ΤΤǤϤʤ54321ȤȤä5οȴ㤤Ƥޤܥ򤫤ޤƤޤޤ
ǥ쥹ߥ򻳤ۤɡ
ʤƥХʤ錄

ϡʡɡɤǰϤޤ줿Ǹ˻ĤǾʬ򤷤ޤ
543214̤ʣˣ뤫顢ɤν֤ǾäƤդ
54321äɬ4äʤФʤʤΤ
5ֺǽ˼äʤ
5ܤ˼ä2̤
5ܤ˼ä4̤(4ǽˤȤäȤΤɤ餫ʤΤǣ̤12Τɤ餫μäȤǣ̤
ܤ˼ä6ʤɤʤդ˿̤Ƥդ
2+4+612̤

. 543"2"1äɬ4Τ줫äʤФʤʤΤ
ֺǽˤȤ뢪ʤ
ܤˤȤ뢪ʤ
ܤˤȤ뢪2
ܤˤȤ뢪6ʤɤʤդ˿̤Ƥդ
2+68

4.5432ɣɢ3ʣȣδ֤οϤɤΤ褦˰̤ƤɤΤǡ

ä24+12+8+650̤

Ȥʤޤ
104ڡ 1:40:04 39865
HirotakaUEDA
#39865Ǥ
543"2"1äɬ4Τ줫äʤФʤʤΤ
543"2"1äɬ4ȣξäʤФʤʤΤ

餷ޤ
104ڡ 1:44:19 39866
HirotakaUEDA
#39865Ǥ
4.5432ɣɢ3
4.5432ɣɢ3
104ڡ 1:52:08 39867

#39860ƱǤ
5֤ǹͤޤ
104ڡ 2:13:25 HomePage:39868
̤ꤹ
ïץ񤭹ǤʤΤǡäȡBASICʤ餳ʴʤ

CALL remove("12345", "", count)
PRINT count
END
EXTERNAL SUB remove(s$, op$, count)
LET p$ = op$
IF POS(p$,left$(s$,1)) = 0 THEN LET p$ = p$&left$(s$,1)
IF LEN(s$) > 1 THEN
FOR i = 1 TO LEN(s$)
CALL remove(SUBSTR$(s$,1,i-1) & SUBSTR$(s$,i+1,LEN(s$)), p$, count)
NEXT I
ELSE
IF LEN(p$) = 2 THEN LET count = count+1
END IF
END SUB
104ڡ 8:32:56 39869

ܤˣǾʬޤ

ܤ3*2=6̤
ܤ4*2=8̤
ܤ4*3=12̤
ܤ4*3*2=24̤

­50̤
104ڡ 8:55:00 39870

#39860ƱˡǤ
104ڡ 9:12:28 39871

˾ʬ
ϣߣߣߣᣲ̤
ϣߣߣߣᣱ̤
ϣߣߣߣᡡ̤
ϣߣߣߣᡡ̤ꡡǣ̤ˤʤޤ
104ڡ 9:21:57 39872
uchinyan
Ϥˤϡơϡ
Τ褦˲ޤˡꤽǤ괺ƻ˹ͤޤ
˻פդˡȤƤϡĤꤽ˻פޤ

(ˡ1)
Ǹ˲Ĥ뤫ܤޤ
4 Ĥ硧
5321 ɤν֤˼äƤ⤤Τǡ4! = 24 ̤ꡣ
3 Ĥ硧
5 4 äƤǤʤȼޤ
ǽ 4 Ȥ521 ɤν֤˼äƤ⤤Τǡ3! ̤ꡣ
ǽ 2 Ȥ
4 С51 ɤν֤˼äƤ⤤Τǡ2! ̤ꡤ
1 С45 ν֤˼뤷ʤΤǡ1 ̤ꡣ
ǽ 1 Ȥ
4 С52 ɤν֤˼äƤ⤤Τǡ2! ̤ꡤ
2 С45 ν֤˼뤷ʤΤǡ1 ̤ꡣ
ɡ 3! + (2! + 1) * 2 = 12 ̤ꡣ
2 Ĥ硧
5 43 äƤǤʤȼޤ
ǽ 4 Ȥ
3 С51 ɤν֤˼äƤ⤤Τǡ2! ̤ꡤ
1 С35 ν֤˼뤷ʤΤǡ1 ̤ꡣ
ǽ 3 Ȥ
4 С51 ɤν֤˼äƤ⤤Τǡ2! ̤ꡤ
1 С45 ν֤˼뤷ʤΤǡ1 ̤ꡣ
ǽ 1 Ȥ43 ɤν֤˼äƤ褯θ 5 Τǡ2! ̤ꡣ
ɡ (2! + 1) * 2 + 2! = 8 ̤ꡣ
1 Ĥ硧
5 432 äƤǤʤȼޤ
ǡ432 ɤν֤˼äƤ褯θ 5 Τǡ3! = 6 ̤ꡣ
ʾǤ٤ƤʤΤǡ
24 + 12 + 8 + 6 = 50 ̤
ˤʤޤ

(ˡ2)
ܤ 5 뤫ܤޤ
ܤ 5 硧
4 Ĥʤ321 ɤν֤˼äƤ⤤Τǡ3! = 6 ̤ꡣ
ܤ 5 硧
ܤ 4 1 Τ줫Τ 4 ̤ꡤܰʹߤϺüʳɤν֤˼äƤ⤤Τǡ2! = 2 ̤ꡤ
ɡ4 * 2 = 8 ̤ꡣ
ܤ 5 硧
ܤޤǤ 4 1 Τ줫ĤΤ 4 * 3 = 12 ̤ꡤܤϱüΤǡ1 ̤ꡤ
ɡ12 * 1 = 12 ̤ꡣ
ܤ 5 硧
ܤޤǤ 4 1 Τ줫ĤΤ 4 * 3 * 2 = 24 ̤ꡤǽʤΤǡ
ɡ24 ̤ꡣ
ʾǤ٤ƤʤΤǡ
6 + 8 + 12 + 24 = 50 ̤
ˤʤޤ

(ˡ1)(ˡ2)Ȥ˵§ϸΤǤ٤¤Ǥϡ(ˡ2)ʬ䤹
4!/4 + 4!/3 + 4!/2 + 4!/1
Ƚ񤱤Τ⡤ξǤ⡤̣Ūˤ⡤ۤȤ餫ǡ̲⸫Ƥޤ͡
äȤ⡤̤ˤμޤȤޤäǽ񤯤Τ񤷤Ǥ
ͥνȡ 104ڡ 12:39:59 MAIL:uchi@sco.bekkoame.ne.jp 39873
uchinyan
ǼĤɤߤޤ

#39860#39861#39864#39868#39870#39872#39873(ˡ2)
ܤ 5 뤫Ǿʬ򤷤Ʋ򤯲ˡ

#39862#39863#39865#39873(ˡ1)
Ǹ˲Ĥ뤫Ǿʬ򤷤Ʋ򤯲ˡ

#39869
ץˤˡ
ͥνȡ 104ڡ 12:58:33 MAIL:uchi@sco.bekkoame.ne.jp 39874
hide
ʵ¸ʸȤäƤޤ
ܤΣߣߣߣ
ܤˣ߭ߣߣ
ܤˣߣ߭ߣ
ܤˣߣߣ߭
äƷף
104ڡ 13:17:33 39875
̤ꤹ
ĤExcelޥˤˡޤϤʤߤǤ͡ʴǤɤǤ礦

Public Sub q180()
Cells.Clear
Dim count As Integer
Dim trace(1 To 5) As String
remove 0, trace, "54321", "", count
Cells(1, 1) = count
End Sub
Private Sub remove(n As Integer, trace() As String, numbers As String, firstOrig As String, count As Integer)
trace(n + 1) = numbers
Dim first As String
first = firstOrig
If InStr(first, Left(numbers, 1)) <= 0 Then first = first + Left(numbers, 1)
If Len(numbers) > 1 Then
Dim i As Integer
For i = 1 To Len(numbers)
remove n + 1, trace, Mid(numbers, 1, i - 1) + Mid(numbers, i + 1), first, count
Next
Else
If Len(first) = 2 Then
count = count + 1
For i = LBound(trace) To UBound(trace)
Cells(count, i + 1) = trace(i)
Next
End If
End If
End Sub
104ڡ 15:34:37 39876
uchinyan
ؤˤʤޤ

(ˡ3)
n οξ a(n) ̤Ȥȡ
ǽ n äϡ餫 (n-2)! ̤ꡤ
ǽ n ʳäϡɤ뤫 n-1 ̤ꡤθ n-1 ξƱʤΤ a(n-1) ̤ꡤ
Ȥʤäơ
a(n) = (n-1) * a(n-1) + (n-2)!a(1) = 0
ǡ
a(2) = 1 * a(1) + 0! = 1 * 0 + 1 = 0 + 1 = 1
a(3) = 2 * a(2) + 1! = 2 * 1 + 1 = 2 + 1 = 3
a(4) = 3 * a(3) + 2! = 3 * 3 + 2 = 9 + 2 = 11
a(5) = 4 * a(4) + 3! = 4 * 11 + 6 = 44 + 6 = 50
Ȥʤäơ50 ̤ꡣ

ʤ餫ˡ
a(n) = (n-1)! * [k=1,n-1]{1/k}
Ǥ͡
ͥνȡ 104ڡ 18:26:19 39877
ϥ饮㡼ƥ
120̤οȴΤǤ٤Ƥξ򸡻ץȤ⤦ȤΤǤ
ݤǿ̤Ƥޤ
104ڡ 22:07:41 HomePage:湩ؤ˥39878
fumio
Ϥ褦ޤǤϤǤϡ
105ʶ 5:51:41 39879