[アーカイブ！】純粋数学、物理学、化学など：トレードとは一切関係ない脳トレ問題集 - ページ 322

新しいコメント
 
MetaDriver >>:

Я и на васике могу в четыре-пять строк уложиться

:)

しています。でも、面白いかも・・・。

 
admin писал(а)>>

まさか...。
そして、perlのアルゴリズムはこんな感じです。


for(111..999){
split(//,$_);
my($sum,$mul)=(0,1);
for(@_){$sum+=$_;$mul*=$_;}
print("$_\n") if($sum*12==$mul);
}


BASICとの付き合いは約18年。しかし、あなたが書いたものは、私には理解することすらできません。Perlを知らない。一般にBASICでは、このようにほとんどすべてをモジュールで隠すことができれば、さらに楽なのですが。
-
Private Sub Command1_Click()
 Me.PrintList(MathMod.OtnProSum(1,1e5))を実行します。
エンド・サブ

 
MetaDriver писал(а)>>

彼はただのプログラマーですから...。>>まあまあ

それ以上に言いたいことがある。彼は全くプログラマーではありません。

 
admin >>:

Верю. Но интересно было бы взглянуть...

見てみてください...
;)
ファイル:
fivestring.rar  8 kb
  
Private Sub FindAllButton_Click()
  For i = 111 To 999
    If ((1# * (i Mod 10) * ((i Mod 100) \ 10) * (i \ 100)) / (i Mod 10 + (i Mod 100) \ 10 + i \ 100) = 12) Then Range("c4").Value = i
  Next i
End Sub
そしてこれが、実は、カウントのアルゴリズムなのです。"Pure algorithm "は、タイトルとクロージングEnd functionを除けば、3行に収まります :)
  
rubyでは(通常のbigintは)どんなサイズnでもあります。:)
n=6;
(10**(n-1)..10**n-1).each{|i|
sum=0;mul=1
(1..n).each{|s|
d=i%10**s/10**(s-1)
sum+=d;mul*=d
}
if mul/sum==12
print i,"\n"
end
}.
 
MetaDriver >>:
А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :)

カッコイイ!

 
Richie さん、このスレッドの322ページhttps://c.mql4.com/forum/2010/04/cohen.GIF にある「3つの立方体の和として30」という等式が正確に正しいかどうか、Wasikで確認してもらえますか？
リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。
 
Mathemat писал(а)>>
リッチー ですが、スレッドの322ページで与えられた等式「3つの立方体の和として30」かどうか、ワシクで確認することができますhttps://c.mql4.com/forum/2010/04/cohen.GIF?
リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。



Doubleや Longの ような標準的なデータ型では、残念ながら何も動作しません。今となっては、卒業後、VBで独自のデータ型を作ることで、非常に大きな数字や非常に小さな数字で精密な計算ができるVB関数のライブラリを破棄してしまったことを後悔しています。
-
VBでDouble 型で試したところ、でたらめになり、Excelでは0になりました。
このライブラリは単純に、数値はString 型の文字列として格納されていた。これらの文字列はByte 形式に変換された後、アクションが実行されました。もっと時間があれば、また書けるのですが。
-
もしかしたら、他に何か-トリッキーな証明の仕方があるのでは？

 
Mathemat писал(а)>>
Richie さんですが、スレッドの322ページで示された「3つの立方体の和として30」という等式がhttps://c.mql4.com/forum/2010/04/cohen.GIF かどうか、ワシクで確認することができます？
リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。


Windowsの電卓で計算することができます。
1...315316317318319320321322323324325326327328329...628
新しいコメント