Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben(Parabola/X220) Minor cleanup f62e4ed 2 years ago 1032 Commits
nujel / benchmark / euler1 / perl.pl
Raw
application/x-perl • 200 B • 11 lines 
#!/usr/bin/env perl
use warnings;
use strict;

my $ret = 0;
for(my $i = 0; $i< 10000000; $i++){
    if((($i % 3) == 0) || (($i % 5) == 0)){
        $ret = $ret + $i;
    }
}
print "The sum is: $ret";