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