[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)

プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

299: デフォルトの名無しさん [sage] 2019/02/21(木) 23:36:37.11 ID:un6uIa3F >>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 http://mevius.5ch.net/test/read.cgi/tech/1549160513/299

301: デフォルトの名無しさん [sage] 2019/02/22(金) 00:07:27.55 ID:wSgiM5bY >>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 http://mevius.5ch.net/test/read.cgi/tech/1549160513/301

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.578s