- 383 名前：デフォルトの名無しさん mailto:sage [2019/09/09(月) 00:57:49.46 ID:G8Ger3PB.net]
- >>373 Perl5
sub f {
map{$_[$_ + 1] - $_[$_]} 0..$#_-1;
}
@a = qw{3 1 4 1 5 9 2 6 5};
@b = f @a;
print "@b\n";
実行結果
~ $ perl 15_373.pl
-2 3 -3 4 4 -7 4 -1
↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました |
プログラミングのお題スレ Part15
| |
read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef