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

プログラミングのお題スレ Part14at TECH

プログラミングのお題スレ Part14 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

999:デフォルトの名無しさん
 19/07/28 02:35:31.10 /N9EqgUo.net
>>982 
python3 
http://ideone.com/Nuqjvc

1000:デフォルトの名無しさん
 19/07/28 04:13:25.02 QWXlr9dJ.net
>>911 
Pythonで素直に書くとこんな感じ。 
http://ideone.com/3HvxyP 
これをそのままHaskellで書くと負けるが、こっちならPythonに勝つる。 
http://ideone.com/iwLONj

1001:デフォルトの名無しさん
 19/07/28 06:16:51.79 YNZYuVVC.net
>>982 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

1002:デフォルトの名無しさん
 19/07/28 12:26:21.14 /N9EqgUo.net
>>982 
perl5 
http://ideone.com/HOpSCt 
言語変えたらより見やすくなった

1003:デフォルトの名無しさん
 19/07/28 14:44:03.09 NJaTvOic.net
>>982 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

次ページ