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

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

713: デフォルトの名無しさん [sage] 2019/03/16(土) 14:50:17.74 ID:0dLFyPZP >>681 Perl5 use feature say; $n = 0; @t = ('木'); say "n=$n\n$t[0]"; for $n (1..2) { 　$l = '-' x 2**($n-1); 　@u = map{$l . $_ . $l} @t; 　@w = map{$t[$_].$t[$_]} 0..$#t; 　@t = (@u, @w); 　say "n=$n"; 　say for @t; } 実行例 ~ $ perl 13_681.pl n=0 木 n=1 -木- 木木 n=2 ---木--- --木木-- -木--木- 木木木木 注) 正直者には、-はスペースに見えます。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/713

715: デフォルトの名無しさん [sage] 2019/03/16(土) 17:11:38.87 ID:0dLFyPZP わかりません＞＜ http://mevius.5ch.net/test/read.cgi/tech/1549160513/715

719: デフォルトの名無しさん [sage] 2019/03/16(土) 17:36:13.64 ID:0dLFyPZP >>716 perl5 http://perl-users.jp/articles/advent-calendar/2011/acme/6 http://mevius.5ch.net/test/read.cgi/tech/1549160513/719

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.029s