再帰を使って1からnまでの和を求める

さっきのをマネしてunlessを使ってみる。

wa(10000);

sub wa{
my ($num, $sum) = @_;
    unless($num) {
        print "$sum\n";
    }else{
        $sum += $num;
        $num--;
        &wa($num, $sum);
    }
}