宿題、チューリングの泥沼、条件不足等回避のため
お題
サイコロの偏りをもっと明確にしたいなら、乱数エンジンを複数持つか、ランダムデバイスそのもので実行する。
一様乱数のサイコロは、現実では職人が作ったサイコロですなあ。
お題: 炭素原子C, 酸素原子O, 水素原子Hという三種類の原子をそれぞれいくつか組み合わせて、非イオンの分子を作る。C, O, Hの結合の手の本数は、それぞれ四本、二本、一本である。
出題者は自分で解けることを確認してからお題にしてるのかね？
慣れない言語の勉強に使うのに丁度いいね
良いプログラムは良い数式がないと作れないのでこのスレは過疎化する。
久々にこの板きたけど、宿題スレってなくなったんだね
解空間は、サイズ(p+q+r)×(p+q+r)の整数行列の集合になる。
お題: xのn次式を簡潔に表現できる関数を書け(rationalじゃなくてもOK)
>>13 >>9 >>14 お題: 1 + 1 を計算させて 3 と出力させなさい
>>23 Perl5 >>23 >>23 >>23 ruby >>23 お題、東大入試 VIDEO >>29 ・女体限定で、3次元の写真から3Dポリゴンモデルデータを自動作成
プログラミングのお題スレ Part14 http://2chb.net/r/tech/1558168409/981-986 自分でスタックするか再起にして自動で積ませるか、といったところか。
ideone バグっているのか？
twitterやっていたようなので
>>38 年収n円の人が生活費と交遊費2種類だけで1年間の収入のすべてを消費するとして
>>42 切り上げか
何も考えずにceiling(n/1.08-n/1.1)でいいんとちゃうけ？
>>32 Ruby >>45 お題: 数字が与えられるので、その数字を元の数より大きくなるように再構築せよ
123を入力したときに132が出力されないのはなぜ?
https://ideone.com/pgG7pT 「大きくできなければ元の数字をそのまま出力せよ」という条件が
>>48 Perl5 https://ideone.com/qeSGDm >>57 ごめんなさい >>58 そうすると逆に >>48 Perl5、iteratorじゃなくpermutationを列挙する方法で書いてみた。これなら題意に合うはず。 https://ideone.com/1Lft75 >>48 Squeak/Pharo Smalltalk >>56 で指摘したのに誰も反応してくれないので自分で書く >>54 は、「133」と入れると[313,331,313,331]みたいに結果がダブる >>62 >>48 >>63 >>60 も桁に重複があると出力はﾀﾞﾌﾞるよ。 あ、そうだった。文字列だと自分より大きいを表現するのがめんどくさいのでした。
>>70 >>73 >>73 >>73 Squeak/Pharo Smalltalk >>73 >>73 >>73 Perl5 お題: 太陽系の各天体の位置を物理シミュレーションし、64日後の地球の位置を求めよ。
俺たちって計算能力でコペルニクスを超えられると思う？ NASAのデータがあるから昔よりも楽だと思うけど。
>>73 Perl5、 >>80 よりこっちの方が若干スマート >64
Perlって読みにくいんだな
grep 内のboolian から最後の , 1 を取り除いたら
@b = grep {$n < $_ and {$n = $_}} @a;
この方がいいだろ
お題：
>>91 Perl5 >>91 Ruby typo
>>91 ruby >>91 Perl5 >>92 よりもう少しシンプルに 昔々Cで数独解くやつ普通に作ったことあるけど普通に作っても人間の感覚では一瞬にして答えが出ちゃうんだよな。ほとんどEnterキー押したらすぐ出る感じ。
#include <map>
#include <map>
どうでもいいのですけど、MITライセンス。知ってますね。
お題: 論文「数独パズルの難易度判定」(大阪工業大学)を読んで、数独の難易度を判定するプログラムを作れ。
>>108 >>91 Pharo/Squeak Smalltalk >>91 Perl5 >>97 もう少しスマートに >>91 >>91 >>115 を修正した >>118 お題: 任意の2桁の自然数の各桁を、1桁になるまで掛け算する回数の最大回数とその数を示せ
>>120 >>120 Ruby 1桁以上に拡張してみた >>120 Squeak Smalltalk （Pharo では若干の修正が必要） >>120 python >>120 Ruby >>120 Perl5 2x7x7x7x7x7x7x8x8x8x8x8x8x9x9=4996238671872
元のお題は2桁の自然数なのでそれよりも桁が多いならその場合のルールも決めないとダメだろうな。
> 2x7x7x7x7x7x7x8x8x8x8x8x8x9x9=4996238671872
15=>(5 1)
>>120 Perl5 お題: オカダンゴムシには進行中に壁にぶつかると左へ、次は右へ（あるいは右へ、次は左へ）と交互に曲がっていく習性がある。この行動は「交替性転向反応」といい、左右に交互に曲がる事で天敵から逃げられる確率を高めているといわれている(ウィキペディアより引用)。
>>137 ヒント: 最初、スタートとゴールを囲むように壁を仮設する。ぶつからない壁は要らない。
ダンゴムシはx軸方向です。y軸は数学と同じ上向きを仮定してます。
Y+がビジュアライズして上になるかはビジュアライザーの挙動次第なのでいいのだけど。
あ、もう一つあるんだ。
> ただし、ダンゴムシは最初は右向きを向いていて、最初にぶつかったら左に曲がるものとする。
>>142 すみません。見落としていました。
世界はクソにあふれている！ 何てこった！ この状況を！ この状況を変えるためには、クソをせずに生きれる仕組みを！ 皆様と一緒にクソをせずに生きれる仕組みを、実現して！ 行きましょう！
それよりも交替性転換反応とやらが本当に生存確率を高めるのか
FPSのレレレ撃ちでしょ
あなた達は、実は自分で思っているほど
>>151 >>151 スタート地点に壁を作ってるみたい。アルゴリズムの詰めが甘いようだ。
>>160 お題: 壁で囲まれた何もない有限の部屋(面積5m^3前後)の中に、四方向に距離センサーが付いた、丸い形のお掃除ロボット(直径20cm)がある。
直径20cmが入り込めない隙間は無視、もしくは壁と見なす。
>>164 >>160 4個目のスタート地点の壁を許しても、3個目の答えが間違えてるやん？
>>171 動的ターン制って考えは思いつかんかった >>155 でも問題ないな 部屋の形を表すビットマップ画像、もしくは一個以上の多角形でいいよ。
>>173 >>182 俺のとあってるし多分いいんじゃね？わからんが >>5-6 の時点で出題者からの突っ込みがないのが気になる >>186 お題：値が変更不可能でインデックスだけ参照できるシャッフルされた配列を何らかの方法でソートする。その際配列や値のコピーは取れない。 https://ideone.com/4S932i >>189 Perl5 激お題：自動プログラミングプログラムを作るか日本語で説明せよ。方法は各自の言語にゆだねる。 https://ideone.com/2UWc8g >>190 >>191 ナンジャそれは、お題でもなんでもない。 まず日本語の勉強をして出直してこい。 >>193 >>195 まず自動プログラミングプログラムってなんだよ
「自動プログラミング」「プログラム」ですが何か。
1文字ごとにカンマが入って空白or改行を使わないプログラミング言語ってなんだろう…？
>>199 >>201 >>201 字数が増えれば増えるほど遅くなる、の遅くなり具合がわかってない気がする
>>205 >>206 設問が悪い。
>>200 自動プログラミングが何で数字の羅列なんだよ。 >>209 >>208 とりあえず、絶不評なので>>191 は終了します。 ガチでやるなら遺伝的アルゴリズムで遊んだほうが面白そうな話題ではある。
ネットでプログラムとかコードとかの記事検索して予約語が含まれるセンテンスをコピペするプログラムとかどう？(ﾟ∀ﾟ)＜これを自動プログラミングと呼べるかどうか知らんけど
>>212 >>214 お題: 入力として任意の長さのバイト列(半角アルファベット)が与えられる。入力を左から読み取っていくとき、
mousukosikangaetekarasyutudasisiroyokusokotega
>>219 >>222 ちゃうやろJK
お題
>>228 >>228 Ruby >>228 Google Sheets >>228 >>228 Pharo/Squeak Smalltalk 遅いけど perl5
>>91 >>228 Perl5 a = 0 >>228 Lua >>228 お題 >>228 を求めることができる >>238 ）を書いて time perl -e 'for (1..100_000_000) { print if s{\A (.) \1* \z}{$& }x }'
>>245 Pharo/Squeak Smalltalk >>245 Perl5、１千万以下、CPU: Core i5 M520@2.4GHz >>120 >>245 c99、 Core i5 M520@2.4GHz ぶー！！！
>>245 >>244 )は数列を作るｱﾙｺﾞﾘｽﾞﾑ。 お題: nバイトのデータxをビット列にして出力しなさい
>>257 Perl5 >>259 >>259 ｺﾋﾟﾍﾟミス >>120 >>125 みたいに、1桁になるまでの変化の様子もリストで渡すようにした。 out:
>>257 Ruby typo
>>228 数学的な解き方わからず
a=2 b=1で 3^x + 4^y = 5^z
出てくる文字、a b x y z はすべて自然数、正の整数です
a > b > 0 なの？
すべて1以上の整数として、
指数2だと必ず成立するのはこれだからです https://nue2004.info/knowledge/knowledge97.htm ＼ / .::::::::::::::::::::::::;;:;;::,ｯ､::::::::: ) く 数 す
どう考えてもスレチだよなぁ
このスレは数学嫌いな奴多いなぁ
むしろこのスレは本当にコンピューター使わないと解けないような
掛け算があるので加速的に左の解が増えるので追い付かなくなる予感。
(a^2 - b^2)^x + (2ab)^y=0
>>285 >>257 Ruby 自分で移項して解こうと思ったがキャパ超えててギブアップ。 >>286 >>288 数学ダメなのでセオリー知らないんだけど。マジ解らん。
あと、ちょっとだけ。 >>289 >>284 >>293 直しました。 演算誤差ではないか 誤差で=になるレベルじゃない
多倍長無いと証明には至らないな。
あ、doubleからstd::size_tになってたｗ
色々弄ってみたけど、これで凍結しておくわ。
>>291 >>301 >>277 x=y=z=2以外の解があるか?
>>304 あーこりゃ致命的に頭悪い奴か
日本数学会に提出する前に
お題: 平面上にいくつかの円 (内部も含む円) がある
それ円周率パイとネイピア数のe の積が
>>315 例として313が N=4 で、それを与える円4つが
>>273 >>306 >>272 の問題文を良く見なさい >>319 >>272 を見ただけでは>>306 の全ての質問に答えられないことは明白なのに何いってんの？ 5chはペアプレイではなくマルチプレイということをお忘れなく。
>>318 かいてから考えたら間違ってるところがでてきた
いやあってた
>>314 少なくとも自分はAOJで見た記憶がある
>>313 自作かとおもってたがWikipediaにほぼおなじのあった。解は指数2に限るという。
Jesmanowicz予想で検索 https://kaken.nii.ac.jp/grant/KAKENHI-PROJECT-11J05674/ 完全解決してないが、結構解けてるらしい https://www.waseda.jp/sem-wnt/kako/pdf2014/20140516.pdf 置く場所の最大サイズ２０００＊２０００くらいまでだとprocessingとかで半透明の円を重ね合わせれば一番濃いところが正解だから合ってるかどうかだいたい見て分かる
>>327 ,331-332 >>334 >>326 材料グループAと材料グループBがあるとする。
>>339 A:大<->小
なるほど、とても簡単な問いだったのですね。
diff のアルゴリズムがもうちょっと複雑なのにも対応できるやつじゃなかったか？
あー、差が以下か。
必ずマッチングできない100ずつあったとした場合でも昇順ソートして同じ順位にいるもので、比較してマッチングできれば実施、できなければ上位を参照してマッチングできたら抜けて、できなければさらに上位とマッチングみたいなことをすれば良いのか。
あっ違う違う。
>>347 ないですね。
全てマッチングできるとは限らず最も多くマッチングできる組み合わせ
皆さんありがとう。 >>350 大したコードではないが、そこまで威力があるとは思わなかった。
お題: ある会社の営業曜日(複数可)と営業時間が与えられる。今月１ヶ月の営業時間の合計を求め、今月のカレンダーの下に表示せよ。ただし、その会社は祝日・祭日を特別扱いしないものとする。
>>354 そもそもeigenvalueじゃないのに固有値と言うのに違和感を覚える
わからんな
>>357 >>362 ３倍早いだけだったらオーダーが変わらねーじゃん
>>363 お題: 質問文とn個の項目からなるメニューを実装せよ。
お題: マイ ドキュメントのフォルダ階層構造を表示せよ。
>>373 Perl5 >>373 Pharo/Squeak Smalltalk >>373 Ruby >>373 Pharo/Squeak Smalltalk >>373 >>373 >>219 Perl5 ほらまぁ
あいや、表じゃなくて図か。
>>373 javascript >>373 >>379 のブロック内で処理するのが分かりやすかったので、Haskellもprint以外の処理をリスト内包表記で完結するようにした。 >>383 より増えるが、読みやすさ優先。 Smalltalkはやりたいことだけ書けばいいのがいい
分かったよじゃあoverlappingPairsCollect実装するよ…
ああ… forの前にif (!head) return overlappingPairs; のearly return入れ忘れた…
>>397 お題
>>399 >>377 みたいにキレイに書けない。 >>400 Perl5 >>402 その例ではいいけど C++とJSとの違いは大雑把に言って、使う型を先に決めるか後で決めるか。という程度だと思う。
>>400 JavaScript >>400 Squeak Smalltalk >400 Ruby
>>409 補足 >>400 >>400 Perl5、>>402-403 の修正、>>413 のように UpperCamelCase など_を含まない文字列はそのまま返す >>414 ｺﾞﾒﾝ、実行結果貼り間違えた（下記のように最後のOdAi00_9_9TeSTはそのまま出る） >>412 Perl5 >>412 >>412 Ruby >>412 JavaScript >>373 J >>412 J >>412 >>412 Tcl >>427 tcl/tkで「tk部分ははいいがtclがクソ」みたいなのよく見た気がするんだけど、あれどういうとこが根拠なん？
お題: すべての人民は和平のために火急的に速やかに自己の復元を実現しなければならない。
>>412 Io >>419 >>420 >>412 Python >>429 >>412 Python a~f >>436 それをゆうなら、encrypterの方が自然じゃん。
EnCrypterか。了解。
EnCrypterはおかしい
>>444 >>432 >>419 のほうが力量が上 >>426 Perl 5.30 zipとunzip関数があるからそれで偶数と奇数に分ければいい
>>412 Prl5 (≦5.28)、配列の添字を0始まり以外にする$[ (array_base feature)を使用 >>412 R >>449 お題: 文字列が渡されるので文字vの左隣の文字を小文字、右隣の文字を大文字に変換しなさい
>>456 お題:１から１００までの自然数がある。ランダムに30個抜き出せ。
>>460 Ruby >>460 >>460 Perl5、※選択に重複がないようにした >>460 J >>460 Pharo/Squeak Smalltalk プログラム言語標準の文字列(e.g. java.lang.String) が与えられ、ランレングス圧縮した結果をプログラム言語標準の文字列で返す関数を作成してください。ただし、入力に数字が入っていた場合のケースは考慮しなくても構いません。
あうあうあー -> あうあうあー
python に あ2い2う2
>>467 >>467 JavaScript >>467 Perl5 >>467 Perl5、しくった、お題は「関数を作れ」だった…orz >>467 Ruby >>432 Ruby むずかし過ぎワロタｗｗｗ
>>478 >>480 >>483 お題: 明日の東京都の天気を教えてくれる「お天気ねえさん」を実装せよ。 https://www.drk7.jp/weather/ ある種のデータは石油のように重要だから、データ自動生成は条件が揃えばお金儲けにつながる。まあ、とことんチャレンジしたまえ。
google の検索結果を 10 づつ合計 1000 件ダウンロードするプログラム
>>467 Lua >>467 >>485 Perl5 (LWP::UserAgent、LWP::Protocol::https、XML::Simple のinstallしてあるPCで) https://www.drk7.jp/weather/xml/$pno.xml "; 実行結果(例) http://www.drk7.jp/weather/xml/13.xml お題
>>496 >>496 Ruby >>489 >>500 >>496 J http://appmarketinglabo.net/osaka-bakurotalk/ お題: 同じ文字列がいくつあるか数えるプログラムを作成しなさい。
>>504 Perl5 >>504 うほっ。C++のunordered_mapはオーダー要求しないから、そこを使って最適化物故むとかやるんかいな。
>>496 Perl5 >>504 Ruby お題：正の整数が与えられるので、英語の序数に変換せよ
>>514 Perl5 >>514 Perl5、 >>515 はもう少しコンパクトに書けた 1st 2nd 3rd
>>514 Perl5、>>519 で指摘された誤りの修正 ﾃﾍﾍﾟﾛ お題: 与えられた西暦年月日を年号年月日に変換しなさい。ただし、変換するのは大正時代から令和までとし、範囲外であればERRORを表示しなさい。
お題: YYYY/MM/DD形式で与えられた西暦年月日の文字列が正しい年月日を表しているかどうか判定せよ。
>>522 , >>521 の順に解いて下さい。 >>522 Perl5 >>524 >>524 のcodeは>>522 の題意を満たしているとは 令和1年を令和元年にしないといけないという落とし穴があるようだ。
>>504 Ruby >>496 Squeak Smalltalk >>504 Pharo/Squeak Smalltalk >>467 Pharo/Squeak Smalltalk >>514 Ruby (dolist (n (list 1 2 3 11 12 13 21 22 23 101 102 103 111 112 113 121 122 123) ) (format t "~:R~%" n))
>>534-535 >>514 Lua >>514 JavaScript >>3 ^1&&n%10]||'th' >>522 , >>521 JavaScript >>521-523 Perl5 >>541 >>541 無駄に否定演算子で分かりにくくしている
>>521 Perl5 >>541 を少しｺﾝﾊﾟｸﾄにしてみた 
) 
) 
