2014-01-16 ガウス少年版 1からnまでの総和、ガウス少年版 #!/usr/bin/env perl $n = $ARGV[0]; $x = ((1 + $n) * $n)/2; print $x, "\n";