[過去ﾛｸﾞ] プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
9(7): デフォルトの名無しさん [] 2016/12/07(水)14:23 ID:ltGABuaa(1)
景気付けにどうぞ
お題：以下の数列を出力するプログラム
[0, 10, 1110, 110, 2110, 122110, 11222110, 2122110, 1211222110, 11122122110,...]
11: デフォルトの名無しさん [sage] 2016/12/07(水)19:07 ID:ijEXmeus(1)
>>9 Java
http://ideone.com/SjEe5N
>>10と同じで法則性考えるのに時間がかかったわ
12: デフォルトの名無しさん [sage] 2016/12/07(水)19:15 ID:Gz2S0y7j(1)
>>9 Nim
https://ideone.com/WLvRqB
13: デフォルトの名無しさん [sage] 2016/12/08(木)00:20 ID:Gvasb8BC(1/2)
>>9
・法則見つけた瞬間までがピーク
・実際書くと何一つスッキリ書けなくて悔しい
https://ideone.com/n0RoNr
↓
[
14: デフォルトの名無しさん [sage] 2016/12/08(木)00:21 ID:Gvasb8BC(2/2)
>>9 ruby
・法則見つけた瞬間までがピーク
・実際書くと何一つスッキリ書けなくて悔しい
https://ideone.com/n0RoNr
↓
["0", "10", "1110", "110", "2110", "122110", "11222110", "2122110", "1211222110", "11122122110", "12211222110", "11222122110"]
15: デフォルトの名無しさん [sage] 2016/12/08(木)00:53 ID:T7wNCBuS(1)
>>9 ruby ちょい整理
https://ideone.com/kyw9bm
19: デフォルトの名無しさん [sage] 2016/12/09(金)21:52 ID:BOiFZI5h(1)
>>9 Nim
あまりに不細工だったので書き直し
https://ideone.com/9q80v4
正規表現使うバージョン(ただしideoneは古すぎてコンパイルできない)
https://ideone.com/01ktu2
22: デフォルトの名無しさん [sage] 2016/12/11(日)18:00 ID:RSXbZT65(1)
>>9 Perl
use feature qw{:5.16};
sub {
$_ = join'', @_;
exit if length > 12;
say;
@_ = ();
while (/((.)\2*)$/) {
$len = length($1);
$len = '' if $len > 2;
unshift @_, $len . $2;
$_ = $`
}
goto __SUB__;
}->(0);
無名関数の末尾再帰を使って記述してみました。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.032s