合計金額になるすべてのお金の組み合わせを計算する。 例：10ドル、5ドル、1ドルを組み合わせて１２３ドルになるのは何通り？ use strict; sub f{ my( $amount, @curs ) = @_; my $cur = shift @curs; my $total; return 0 unless $cur; if( @curs == 0 ) { …