exercises/euler/1.pl

#!/usr/bin/perl 

=head1 NAME

1.pl

=head1 SYNOPSIS

perl ./1.pl

=head1 DESCRIPTION

Project Euler, Problem 1:

If we list all the natural numbers below 10 that are multiples of 3 or 5, we
get 3, 5, 6 and 9. The sum of these multiples is 23.

Find the sum of all the multiples of 3 or 5 below 1000.

=head1 AUTHOR

Brennen Bearnes <bbearnes@gmail.com>
http://p1k3.com/

=cut

use strict;
use warnings;
use 5.10.0;

my $sum = 0;
for (1..999) {
  my $yesh = ((!($_ % 3)) || (!($_ % 5)));
  $sum += $_ if $yesh;
}
say $sum;