Amicable pairs: Difference between revisions

 

=={{header|Perl 6}}==

<lang perl6>sub propdivsum (\x) {

}

}

 

my $j = propdivsum($i);

say "$i $j" if $j > $i and $i == propdivsum($j);