プログラミングのお題スレ Part14at TECH
プログラミングのお題スレ Part14 - 暇つぶし2ch999:デフォルトの名無しさん
19/07/28 02:35:31.10 /N9EqgUo.net
>>982
python3
URLリンク(ideone.com)

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

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
URLリンク(ideone.com)
言語変えたらより見やすくなった

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

1004:デフォルトの名無しさん
19/07/28 16:06:00.72 T1A0+dDM.net
>>980-981
もともと提示されてたのは式だけだし、式自体に誤差はないじゃん。アホなの?
てかさ、(-1)^((x+1)%3)で場合分けを吸収してるところは素直に上手いなぁとは思うけど元のフィボナッチ数列の式からの変形自体は高校生レベルじゃんこれ
「自分で考えたの?」てお前アホなの?
誰が解いても上の部分以外は同じになるっつーの
「2次方程式の解の公式で解きました!」
「その公式って自分で考えたの?」
くらい間抜けでアホ馬鹿丸出し生きる価値無し短小包茎白癬菌

1005:デフォルトの名無しさん
19/07/28 17:09:34.39 a6lmPEp9.net
むきになって長文書くなよ
迷惑行為だぜ

1006:デフォルトの名無しさん
19/07/28 17:23:37.85 6a78I9O8.net
基地外だから仕方ないね

1007:蟻人間
19/07/28 18:48:49.76 38YML8XX.net
そろそろ次のスレ

1008:デフォルトの名無しさん
19/07/28 18:51:08.82 vDw8KJqW.net
まだ早い

1009:デフォルトの名無しさん
19/07/28 19:41:08.34 832c/ukY.net
次スレ
スレリンク(tech板)

1010:デフォルトの名無しさん
19/07/28 19:42:06.95 bnGezINl.net
>>993
おつ

1011:
19/07/28 23:35:47.94 GPK25ks7.net
>>993
お疲れさまです…

1012:デフォルトの名無しさん
19/07/28 23:40:41.46 /N9EqgUo.net
>>995
書き込み禁止

1013:
19/07/28 23:50:56.98 GPK25ks7.net
>>996
はいはい&hearts;

1014:デフォルトの名無しさん
19/07/29 20:09:26.82 p0mLxaof.net
お題: このスレッドのアンカーの数を出力せよ

1015:デフォルトの名無しさん
19/07/29 20:11:57.84 VkmvAKd6.net
w3m スレリンク(tech板)| grep -o ">>[0-9]" | wc -l
909
あれのせいだな

1016:デフォルトの名無しさん
19/07/30 05:43:03.94 RYwsY7rK.net
>>164
あまり他の言語にない redo を使う perl5
URLリンク(ideone.com)

1017:デフォルトの名無しさん
19/07/30 07:12:39.03 RYwsY7rK.net
>>417
13694289/134217728
を使えば満足するだろうか?なぜなら
(rational
0.102030405060708090
10011012013014015016
01701801902002102202
30240250260270280290
30031032033034035036
03703803904004104204
30440450460470480490
50051052053054055056
05705805906006106206
30640650660670680690
70071072073074075076
07707807908008108208
30840850860870880890
90091092093094095096
0970980990100
)
13694289/134217728

1018:1001
Over 1000 Thread.net
このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 72日 13時間 39分 10秒

1019:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています


最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch