- 1 名前：デフォルトの名無しさん mailto:sage [2019/07/28(日) 19:39:57.54 ID:832c/ukY.net]
- プログラミングのお題スレです。
【出題と回答例】
1 名前：デフォルトの名無しさん
お題：お題本文
2 名前：デフォルトの名無しさん
>>1 使用言語
回答本文
結果がある場合はそれも
【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
codepad.org/
compileonline.com/
rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
melpon.org/wandbox
https://paiza.io/
宿題は宿題スレがあるのでそちらへ。
※前スレ
プログラミングのお題スレ Part14
mevius.5ch.net/test/read.cgi/tech/1558168409/
- 152 名前：デフォルトの名無しさん mailto:sage [2019/08/17(土) 23:52:46.77 ID:9or86GZG.net]
- それよりも交替性転換反応とやらが本当に生存確率を高めるのか
右にばかり曲がりたがる逃亡犯と左にしか曲がれない共産党員を例に
シミュレーションを繰り返すプログラムを書いて？(ﾟ∀ﾟ)
- 153 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 00:30:12.24 ID:Onid3Fuw.net]
- FPSのレレレ撃ちでしょ
ゲームで実験結果がでているからYoutubeにGo
- 154 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 01:00:00.23 ID:C9/yeHaG.net]
- あなた達は、実は自分で思っているほど
ソフトウエアの開発が得意ではないということに
まだ気がついてすら至っていない
- 155 名前：さまよえる蟻人間 mailto:sage [2019/08/18(日) 01:50:38.18 ID:f2ZPM7Xh.net]
- >>151
そうだよね。ソフトクリーム作るのって大変だね。ちなみに英語ではジェラートだからね。
- 156 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 02:07:00.19 ID:4oEGaRbg.net]
- >>151
君は、実は自分で思っているほど日本語が得意ではないということにまだ気づいていない。
- 157 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 02:25:43.87 ID:zcvAoSag.net]
- そう来ると思っていました。
- 158 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 16:17:40.63 ID:YNXq+wty.net]
- >>137
https://ideone.com/6yBcTi
C++。多分できた。
O(1)かも。
- 159 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 16:41:42.29 ID:YNXq+wty.net]
- 一番だよ～。ほめてほめて～～！！
- 160 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 17:02:53.87 ID:MNRPGL9Z.net]
- 乙。
- 161 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 17:05:38.20 ID:Onid3Fuw.net]
- O(1)だよ
- 162 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 17:21:04.50 ID:YNXq+wty.net]
- やっほーい。
- 163 名前：さまよえる蟻人間 mailto:sage [2019/08/18(日) 17:59:15.27 ID:f2ZPM7Xh.net]
- スタート地点に壁を作ってるみたい。アルゴリズムの詰めが甘いようだ。
- 164 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 18:37:31.03 ID:YNXq+wty.net]
- >>160
表示の問題です。では済まないかい？
場所は保持してるよ？
- 165 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 18:38:29.32 ID:Y3okjmnX.net]
- >>137 Java
https://ideone.com/oytRaT
- 166 名前：さまよえる蟻人間 mailto:sage [2019/08/18(日) 19:10:36.63 ID:f2ZPM7Xh.net]
- >>162
正解。
- 167 名前：さまよえる蟻人間 mailto:sage [2019/08/18(日) 19:33:02.90 ID:f2ZPM7Xh.net]
- お題: 壁で囲まれた何もない有限の部屋(面積5m^3前後)の中に、四方向に距離センサーが付いた、丸い形のお掃除ロボット(直径20cm)がある。
各距離センサーは、ロボットからその方向にある障害物までの距離を常に教えてくれる。
ロボットはその場で右または左に5度単位で自転するか、もしくは前方向に5cm単位で前進できる。
部屋全体のおおよその形がわかるまで、ロボットを動かしなさい。
例) 正方形の部屋
例) 正三角形の部屋
例) 凹の形の部屋
- 168 名前：さまよえる蟻人間 mailto:sage [2019/08/18(日) 19:46:24.23 ID:f2ZPM7Xh.net]
- 直径20cmが入り込めない隙間は無視、もしくは壁と見なす。
スクリーンショットか動画を作れたら、30点加点する。
- 169 名前：デフォルトの名無しさん mailto:sage [2019/08/18(日) 19:59:22.35 ID:Y3okjmnX.net]
- 面積なのに^3とはこれ�
- 170 名前：@何に []
- [ここ壊れてます]
- 171 名前：さまよえる蟻人間 mailto:sage [2019/08/18(日) 20:17:13.38 ID:OH7aQxbJ.net]
- >>164 >>166
訂正。m^2です。
参考資料：直線と線分の当たり判定
https://spphire9.wordpress.com/2013/01/14/直線と線分の当たり判定/
- 172 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 11:34:00.91 ID:icNxZHqv.net]
- >>164
部屋の壁の構成が凹を基本としたヒルベルト曲線だったら「おおよその形」はそのロボットのAIは何と答えればいいの？
ttps://cdn-ak.f.st-hatena.com/images/fotolife/o/obelisk2/20161224/20161224022849.png
- 173 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 11:46:10.65 ID:icNxZHqv.net]
- もしくは、「壁」とは何か
- 174 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 12:00:44.91 ID:78Wz1qhX.net]
- >>160
一晩かんがえてみたんだけどね、ゆる～くね。
スタートに壁作るなとは書いてないよね？？
- 175 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 12:36:53.71 ID:ChF0jSyn.net]
- 4個目のスタート地点の壁を許しても、3個目の答えが間違えてるやん？
[-1,1]の壁を1回透過しないとゴールにたどり着けないやん？
まあ [＊いしのなかにいる＊] は許されないと思うけどｗ
- 176 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 12:50:21.54 ID:78Wz1qhX.net]
- >>171
あぁ、なるほど、先において起動させる前提なのか。
オレ、動的にターン制で考えてたわ。
- 177 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 13:04:09.25 ID:ChF0jSyn.net]
- 動的ターン制って考えは思いつかんかった
その考えなら>>155でも問題ないな
- 178 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 13:05:56.48 ID:78Wz1qhX.net]
- 握手(非強制)
- 179 名前：さまよえる蟻人間 mailto:sage [2019/08/19(月) 13:45:26.16 ID:5pda5jNo.net]
- 部屋の形を表すビットマップ画像、もしくは一個以上の多角形でいいよ。
- 180 名前：さまよえる蟻人間 mailto:sage [2019/08/19(月) 13:49:12.41 ID:5pda5jNo.net]
- 誤差は気にしない、気にしない。
- 181 名前：さまよえる蟻人間 mailto:sage [2019/08/19(月) 13:53:20.88 ID:5pda5jNo.net]
- >>173
壁をいつ置くかの記述がなかった、設問の不備ということで、正解、にしときます。すみません。
- 182 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 21:12:29.11 ID:78Wz1qhX.net]
- 及第点！
- 183 名前：デフォルトの名無しさん mailto:sage [2019/08/19(月) 21:48:51.89 ID:KFTDhNgP.net]
- コテのくせに偉そうだな
- 184 名前：デフォルトの名無しさん [2019/08/20(火) 03:10:44.70 ID:p19J/GFP.net]
- アスペばっかやんけこのスレ
- 185 名前：デフォルトの名無しさん mailto:sage [2019/08/23(金) 16:30:48.96 ID:GCcQKmFF.net]
- >>32
perl5
ideone.com/1qwl1U
ずいぶん前のお題だが面白い回答ができたので再提出
再帰する正規表現に perl-code 内蔵の正規表現
たぶんウルトラレア
- 186 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 08:48:20.54 ID://c3Bn/y.net]
- >>4 Java
https://ideone.com/JHb8WE
>>5-6
> T = std::max(T,UI(mt));
> if (T >= C) { Re++; }
保持してる最大値でもう一回振るかどうか決めちゃってないかい？
- 187 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 20:29:01.48 ID:ZWZUVJ+Q.net]
- >>182
振ったダイスが閾値超えてたら次の回を一回プラスしてる。
閾値C以上ならという判断。
- 188 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 20:38:02.13 ID:ZWZUVJ+Q.net]
- あ、勘違いしてた。ちょっと待ってて。
- 189 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 20:41:11.53 ID:ZWZUVJ+Q.net]
- >>4
https://ideone.com/1zA9kL
C++。フォークして修正してみた。これでいいかなぁ。
- 190 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 21:01:10.99 ID://c3Bn/y.net]
- 俺のとあってるし多分いいんじゃね？わからんが
でも>>5-6の時点で出題者からの突っ込みがないのが気になる
出題者出てきてー
- 191 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 21:06:40.25 ID:ZWZUVJ+Q.net]
- https://ideone.com/XIuQ53
しつこいけど、変数名のかぶりが気持ち悪かったので書き直した。
それと、手元でデバッグ軽くやっておいた。
- 192 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 21:10:12.33 ID:ZWZUVJ+Q.net]
- >>186
そりゃよかった。
出題者に宿題解かされたかな？？
- 193 名前：デフォルトの名無しさん mailto:sage [2019/08/27(火) 22:42:10.07 ID:ZWZUVJ+Q.net]
- お題：値が変更不可能でインデックスだけ参照できるシャッフルされた配列を何らかの方法でソートする。その際配列や値のコピーは取れない。
C++でいう、constの配列をなんとか整列してみましょう。
自分の答え。：https://ideone.com/4S932i
- 194 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 00:04:27.28 ID:4LHTj8UL.net]
- >>189 Perl5
use List::Util shuffle;
@a = shuffle 1..10;
@ix = 0..$#a;
print "@a\n";
@iy = sort{$a[$a] <=> $a[$b]} @ix;
print "@a[@iy]\n";
実行例
~ $ perl 15_189.pl
5 2 4 8 3 10 6 9 1 7
1 2 3 4 5 6 7 8 9 10
- 195 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 00:57:09.32 ID:iZEqAFR9.net]
- 激お題：自動プログラミングプログラムを作るか日本語で説明せよ。方法は各自の言語にゆだねる。
https://ideone.com/2UWc8g
自分は上記のようなものを作った。
4kb位のプログラムができるのに多分数年かかる。
コンパイラの通ったかというのを取れれば文章的に正しいやつは何かを残していく。
でも、コンパイラに投げる動作はわからないので入れてない。
- 196 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 01:00:49.34 ID:iZEqAFR9.net]
- >>190
perlわからないけど、参加してくれてありがとう。
コードが短くて羨ましい。
- 197 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 01:14:30.34 ID:mmOF8lug.net]
- >>191 ナンジャそれは、お題でもなんでもない。 まず日本語の勉強をして出直してこい。
お題も人に解る様に出せないような人間はプログラマの素質はない。
- 198 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 01:51:57.69 ID:iZEqAFR9.net]
- >>193
どこが解りにくかったですか？
テストコードは、言語で使える英数記号類を全探索するモノです。
- 199 名前：デフォルトの名無しさん [2019/08/28(水) 12:29:21.50 ID:gV1iThk/.net]
- >>194
>>191全体
- 200 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 14:09:15.46 ID:iZEqAFR9.net]
- >>195
お題と余談が書いてあるだけだぞ。
とりあえず、刮目して自動プログラミングプログラムを作ってください。
作れなさそうなら、概要を日本語で説明してください。
- 201 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 14:20:49.15 ID:iHRPACN2.net]
- まず自動プログラミングプログラムってなんだよ
お前の造語なんか知らんわ
- 202 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 14:40:15.76 ID:9ymulh1y.net]
- ドメイン特化言語作れってことか？
- 203 名前：デフォルトの名無しさん [2019/08/28(水) 14:40:49.41 ID:gV1iThk/.net]
- >>189
Kotlin
https://paiza.io/projects/hCnNPeSohDhcerAL2MMqag
こんなので良いのかな？
厳密に言ったら最後の出力文字列を作る時の map で値が取り出されて新たなリスト作るからコピーされちゃってんだけどね。
- 204 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 14:47:42.49 ID:iZEqAFR9.net]
- 「自動プログラミング」「プログラム」ですが何か。
DSLじゃないわ。
- 205 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 14:52:51.27 ID:CKrqMRiB.net]
- 1文字ごとにカンマが入って空白or改行を使わないプログラミング言語ってなんだろう…？
4kb(この表記だとビットかバイトかわからん)が数年で行けるってどういう計算だろう…？
- 206 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 14:59:27.89 ID:iZEqAFR9.net]
- >>199
暗黙変数があるとオレ、フリーズしちゃうなぁ。
やったことない言語だけど、結果はあってると思う。
- 207 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 15:03:25.48 ID:iZEqAFR9.net]
- >>201
文字の列挙のリストには抜けがあるかもしれない。
C++は改行しなくても空白さえあればかける気がするけど。
なお、字数が増えれば増えるほど遅くなる。
とりあえず、実行してみればわかるけど、検索文字を総当たりしてるだけだからね。
んで、コンパイラに投げて通るかどうかのチェック入れないといけないんだ。
- 208 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 15:06:25.36 ID:iZEqAFR9.net]
- >>201
あぁ、指摘には感謝しておく。
4kbは大体4千字くらいか。
- 209 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 15:59:11.53 ID:CKrqMRiB.net]
- 字数が増えれば増えるほど遅くなる、の遅くなり具合がわかってない気がする
使用する文字の種類を60とした場合、総当たりで毎秒10億個生成できても19年で10文字くらいだよ
- 210 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 16:09:46.11 ID:DKDzG5Os.net]
- ただの無限の猿定理では？
- 211 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 16:18:28.21 ID:iZEqAFR9.net]
- >>205
うほ！そんな遅いんかいな。
オーダーよりパッションで作ったのでそこまで考えてない。
それが・・・現実・・・！！！
>>206
そんなかんじだねぇ。
- 212 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 16:19:08.51 ID:DKDzG5Os.net]
- 設問が悪い。
自動プログラミングプログラムの出力が不正でなければ良い→コンパイルエラーないしはランタイムエラーを出さない、で良いの？
phpのソースを書き出せば問題ない。
ランダムな文字列を出力し続けても、文字空間が64文字であれば、5文字目以降、毎回1/1073741824で失敗するがそれ以外のケースで自分自身を表示する正しいプログラムになる。
- 213 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 16:42:26.29 ID:e0ao7N2r.net]
- >>200 自動プログラミングが何で数字の羅列なんだよ。
何処がプログラミングだよ。 こんな物どんなコンパイラを通したら意味を持ったプログラムになるんだよ。
- 214 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 16:43:40.35 ID:e0ao7N2r.net]
- >>200 自分が日本語で説明してみろよ。
- 215 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 17:16:03.37 ID:iZEqAFR9.net]
- >>209
エーっと、C/C++はポインタがあるので実行したマシン破壊する確率は高いな。
わざと文書的に正しければと書いてあるんだが、気づいてないな。
>>208
そうですなぁ。チェッカーがエラーを吐かないでよかった気がする。
- 216 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 17:16:54.34 ID:iZEqAFR9.net]
- とりあえず、絶不評なので>>191は終了します。
お付き合いいただきありがとうございました。
- 217 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 17:33:20.06 ID:DKDzG5Os.net]
- ガチでやるなら遺伝的アルゴリズムで遊んだほうが面白そうな話題ではある。
総当たりは分が悪い。
- 218 名前：デフォルトの名無しさん [2019/08/28(水) 18:50:08.98 ID:sIwi/wTh.net]
- みんなまじめに小学生の相手して偉いなぁ
- 219 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 19:02:24.38 ID:31wF8+fr.net]
- ネットでプログラムとかコードとかの記事検索して予約語が含まれるセンテンスをコピペするプログラムとかどう？(ﾟ∀ﾟ)＜これを自動プログラミングと呼べるかどうか知らんけど
- 220 名前：デフォルトの名無しさん [2019/08/28(水) 19:28:19.63 ID:gV1iThk/.net]
- >>212
最後まで何をやらせたいのかわからなかった。
- 221 名前：デフォルトの名無しさん mailto:sage [2019/08/28(水) 20:50:01.23 ID:f9cLfftu.net]
- >>214
そいつは小学生じゃなくて
わりと高齢の池沼だと思う
- 222 名前：デフォルトの名無しさん mailto:sage [2019/08/29(木) 00:02:26.73 ID:gFHz9oC8.net]
- まあ例のコテロートルだろうな
- 223 名前：さまよえる蟻人間 mailto:sage [2019/08/29(木) 00:48:42.64 ID:5IzqEHY7.net]
- お題: 入力として任意の長さのバイト列(半角アルファベット)が与えられる。入力を左から読み取っていくとき、
読み込まれるバイトの状態遷移を表すデータまたは画像を出力せよ。ただし、初期状態は'^'、終了状態は'$'で
表すものとし、状態遷移図のノードには重複がないものとする。
例)
"AKDAK"
→
^: A.
A: K.
K: D$.
D: A.
$: .
- 224 名前：デフォルトの名無しさん mailto:sage [2019/08/29(木) 01:15:35.61 ID:goo8Bnc2.net]
- mousukosikangaetekarasyutudasisiroyokusokotega
- 225 名前：さまよえる蟻人間 mailto:sage [2019/08/29(木) 03:44:38.74 ID:+saAg95g.net]
- >>220
kantansugitakana?
- 226 名前：デフォルトの名無しさん mailto:sage [2019/08/29(木) 11:53:46.40 ID:DcYjq8Qg.net]
- nande2do$ga deterunda?
- 227 名前：デフォルトの名無しさん [2019/08/29(木) 13:28:32.46 ID:gjTy67rx.net]
- >>219
> 読み込まれるバイトの状態遷移を表すデータまたは画像
とは何か？
- 228 名前：さまよえる蟻人間 mailto:sage [2019/08/29(木) 20:14:38.43 ID:+saAg95g.net]
- >>223
状態遷移図。
- 229 名前：デフォルトの名無しさん mailto:sage [2019/08/29(木) 20:21:57.74 ID:1SU6nQHs.net]
- ループまで検出シロっていってるのかいな？
- 230 名前：デフォルトの名無しさん [2019/08/30(金) 00:51:59.58 ID:0mnJOhtL.net]
- >>222
D$は、Dに遷移するか、または、$に遷移するって意味じゃないかな
- 231 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 01:22:20.46 ID:Knt08H1L.net]
- ちゃうやろJK
edgeの終端が二股は有効グラフではNGやで
- 232 名前：デフォルトの名無しさん [2019/08/30(金) 06:09:58.43 ID:N+Bub+CM.net]
- お題
1億以下の同じ数字でできている数(1,22,777など)をすべて表示する
- 233 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 06:52:02.20 ID:BnHn7wdj.net]
- >>228
perl5
ideone.com/KwFHjS
- 234 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 06:53:07.28 ID:BnHn7wdj.net]
- 0抜けてた悔しい
- 235 名前：デフォルトの名無しさん [2019/08/30(金) 07:10:25.46 ID:N+Bub+CM.net]
- >>228
自然数を対象とします。なので0は対象外。
- 236 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 10:00:13.13 ID:/ZgOmfmJ.net]
- >>228 Ruby
p (1...9).flat_map{|i| (1..9).map{|j| j * (10**i - 1) / 9}}
# => [1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99,
111, 222, 333, 444, 555, 666, 777, 888, 999, 1111, 2222, 3333,
4444, 5555, 6666, 7777, 8888, 9999, 11111, 22222, 33333, 44444,
55555, 66666, 77777, 88888, 99999, 111111, 222222, 333333,
444444, 555555, 666666, 777777, 888888, 999999, 1111111,
2222222, 3333333, 4444444, 5555555, 6666666, 7777777, 8888888,
9999999, 11111111, 22222222, 33333333, 44444444, 55555555,
66666666, 77777777, 88888888, 99999999]
- 237 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 10:54:33.08 ID:TOyFnU58.net]
- >>228 Google Sheets
=ARRAYFORMULA(REPT(ROW(1:9), COLUMN(A:H)))
https://i.imgur.com/pKQgzAG.png
- 238 名前：デフォルトの名無しさん [2019/08/30(金) 11:37:28.31 ID:Kz4M8rdT.net]
- >>233
評価。
- 239 名前：デフォルトの名無しさん [2019/08/30(金) 12:26:06.17 ID:VkI78Ia/.net]
- >>228
同じ数字でできている数って？どういう意味？
- 240 名前：デフォルトの名無しさん [2019/08/30(金) 12:27:00.95 ID:VkI78Ia/.net]
- あ、わかった。ごめん。
- 241 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 13:32:59.48 ID:Tn7+4gKU.net]
- >>228 Pharo/Squeak Smalltalk
(1 to: 8) gather: [:n | (1 to: 9) collect: [:m | (Array new: n withAll: m) polynomialEval: 10]]
#(1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999
1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666
77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999
1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111
22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999)
- 242 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 16:39:32.33 ID:BnHn7wdj.net]
- 遅いけど perl5
for (1..100_000_000) { print if s{\A (.) \1* \z}{$& }x }
1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999
1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666
77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999
1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111
22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999
- 243 名前：デフォルトの名無しさん [2019/08/30(金) 18:36:49.98 ID:9N6Bd3Tw.net]
- >>91
Haskell
main = mapM_ (print.only)
[
[1,1,1,1,2,2,2,3,3,4],
[1,2,3,4,5,5,4,3,2,1],
[3,1,4,1,5,9,2,6,5,3,5]
]
only ns = f [xs | xs <- (group.sort) ns, length xs == 1]
where
f [] = -1
f ([x]:_) = x
ワンライナーも出来るけど、何やってるか読み取り辛い。
only ns = if lst == [] then -1 else (head.head) lst where lst = [xs | xs <- (group.sort) ns, length xs == 1]
- 244 名前：デフォルトの名無しさん [2019/08/30(金) 19:34:06.70 ID:9dkB4daP.net]
- >>228
あほ
- 245 名前：デフォルトの名無しさん mailto:sage [2019/08/30(金) 23:12:37.99 ID:aECV+bPz.net]
- >>228 Perl5
@s = map{$a=$_; map{$_ x $a} 1..9} 1..8;
print "@s";
実行;
~ $ perl 15_228.pl
1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333
444 555 666 777 888 999 1111 2222 3333 4444 5555 6666
7777 8888 9999 11111 22222 33333 44444 55555 66666 77777
88888 99999 111111 222222 333333 444444 555555 666666 777777
888888 999999 1111111 2222222 3333333 4444444 5555555 6666666
7777777 8888888 9999999 11111111 22222222 33333333 44444444
55555555 66666666 77777777 88888888 99999999
- 246 名前：デフォルトの名無しさん [2019/08/30(金) 23:55:50.54 ID:olp7cGEF.net]
- >>228
Kotlin
https://paiza.io/projects/AFbELIff7j3sUnxSndQLvg
- 247 名前：デフォルトの名無しさん [2019/08/31(土) 05:23:58.92 ID:aUqRNM/Y.net]
- a = 0
for i = 1, 8 do
a = a * 10 + 1
for j = a, a * 9, a do
print(j)
end
end
>>228 Lua
- 248 名前：デフォルトの名無しさん [2019/08/31(土) 08:18:15.37 ID:rAMLyuja.net]
- >>228
Haskell
import Data.List
main = (print.sort.concat) [[(sum.take a) [x * 10 ^ y | y <- [0..9]] | x <- [1..9]]| a <- [1..8]]
- 249 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 08:45:29.92 ID:h26kuCJS.net]
- お題
>>228 を求めることができる
特に最適化を施さないナイーブな実装（例えば>>238 ）を書いて
その実行にかかる時間（ミリ秒、秒等）を計測し出力してください
なお遅い言語処理系で１億以下が無理な場合は１千万以下でも構いません
- 250 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 10:03:16.75 ID:4OmVCRqb.net]
- time perl -e 'for (1..100_000_000) { print if s{\A (.) \1* \z}{$& }x }'
1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999
1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666
77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999
1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 11111111
22222222 33333333 44444444 55555555 66666666 77777777 88888888 99999999
real 1m30.031s
user 1m29.046s
sys 0m0.093s
- 251 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 10:56:28.19 ID:Z8IDlpBx.net]
- >>245 Pharo/Squeak Smalltalk
| time ans |
time := [ans := (1 to: 100000000) select: [:n | n asString asSet size = 1]] timeToRun.
^{time. ans}
"Core m3-8100Y => an Array(0:00:02:55.58 #(1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111
222 333 444 555 666 777 888 999 1111 2222 3333 4444 5555 6666 7777 8888 9999 11111
22222 33333 44444 55555 66666 77777 88888 99999 111111 222222 333333 444444 555555
666666 777777 888888 999999 1111111 2222222 3333333 4444444 5555555 6666666 7777777
8888888 9999999 11111111 22222222 33333333 44444444 55555555 66666666 77777777
88888888 99999999)) "
- 252 名前：デフォルトの名無しさん mailto:sage [2019/08/31(土) 10:58:35.47 ID:8/I1hpDH.net]
- >>245 Perl5、１千万以下、CPU: Core i5 M520@2.4GHz
use Time::HiRes qw(gettimeofday tv_interval);
$t0 = [gettimeofday];
for (1..1e8) {
push @s, $_ if /^(.)\1*$/;
}
$elapse = tv_interval($t0, [gettimeofday]);
printf "@s\n%.3f[s]\n", $elapse;
実行結果
~ $ perl 15_245.pl
1 2 3 4 5 6 7 8 9 11 22 33 44 55 66 77 88 99 111 222 333 444 555 666 777 888 999
1111 2222 3333 4444 5555 6666 7777 8888 9999 11111 22222 33333 44444 55555 66666
77777 88888 99999 111111 222222 333333 444444 555555 666666 777777 888888 999999
1111111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999
49.732[s]
|
 |
