QuesTion
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
NetaTaneMenu
*質問!情報求む?のコーナー(1)
**累乗の計算の回数について
例えば3^7を計算するのに、単純に掛ければ6回の掛け算が必...
3×3×3×3×3×3×3
でも、実際には 3×3=9 9×9=81 81×3=243 243×3=729
という具合に計算するわけですから、4回の掛け算で済みます。
質問その1、7乗を掛け算だけで計算するのに掛け算は4回...
(掛け算3回で8乗を計算してから3で「割る」なんて...
質問その2、n乗するときに必要な掛け算の回数を求める関...
(2003.7.30.むらい)
COLOR(#006789){この問題をみると,昔のプログラミングの心得...
COLOR(#fe891c){そうなんですよね。ネット上をいろいろと探す...
COLOR(#006789){考えれば考えるほど、って大して時間をかけて...
COLOR(#fe891c){やっぱり家の環境では書き込めなくて報告遅れ...
COLOR(#fe891c){それから[[数列百科事典:http://www.research...
COLOR(#fe891c){ついでですから、途中までの[[表>ShortestAdd...
COLOR(#006789){さすが!やってますねえ。ちょっと興味を持っ...
COLOR(#006789){Ruby はAI的な言語ではないので,LISP とはセ...
a0 = 3; n = 9; a0 ^ n ~
sprintf("--------") ~
a1 = a0 * a0; a11 = a1 * a1; a11 * a11 * a0 ~
sprintf("-------") ~
a2 = a0 * a0 * a0; a2 * a2 * a2 ~
----
COLOR(#fe891c){さあて、Rubyは最適なプログラム?を意識しな...
COLOR(#fe891c){Rubyistな方は添削してみてください。再帰が...
# The Shortest Addition Chain List Program
tsacl=[[1]]
newcl=[]
numl=[1]
ll=[[1]]
dcl=tsacl
k=0
while k<16 <<<===ここはお好みの自然数を。ちなみに学校...
k=k+1
newnuml=[]
for c in dcl
t=c[-1]
for x in c
na=t+x
if not numl.include?(na) then
newc=c+[na]
newcl=newcl+[newc]
if not newnuml.include?(na) then
newnuml=newnuml+[na]
end
end
end
end
print "."
tsacl=tsacl+newcl
ll=ll+[newnuml]
numl=numl+newnuml
dcl=newcl
newcl=[]
end
print "\n"
p numl
for l in ll
p l
end
総当りのプログラムです。
tsaclはTheShortestAdditionChainのListです。
「最適」なものだけですが、複数あればすべて入ります。結果...
終了行:
NetaTaneMenu
*質問!情報求む?のコーナー(1)
**累乗の計算の回数について
例えば3^7を計算するのに、単純に掛ければ6回の掛け算が必...
3×3×3×3×3×3×3
でも、実際には 3×3=9 9×9=81 81×3=243 243×3=729
という具合に計算するわけですから、4回の掛け算で済みます。
質問その1、7乗を掛け算だけで計算するのに掛け算は4回...
(掛け算3回で8乗を計算してから3で「割る」なんて...
質問その2、n乗するときに必要な掛け算の回数を求める関...
(2003.7.30.むらい)
COLOR(#006789){この問題をみると,昔のプログラミングの心得...
COLOR(#fe891c){そうなんですよね。ネット上をいろいろと探す...
COLOR(#006789){考えれば考えるほど、って大して時間をかけて...
COLOR(#fe891c){やっぱり家の環境では書き込めなくて報告遅れ...
COLOR(#fe891c){それから[[数列百科事典:http://www.research...
COLOR(#fe891c){ついでですから、途中までの[[表>ShortestAdd...
COLOR(#006789){さすが!やってますねえ。ちょっと興味を持っ...
COLOR(#006789){Ruby はAI的な言語ではないので,LISP とはセ...
a0 = 3; n = 9; a0 ^ n ~
sprintf("--------") ~
a1 = a0 * a0; a11 = a1 * a1; a11 * a11 * a0 ~
sprintf("-------") ~
a2 = a0 * a0 * a0; a2 * a2 * a2 ~
----
COLOR(#fe891c){さあて、Rubyは最適なプログラム?を意識しな...
COLOR(#fe891c){Rubyistな方は添削してみてください。再帰が...
# The Shortest Addition Chain List Program
tsacl=[[1]]
newcl=[]
numl=[1]
ll=[[1]]
dcl=tsacl
k=0
while k<16 <<<===ここはお好みの自然数を。ちなみに学校...
k=k+1
newnuml=[]
for c in dcl
t=c[-1]
for x in c
na=t+x
if not numl.include?(na) then
newc=c+[na]
newcl=newcl+[newc]
if not newnuml.include?(na) then
newnuml=newnuml+[na]
end
end
end
end
print "."
tsacl=tsacl+newcl
ll=ll+[newnuml]
numl=numl+newnuml
dcl=newcl
newcl=[]
end
print "\n"
p numl
for l in ll
p l
end
総当りのプログラムです。
tsaclはTheShortestAdditionChainのListです。
「最適」なものだけですが、複数あればすべて入ります。結果...
ページ名: