プログラミングのお題スレ Part15

**デフォルトの名無しさん** · 2019/07/28(日) 19:39:57.54

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part14
http://mevius.5ch.net/test/read.cgi/tech/1558168409/

**デフォルトの名無しさん** · 2019/08/16(金) 10:19:15.90

>>120 Ruby

f = -> n {[(1..).find{10 > n = n.divmod(10).reduce(:*)}, n]}

(10..99).group_by{|i| f[i]}.max.tap{|m| m.last.each{|v| puts '%dは%d回で%dになる.' % [v, *m.first]}}

# => 77は4回で8になる.

**デフォルトの名無しさん** · 2019/08/16(金) 11:35:03.96

>>120 Perl5

use List::Util reduce;
for (qw{15 93 123 277777788888899}) {
　($n, $i) = ($_, 0);
　while (1 < length $n) {
　　$n = reduce {$a * $b} split '', $n;
　　$i++;
　}
　print "$_ -> $i回で $nになる\n";
}

実行結果
~ $ perl 15_120.pl
15 -> 1回で 5になる
93 -> 3回で 4になる
123 -> 1回で 6になる
277777788888899 -> 11回で 0になる

**デフォルトの名無しさん** · 2019/08/16(金) 11:40:17.74

実用上、意味のないことは寝言という。

**デフォルトの名無しさん** · 2019/08/16(金) 11:52:49.37

グッスリお休み。

**デフォルトの名無しさん** · 2019/08/16(金) 17:08:53.11

>>120
https://ideone.com/uOlN2E
C++. 暇だったので基数いじれるようにした。
ただし、デバッグはしてない。

**デフォルトの名無しさん** · 2019/08/16(金) 19:41:08.88

2x7x7x7x7x7x7x8x8x8x8x8x8x9x9=4996238671872
この段階で、掛け算14回じゃなくて1回になるの？

**デフォルトの名無しさん** · 2019/08/16(金) 21:11:10.70

元のお題は2桁の自然数なのでそれよりも桁が多いならその場合のルールも決めないとダメだろうな。

**デフォルトの名無しさん** · 2019/08/16(金) 22:49:37.86

> 2x7x7x7x7x7x7x8x8x8x8x8x8x9x9=4996238671872
を１回としても14回としても解き方はたいして変わらんからどっちでもいいと思う
とりあえず回答例見たら１回としてるみたいだから１回の方でいいんじゃね

**デフォルトの名無しさん** · 2019/08/17(土) 05:49:01.88

>>120
common lisp
https://pastebin.com/ZcaYiA3N
任意の自然数に拡張した

split-num を実装してて思った
perl の数字と文字を自由に行き来できる cool型マジcool

**デフォルトの名無しさん** · 2019/08/17(土) 05:57:53.54

15=>(5 1)
93=>(4 3)
198=>(4 3)
468=>(8 3)
738=>(6 4)
793=>(4 4)
1748=>(6 3)

**デフォルトの名無しさん** · 2019/08/17(土) 15:01:05.32

>>120 Perl5

use feature current_sub;
use List::Util reduce;
for (qw{15 93 123 277777788888899}) {
　$i = 0;
　$n = sub {
　　return shift if 1 == @_;
　　$i++, __SUB__->(split'', reduce {$a * $b } @_);
　}->(split'');
　print "$_ -> $i回で $nになる\n";
}

実行結果
~ $ perl 15_120_2.pl
15 -> 1回で 5になる
93 -> 3回で 4になる
123 -> 1回で 6になる
277777788888899 -> 11回で 0になる

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 15:58:34.13

お題: オカダンゴムシには進行中に壁にぶつかると左へ、次は右へ（あるいは右へ、次は左へ）と交互に曲がっていく習性がある。この行動は「交替性転向反応」といい、左右に交互に曲がる事で天敵から逃げられる確率を高めているといわれている(ウィキペディアより引用)。

何もない整数平面上にスタート地点(S)とゴール地点(G)が与えられる。仮想ダンゴムシ(@)の周辺に壁(#)をいくつか作って、スタート地点からゴール地点まで誘導せよ。
ただし、ダンゴムシは最初は右向きを向いていて、最初にぶつかったら左に曲がるものとする。
90度曲がって目の前にすぐに壁がある場合は同じ方へもう90度曲がるものとする。壁はいくつ作ってもよい。

例) S=(0, 0), G=(5, 2)
→#={(6, 0)}.
例) S=(1, 2), G=(-1, 1)
→#={(2, 2), (1, 3), (0, 2), (1, 0)}.

**デフォルトの名無しさん** · 2019/08/17(土) 16:18:33.55

>>137
ダンゴムシは初手でどこに向いてるの？北？Y+？X+？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 16:19:06.00

ヒント: 最初、スタートとゴールを囲むように壁を仮設する。ぶつからない壁は要らない。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 16:20:08.58

ダンゴムシはx軸方向です。y軸は数学と同じ上向きを仮定してます。

**デフォルトの名無しさん** · 2019/08/17(土) 17:21:32.91

Y+がビジュアライズして上になるかはビジュアライザーの挙動次第なのでいいのだけど。
最初はX+向いてるのね。承知。

**デフォルトの名無しさん** · 2019/08/17(土) 17:25:39.14

あ、もう一つあるんだ。
最初にダンゴムシが壁にぶつかったときは右と左どっち優先？

////
＃
＠＃
////
の時。
方向がX+の時に左へターンしたら無限ループする。
逆に、方向がY+の時右にターンしたら無限ループする。

どや？

**デフォルトの名無しさん** · 2019/08/17(土) 17:28:20.45

> ただし、ダンゴムシは最初は右向きを向いていて、最初にぶつかったら左に曲がるものとする。

**デフォルトの名無しさん** · 2019/08/17(土) 17:29:33.02

>>142
>90度曲がって目の前にすぐに壁がある場合は同じ方へもう90度曲がるものとする。

**デフォルトの名無しさん** · 2019/08/17(土) 17:29:46.66

すみません。見落としていました。
大変申し訳ありません。

**デフォルトの名無しさん** · 2019/08/17(土) 19:06:19.57

クソコテの相手すんなよ

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/17(土) 20:39:30.65

世界はクソにあふれている！何てこった！この状況を！この状況を変えるためには、クソをせずに生きれる仕組みを！皆様と一緒にクソをせずに生きれる仕組みを、実現して！行きましょう！

**デフォルトの名無しさん** · 2019/08/17(土) 23:18:56.65

そこでファナモの出番なわけですよ

**デフォルトの名無しさん** · 2019/08/17(土) 23:52:46.77

それよりも交替性転換反応とやらが本当に生存確率を高めるのか
右にばかり曲がりたがる逃亡犯と左にしか曲がれない共産党員を例に
シミュレーションを繰り返すプログラムを書いて？(ﾟ∀ﾟ)

**デフォルトの名無しさん** · 2019/08/18(日) 00:30:12.24

FPSのレレレ撃ちでしょ
ゲームで実験結果がでているからYoutubeにGo

**デフォルトの名無しさん** · 2019/08/18(日) 01:00:00.23

あなた達は、実は自分で思っているほど
ソフトウエアの開発が得意ではないということに
まだ気がついてすら至っていない

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 01:50:38.18

>>151
そうだよね。ソフトクリーム作るのって大変だね。ちなみに英語ではジェラートだからね。

**デフォルトの名無しさん** · 2019/08/18(日) 02:07:00.19

>>151
君は、実は自分で思っているほど日本語が得意ではないということにまだ気づいていない。

**デフォルトの名無しさん** · 2019/08/18(日) 02:25:43.87

そう来ると思っていました。

**デフォルトの名無しさん** · 2019/08/18(日) 16:17:40.63

>>137
https://ideone.com/6yBcTi
C++。多分できた。
O(1)かも。

**デフォルトの名無しさん** · 2019/08/18(日) 16:41:42.29

一番だよ～。ほめてほめて～～！！

**デフォルトの名無しさん** · 2019/08/18(日) 17:02:53.87

乙。

**デフォルトの名無しさん** · 2019/08/18(日) 17:05:38.20

O(1)だよ

**デフォルトの名無しさん** · 2019/08/18(日) 17:21:04.50

やっほーい。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 17:59:15.27

スタート地点に壁を作ってるみたい。アルゴリズムの詰めが甘いようだ。

**デフォルトの名無しさん** · 2019/08/18(日) 18:37:31.03

>>160
表示の問題です。では済まないかい？
場所は保持してるよ？

**デフォルトの名無しさん** · 2019/08/18(日) 18:38:29.32

>>137 Java
https://ideone.com/oytRaT

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 19:10:36.63

>>162
正解。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 19:33:02.90

お題: 壁で囲まれた何もない有限の部屋(面積5m^3前後)の中に、四方向に距離センサーが付いた、丸い形のお掃除ロボット(直径20cm)がある。
各距離センサーは、ロボットからその方向にある障害物までの距離を常に教えてくれる。
ロボットはその場で右または左に5度単位で自転するか、もしくは前方向に5cm単位で前進できる。
部屋全体のおおよその形がわかるまで、ロボットを動かしなさい。

例) 正方形の部屋
例) 正三角形の部屋
例) 凹の形の部屋

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 19:46:24.23

直径20cmが入り込めない隙間は無視、もしくは壁と見なす。
スクリーンショットか動画を作れたら、30点加点する。

**デフォルトの名無しさん** · 2019/08/18(日) 19:59:22.35

面積なのに^3とはこれ如何に

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/18(日) 20:17:13.38

>>164 >>166
訂正。m^2です。

参考資料：直線と線分の当たり判定
https://spphire9.wordpress.com/2013/01/14/直線と線分の当たり判定/

**デフォルトの名無しさん** · 2019/08/19(月) 11:34:00.91

>>164
部屋の壁の構成が凹を基本としたヒルベルト曲線だったら「おおよその形」はそのロボットのAIは何と答えればいいの？
ttps://cdn-ak.f.st-hatena.com/images/fotolife/o/obelisk2/20161224/20161224022849.png

**デフォルトの名無しさん** · 2019/08/19(月) 11:46:10.65

もしくは、「壁」とは何か

**デフォルトの名無しさん** · 2019/08/19(月) 12:00:44.91

>>160
一晩かんがえてみたんだけどね、ゆる～くね。
スタートに壁作るなとは書いてないよね？？

**デフォルトの名無しさん** · 2019/08/19(月) 12:36:53.71

4個目のスタート地点の壁を許しても、3個目の答えが間違えてるやん？
[-1,1]の壁を1回透過しないとゴールにたどり着けないやん？

まあ [＊いしのなかにいる＊] は許されないと思うけどｗ

**デフォルトの名無しさん** · 2019/08/19(月) 12:50:21.54

>>171
あぁ、なるほど、先において起動させる前提なのか。
オレ、動的にターン制で考えてたわ。

**デフォルトの名無しさん** · 2019/08/19(月) 13:04:09.25

動的ターン制って考えは思いつかんかった
その考えなら>>155でも問題ないな

**デフォルトの名無しさん** · 2019/08/19(月) 13:05:56.48

握手(非強制)

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/19(月) 13:45:26.16

部屋の形を表すビットマップ画像、もしくは一個以上の多角形でいいよ。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/19(月) 13:49:12.41

誤差は気にしない、気にしない。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/19(月) 13:53:20.88

>>173
壁をいつ置くかの記述がなかった、設問の不備ということで、正解、にしときます。すみません。

**デフォルトの名無しさん** · 2019/08/19(月) 21:12:29.11

及第点！

**デフォルトの名無しさん** · 2019/08/19(月) 21:48:51.89

コテのくせに偉そうだな

**デフォルトの名無しさん** · 2019/08/20(火) 03:10:44.70

アスペばっかやんけこのスレ

**デフォルトの名無しさん** · 2019/08/23(金) 16:30:48.96

>>32
perl5
http://ideone.com/1qwl1U

ずいぶん前のお題だが面白い回答ができたので再提出
再帰する正規表現に perl-code 内蔵の正規表現
たぶんウルトラレア

**デフォルトの名無しさん** · 2019/08/27(火) 08:48:20.54

>>4 Java
https://ideone.com/JHb8WE

>>5-6
> T = std::max(T,UI(mt));
> if (T >= C) { Re++; }
保持してる最大値でもう一回振るかどうか決めちゃってないかい？

**デフォルトの名無しさん** · 2019/08/27(火) 20:29:01.48

>>182
振ったダイスが閾値超えてたら次の回を一回プラスしてる。
閾値C以上ならという判断。

**デフォルトの名無しさん** · 2019/08/27(火) 20:38:02.13

あ、勘違いしてた。ちょっと待ってて。

**デフォルトの名無しさん** · 2019/08/27(火) 20:41:11.53

>>4
https://ideone.com/1zA9kL
C++。フォークして修正してみた。これでいいかなぁ。

**デフォルトの名無しさん** · 2019/08/27(火) 21:01:10.99

俺のとあってるし多分いいんじゃね？わからんが
でも>>5-6の時点で出題者からの突っ込みがないのが気になる
出題者出てきてー

**デフォルトの名無しさん** · 2019/08/27(火) 21:06:40.25

https://ideone.com/XIuQ53
しつこいけど、変数名のかぶりが気持ち悪かったので書き直した。
それと、手元でデバッグ軽くやっておいた。

**デフォルトの名無しさん** · 2019/08/27(火) 21:10:12.33

>>186
そりゃよかった。
出題者に宿題解かされたかな？？

**デフォルトの名無しさん** · 2019/08/27(火) 22:42:10.07

お題：値が変更不可能でインデックスだけ参照できるシャッフルされた配列を何らかの方法でソートする。その際配列や値のコピーは取れない。
C++でいう、constの配列をなんとか整列してみましょう。

自分の答え。：https://ideone.com/4S932i

**デフォルトの名無しさん** · 2019/08/28(水) 00:04:27.28

>>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

**デフォルトの名無しさん** · 2019/08/28(水) 00:57:09.32

激お題：自動プログラミングプログラムを作るか日本語で説明せよ。方法は各自の言語にゆだねる。

https://ideone.com/2UWc8g
自分は上記のようなものを作った。
4kb位のプログラムができるのに多分数年かかる。
コンパイラの通ったかというのを取れれば文章的に正しいやつは何かを残していく。
でも、コンパイラに投げる動作はわからないので入れてない。

**デフォルトの名無しさん** · 2019/08/28(水) 01:00:49.34

>>190
perlわからないけど、参加してくれてありがとう。
コードが短くて羨ましい。

**デフォルトの名無しさん** · 2019/08/28(水) 01:14:30.34

>>191 ナンジャそれは、お題でもなんでもない。まず日本語の勉強をして出直してこい。
お題も人に解る様に出せないような人間はプログラマの素質はない。

**デフォルトの名無しさん** · 2019/08/28(水) 01:51:57.69

>>193
どこが解りにくかったですか？
テストコードは、言語で使える英数記号類を全探索するモノです。

**デフォルトの名無しさん** · 2019/08/28(水) 12:29:21.50

>>194
>>191全体

**デフォルトの名無しさん** · 2019/08/28(水) 14:09:15.46

>>195
お題と余談が書いてあるだけだぞ。
とりあえず、刮目して自動プログラミングプログラムを作ってください。
作れなさそうなら、概要を日本語で説明してください。

**デフォルトの名無しさん** · 2019/08/28(水) 14:20:49.15

まず自動プログラミングプログラムってなんだよ
お前の造語なんか知らんわ

**デフォルトの名無しさん** · 2019/08/28(水) 14:40:15.76

ドメイン特化言語作れってことか？

**デフォルトの名無しさん** · 2019/08/28(水) 14:40:49.41

>>189
Kotlin
https://paiza.io/projects/hCnNPeSohDhcerAL2MMqag

こんなので良いのかな？

厳密に言ったら最後の出力文字列を作る時の map で値が取り出されて新たなリスト作るからコピーされちゃってんだけどね。

**デフォルトの名無しさん** · 2019/08/28(水) 14:47:42.49

「自動プログラミング」「プログラム」ですが何か。
DSLじゃないわ。

**デフォルトの名無しさん** · 2019/08/28(水) 14:52:51.27

1文字ごとにカンマが入って空白or改行を使わないプログラミング言語ってなんだろう…？
4kb(この表記だとビットかバイトかわからん)が数年で行けるってどういう計算だろう…？

**デフォルトの名無しさん** · 2019/08/28(水) 14:59:27.89

>>199
暗黙変数があるとオレ、フリーズしちゃうなぁ。
やったことない言語だけど、結果はあってると思う。

**デフォルトの名無しさん** · 2019/08/28(水) 15:03:25.48

>>201
文字の列挙のリストには抜けがあるかもしれない。
C++は改行しなくても空白さえあればかける気がするけど。

なお、字数が増えれば増えるほど遅くなる。

とりあえず、実行してみればわかるけど、検索文字を総当たりしてるだけだからね。
んで、コンパイラに投げて通るかどうかのチェック入れないといけないんだ。

**デフォルトの名無しさん** · 2019/08/28(水) 15:06:25.36

