پیدا کردن مجموع مضارب اعداد 3 و 5 کوچکتر از 1000

تنها نکته این برنامه اینست که اعدادی که هم مضرب 3 هستند و هم مضرب 5 می بایست تنها یکبار محاسبه شوند.

#!/usr/local/bin/perl
use strict;
use warnings;

my $i = 3;
my $s = 0;

while($i < 1000) {
	($i % 3 == 0 or $i % 5 == 0) and $s += $i;
	$i++;
}

print "Sum of multiplies of 3 and 5 bellow 1000 is: $s\n";

خروجی برنامه به صورت زیر است :

# ./3-5.pl
Sum of multiplies of 3 and 5 bellow 1000 is: 233168