[過去ﾛｸﾞ]
プログラミングのお題スレ Part21 (1002ﾚｽ)
プログラミングのお題スレ Part21 http://mevius.5ch.net/test/read.cgi/tech/1668333636/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
712: デフォルトの名無しさん [] 2023/06/01(木) 09:25:39.43 ID:dfYyQvOG お題 アルファベットが入力されます > [A, A, B, B, B, C, C, D, D, D, E] 出力上限が入力されます > 7 出力上限以内のアルファベットを出力してください > [A, A, B, B, B, C, C] ただし、出力上限で切った場合に同じアルファベットが分割される場合は出力上限を超えて 同じアルファベットが続く限り出力してください アルファベット: [A, A, B, B, B] 出力上限: 3 出力: [A, A, B, B, B] http://mevius.5ch.net/test/read.cgi/tech/1668333636/712
713: デフォルトの名無しさん [] 2023/06/01(木) 21:49:43.70 ID:+6RwHPfX >>712 C#でループを使わずに出力 www.ideone.com/Xk3ACt http://mevius.5ch.net/test/read.cgi/tech/1668333636/713
717: デフォルトの名無しさん [] 2023/06/03(土) 18:04:48.61 ID:lPLamTYg >>712 Kotlin https://paiza.io/projects/o3Y5W0EXe0CxGFZTAXhtAQ http://mevius.5ch.net/test/read.cgi/tech/1668333636/717
720: 638 [sage] 2023/06/04(日) 20:52:10.72 ID:pcjKLYRK >>712 Perl5 use feature qw{signatures say}; sub f($n, $c, @s) { if (1 < $n) { $c, f($n - 1, @s); } elsif (1 == $n) { $c, f(0, $c, @s); } else { $c, f(0, $c, splice @s, 1) if $c eq $s[0]; } } say f 7, qw[A A B B B C C D D D E]; say f 3, qw[A A B B B]; ※見易くするためインデントは全角スペースに置換してあります。 実行結果 $ perl 21_712.pl AABBBCC AABBB http://mevius.5ch.net/test/read.cgi/tech/1668333636/720
721: 638 [sage] 2023/06/04(日) 23:24:30.12 ID:pcjKLYRK >>712 Perl5、もっと簡潔なやり方あるんだった…orz use feature qw{signatures say}; sub f($n, $s) { my $r = '^.{' . ($n - 1) . '}(.)\1*'; $s =~ /$r/; $&; } say f 7, 'AABBBCCDDDE'; say f 3, 'AABBB'; 実行結果 $ perl 21_712_rex.pl AABBBCC AABBB http://mevius.5ch.net/test/read.cgi/tech/1668333636/721
735: デフォルトの名無しさん [] 2023/06/08(木) 10:35:46.63 ID:s2HJPh3y >>712 Kotlin 抜き出す数の指定が 0 以下の場合は空のリストになるようにした。 https://paiza.io/projects/oE3GVsi4b0sNqSXQ78_7gg http://mevius.5ch.net/test/read.cgi/tech/1668333636/735
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.032s