>>807 Perl5
for (1..5) {
@a = (1, map{$a[$_] + $a[$_+1]} 0..$#a);
print @a,"\n";
}
実行結果
$ perl 14_807.pl
1
11
121
1331
14641
for (1..5) {
@a = (1, map{$a[$_] + $a[$_+1]} 0..$#a);
print @a,"\n";
}
実行結果
$ perl 14_807.pl
1
11
121
1331
14641
このスレへの固定リンク: http://5chb.net/r/tech/1558168409/
ヒント:5chスレのurlに http://xxxx.5chb.net/xxxx のようにbを入れるだけでここでスレ保存、閲覧できます。
レス:1-200 201-400 401-600 601-800 801-1000 ALL
このスレへの固定リンク: http://5chb.net/r/tech/1558168409/
![]() ![]() ![]() |
---|
18:05:26 up 3 days, 18:19, 0 users, load average: 75.87, 53.05, 44.22
in 0.096529960632324 sec
@[email protected] on 102107 |