[アーカイブ!】純粋数学、物理学、化学など:トレードとは一切関係ない脳トレ問題集 - ページ 322 1...315316317318319320321322323324325326327328329...628 新しいコメント 削除済み 2010.04.02 20:24 #3211 MetaDriver >>: Я и на васике могу в четыре-пять строк уложиться :) しています。でも、面白いかも・・・。 richie 2010.04.02 20:28 #3212 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))を実行します。 エンド・サブ richie 2010.04.02 20:31 #3213 MetaDriver писал(а)>> 彼はただのプログラマーですから...。>>まあまあ それ以上に言いたいことがある。彼は全くプログラマーではありません。 Vladimir Gomonov 2010.04.02 21:09 #3214 admin >>: Верю. Но интересно было бы взглянуть... 見てみてください... ;) ファイル: fivestring.rar 8 kb Vladimir Gomonov 2010.04.02 21:16 #3215 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行に収まります :) Ihor 2010.04.02 22:34 #3216 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 }. 削除済み 2010.04.03 09:14 #3217 MetaDriver >>: А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :) カッコイイ! Sceptic Philozoff 2010.04.03 11:06 #3218 Richie さん、このスレッドの322ページhttps://c.mql4.com/forum/2010/04/cohen.GIF にある「3つの立方体の和として30」という等式が正確に正しいかどうか、Wasikで確認してもらえますか? リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。 richie 2010.04.03 16:21 #3219 Mathemat писал(а)>> リッチー ですが、スレッドの322ページで与えられた等式「3つの立方体の和として30」かどうか、ワシクで確認することができますhttps://c.mql4.com/forum/2010/04/cohen.GIF? リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。 Doubleや Longの ような標準的なデータ型では、残念ながら何も動作しません。今となっては、卒業後、VBで独自のデータ型を作ることで、非常に大きな数字や非常に小さな数字で精密な計算ができるVB関数のライブラリを破棄してしまったことを後悔しています。 - VBでDouble 型で試したところ、でたらめになり、Excelでは0になりました。 このライブラリは単純に、数値はString 型の文字列として格納されていた。これらの文字列はByte 形式に変換された後、アクションが実行されました。もっと時間があれば、また書けるのですが。 - もしかしたら、他に何か-トリッキーな証明の仕方があるのでは? Dmitry Fedoseev 2010.04.03 16:35 #3220 Mathemat писал(а)>> Richie さんですが、スレッドの322ページで示された「3つの立方体の和として30」という等式がhttps://c.mql4.com/forum/2010/04/cohen.GIF かどうか、ワシクで確認することができます? リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。 Windowsの電卓で計算することができます。 1...315316317318319320321322323324325326327328329...628 新しいコメント 取引の機会を逃しています。 無料取引アプリ 8千を超えるシグナルをコピー 金融ニュースで金融マーケットを探索 新規登録 ログイン スペースを含まないラテン文字 このメールにパスワードが送信されます エラーが発生しました Googleでログイン WebサイトポリシーおよびMQL5.COM利用規約に同意します。 新規登録 MQL5.com WebサイトへのログインにCookieの使用を許可します。 ログインするには、ブラウザで必要な設定を有効にしてください。 ログイン/パスワードをお忘れですか? Googleでログイン
Я и на васике могу в четыре-пять строк уложиться
:)
しています。でも、面白いかも・・・。
まさか...。
そして、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))を実行します。
エンド・サブ
彼はただのプログラマーですから...。>>まあまあ
それ以上に言いたいことがある。彼は全くプログラマーではありません。
Верю. Но интересно было бы взглянуть...
;)
(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
}.
А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :)
カッコイイ!
リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。
リッチー ですが、スレッドの322ページで与えられた等式「3つの立方体の和として30」かどうか、ワシクで確認することができますhttps://c.mql4.com/forum/2010/04/cohen.GIF?
リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。
Doubleや Longの ような標準的なデータ型では、残念ながら何も動作しません。今となっては、卒業後、VBで独自のデータ型を作ることで、非常に大きな数字や非常に小さな数字で精密な計算ができるVB関数のライブラリを破棄してしまったことを後悔しています。
-
VBでDouble 型で試したところ、でたらめになり、Excelでは0になりました。
このライブラリは単純に、数値はString 型の文字列として格納されていた。これらの文字列はByte 形式に変換された後、アクションが実行されました。もっと時間があれば、また書けるのですが。
-
もしかしたら、他に何か-トリッキーな証明の仕方があるのでは?
Richie さんですが、スレッドの322ページで示された「3つの立方体の和として30」という等式がhttps://c.mql4.com/forum/2010/04/cohen.GIF かどうか、ワシクで確認することができます?
リッチー この場合の「正確」は、誤差ゼロの絶対正確の ことで、「ディオファントス方程式」の本に載っている整数の等式のことです。
Windowsの電卓で計算することができます。