Zur Berechnung der Quersumme einer Zahl kann auf dieses Snippet zurückgegriffen werden.
function quersumme { my $number = shift; my $sum = 0; while ($number != 0) { $sum = $sum + ($number % 10); $number = $number / 10; } }
Zur Berechnung der Quersumme einer Zahl kann auf dieses Snippet zurückgegriffen werden.
function quersumme { my $number = shift; my $sum = 0; while ($number != 0) { $sum = $sum + ($number % 10); $number = $number / 10; } }