Lösung zu Blatt 3 --- OO-Datenbank Anwendungen (WS 2002)

Vollkommene Zahlen

#!/usr/local/bin/perl -w
use strict;
foreach my $number (2 .. 500) {
   my $sigma = 1;
   foreach my $i (2 .. $number >> 1) {
      $sigma += $i unless $number % $i;
   }
   print "$number\n" if $sigma == $number;
}