Perl初心者スレ（マジレス回答）

407 ：デフォルトの名無しさん：2018/02/26(月) 01:22:55.04 ID:lGsQPowqG

フィボナッチ数列で軽く練習していたら足し算うまくいってません

$a = 1; $b = 1; $c = 2;
until ($c > 20000) {
($a, $b, $c) = ($b, $c, $a+$b);
print "a is $a\t" ; print "b is $b\t" ; print "c is $c\n" ;
}