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

**デフォルトの名無しさん** · 2019/05/18(土) 17:33:29.45

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

【出題と回答例】
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/

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

※前スレ
https://mevius.5ch.net/test/read.cgi/tech/1549160513/

**デフォルトの名無しさん** · 2019/07/28(日) 02:35:31.10

>>981
python3
http://ideone.com/Nuqjvc

**デフォルトの名無しさん** · 2019/07/28(日) 04:13:25.02

>>910
Pythonで素直に書くとこんな感じ。

http://ideone.com/3HvxyP

これをそのままHaskellで書くと負けるが、こっちならPythonに勝つる。

http://ideone.com/iwLONj

**デフォルトの名無しさん** · 2019/07/28(日) 06:16:51.79

>>981 Ruby

f = -> str {s = -str; (0..1.0/0).each{|i| s.gsub!('{}', '') || (break s.size.zero? ? i : -1)}}
['{}', '}{', '', '{{{}{}}}{}'].each{|e| puts "%p => %d" % [e, f[e]]}

# =>
"{}" => 1
"}{" => -1
"" => 0
"{{{}{}}}{}" => 3

**デフォルトの名無しさん** · 2019/07/28(日) 12:26:21.14

>>981
perl5
http://ideone.com/HOpSCt

言語変えたらより見やすくなった

**デフォルトの名無しさん** · 2019/07/28(日) 14:44:03.09

>>981 Perl5

use List::Util 'max';
%h = qw({ 1 } -1);
for ('{}', '}{', '', '{{{}{}}}{}') {
　($l, $m) = (0, 0);
　for (map{$h{$_}} split'') {
　　$l += $_;
　　$m = max $l, $m;
　　last if $l < 0;
　}
　$m = -1 if $l;
　print "'$_' => $m\n";
}

実行結果
$ perl 14_981.pl
'{}' => 1
'}{' => -1
'' => 0
'{{{}{}}}{}' => 3

**デフォルトの名無しさん** · 2019/07/28(日) 16:06:00.72

>>979-980
もともと提示されてたのは式だけだし、式自体に誤差はないじゃん。アホなの？
てかさ、(-1)^((x+1)%3)で場合分けを吸収してるところは素直に上手いなぁとは思うけど元のフィボナッチ数列の式からの変形自体は高校生レベルじゃんこれ
「自分で考えたの？」てお前アホなの？
誰が解いても上の部分以外は同じになるっつーの

「2次方程式の解の公式で解きました！」
「その公式って自分で考えたの？」
くらい間抜けでアホ馬鹿丸出し生きる価値無し短小包茎白癬菌

**デフォルトの名無しさん** · 2019/07/28(日) 17:09:34.39

むきになって長文書くなよ
迷惑行為だぜ

**デフォルトの名無しさん** · 2019/07/28(日) 17:23:37.85

基地外だから仕方ないね

**蟻人間** ◆T6xkBnTXz7B0 · 2019/07/28(日) 18:48:49.76

そろそろ次のスレ

**デフォルトの名無しさん** · 2019/07/28(日) 18:51:08.82

まだ早い

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

次スレ
http://mevius.5ch.net/test/read.cgi/tech/1564310397/

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

>>992
おつ

◆QZaw55cn4c · 2019/07/28(日) 23:35:47.94

>>992
お疲れさまです…

**デフォルトの名無しさん** · 2019/07/28(日) 23:40:41.46

>>994
書き込み禁止

◆QZaw55cn4c · 2019/07/28(日) 23:50:56.98

>>995
はいはい&hearts;

**デフォルトの名無しさん** · 2019/07/29(月) 20:09:26.82

お題: このスレッドのアンカーの数を出力せよ

**デフォルトの名無しさん** · 2019/07/29(月) 20:11:57.84

w3m https://mevius.5ch.net/test/read.cgi/tech/1558168409/| grep -o ">>[0-9]" | wc -l
909

あれのせいだな

**デフォルトの名無しさん** · 2019/07/30(火) 05:43:03.94

>>164
あまり他の言語にない redo を使う perl5
http://ideone.com/46mcQl

**デフォルトの名無しさん** · 2019/07/30(火) 07:12:39.03

>>417
13694289/134217728
を使えば満足するだろうか？なぜなら
(rational
0.102030405060708090
10011012013014015016
01701801902002102202
30240250260270280290
30031032033034035036
03703803904004104204
30440450460470480490
50051052053054055056
05705805906006106206
30640650660670680690
70071072073074075076
07707807908008108208
30840850860870880890
90091092093094095096
0970980990100
)
13694289/134217728

**1001** · Over 1000

このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 72日 13時間 39分 10秒