summaryrefslogblamecommitdiffstats
path: root/001.pl
blob: 85a8faaaf5f273e077f567551c2ab90c999e1063 (plain) (tree)
1
2
3
4
5




                                     
#!/usr/bin/perl
use warnings;

$t+=(!($_%5&& $_%3)?$_:0)for(1..999);
print "$t\n";