>>201
あぁ、指摘には感謝しておく。
4kbは大体4千字くらいか。

**デフォルトの名無しさん** · 2019/08/28(水) 15:59:11.53

字数が増えれば増えるほど遅くなる、の遅くなり具合がわかってない気がする
使用する文字の種類を60とした場合、総当たりで毎秒10億個生成できても19年で10文字くらいだよ

**デフォルトの名無しさん** · 2019/08/28(水) 16:09:46.11

ただの無限の猿定理では？

**デフォルトの名無しさん** · 2019/08/28(水) 16:18:28.21

>>205
うほ！そんな遅いんかいな。
オーダーよりパッションで作ったのでそこまで考えてない。
それが・・・現実・・・！！！

>>206
そんなかんじだねぇ。

**デフォルトの名無しさん** · 2019/08/28(水) 16:19:08.51

設問が悪い。
自動プログラミングプログラムの出力が不正でなければ良い→コンパイルエラーないしはランタイムエラーを出さない、で良いの？

phpのソースを書き出せば問題ない。
ランダムな文字列を出力し続けても、文字空間が64文字であれば、5文字目以降、毎回1/1073741824で失敗するがそれ以外のケースで自分自身を表示する正しいプログラムになる。

**デフォルトの名無しさん** · 2019/08/28(水) 16:42:26.29

>>200 自動プログラミングが何で数字の羅列なんだよ。
何処がプログラミングだよ。こんな物どんなコンパイラを通したら意味を持ったプログラムになるんだよ。

**デフォルトの名無しさん** · 2019/08/28(水) 16:43:40.35

>>200 自分が日本語で説明してみろよ。

**デフォルトの名無しさん** · 2019/08/28(水) 17:16:03.37

>>209
エーっと、C/C++はポインタがあるので実行したマシン破壊する確率は高いな。
わざと文書的に正しければと書いてあるんだが、気づいてないな。

>>208
そうですなぁ。チェッカーがエラーを吐かないでよかった気がする。

**デフォルトの名無しさん** · 2019/08/28(水) 17:16:54.34

とりあえず、絶不評なので>>191は終了します。
お付き合いいただきありがとうございました。

**デフォルトの名無しさん** · 2019/08/28(水) 17:33:20.06

ガチでやるなら遺伝的アルゴリズムで遊んだほうが面白そうな話題ではある。
総当たりは分が悪い。

**デフォルトの名無しさん** · 2019/08/28(水) 18:50:08.98

みんなまじめに小学生の相手して偉いなぁ

**デフォルトの名無しさん** · 2019/08/28(水) 19:02:24.38

ネットでプログラムとかコードとかの記事検索して予約語が含まれるセンテンスをコピペするプログラムとかどう？(ﾟ∀ﾟ)＜これを自動プログラミングと呼べるかどうか知らんけど

**デフォルトの名無しさん** · 2019/08/28(水) 19:28:19.63

>>212
最後まで何をやらせたいのかわからなかった。

**デフォルトの名無しさん** · 2019/08/28(水) 20:50:01.23

>>214
そいつは小学生じゃなくて
わりと高齢の池沼だと思う

**デフォルトの名無しさん** · 2019/08/29(木) 00:02:26.73

まあ例のコテロートルだろうな

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/29(木) 00:48:42.64

お題: 入力として任意の長さのバイト列(半角アルファベット)が与えられる。入力を左から読み取っていくとき、
読み込まれるバイトの状態遷移を表すデータまたは画像を出力せよ。ただし、初期状態は'^'、終了状態は'$'で
表すものとし、状態遷移図のノードには重複がないものとする。

例)
"AKDAK"
→
^: A.
A: K.
K: D$.
D: A.
$: .

**デフォルトの名無しさん** · 2019/08/29(木) 01:15:35.61

mousukosikangaetekarasyutudasisiroyokusokotega

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/29(木) 03:44:38.74

>>220
kantansugitakana?

**デフォルトの名無しさん** · 2019/08/29(木) 11:53:46.40

nande2do$ga deterunda?

**デフォルトの名無しさん** · 2019/08/29(木) 13:28:32.46

>>219
> 読み込まれるバイトの状態遷移を表すデータまたは画像

とは何か？

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/08/29(木) 20:14:38.43

>>223
状態遷移図。

**デフォルトの名無しさん** · 2019/08/29(木) 20:21:57.74

ループまで検出シロっていってるのかいな？