[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

713: 2019/03/16(土)14:50 ID:0dLFyPZP(1/3)調 AAS
>>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
---木---
--木木--
-木--木-
木木木木

注) 正直者には、-はスペースに見えます。

---

715: 2019/03/16(土)17:11 ID:0dLFyPZP(2/3)調 AAS
わかりません＞＜

---

719: 2019/03/16(土)17:36 ID:0dLFyPZP(3/3)調 AAS
>>716 perl5
http://perl-users.jp/articles/advent-calendar/2011/acme/6

---

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

---

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

---

ぬこの手 ぬこTOP 0.050s