プログラミングのお題スレ 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(日) 01:17:00.04

お題
括弧のネストの深さの最大値を求めよ
括弧の対応が取れていない場合は-1を出力せよ

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

**デフォルトの名無しさん** · 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