[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

299(1): 2019/02/21(木)23:36 ID:un6uIa3F(1)調 AAS
>>282 Perl5

sub f {
　my $a = shift;
　@_ ? (@_ > 1 ? "$a, " : "$a and ").f(@_) : $a
}

use feature say;

say f(qw[red green black white]);
say f(qw[apple banana]);
say f(qw[one]);

実行結果
~ $ perl 13_279_and.pl
red, green, black and white
apple and banana
one

---

301: 2019/02/22(金)00:07 ID:wSgiM5bY(1/2)調 AAS
>>299
ｱﾝｶｰ間違えた >>279 宛だった…orz

>>279 もう一丁 Perl5

sub g {
　my $z = ' and '.pop @_ if @_ > 1;
　join(', ', @_).$z;
}

use feature say;
say g(qw[red green black white]);
say g(qw[apple banana]);
say g(qw[one]);

実行結果
~ $ perl 13_279_and_2.pl
red, green, black and white
apple and banana
one

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.040s