index
:
projecteuler
master
my project euler attempts
summary
refs
log
tree
commit
diff
stats
log msg
author
committer
range
path:
root
/
001.pl
blob: 85a8faaaf5f273e077f567551c2ab90c999e1063 (
plain
) (
blame
)
1
2
3
4
5
#!/usr/bin/perl
use
warnings
;
$t
+=
(
!
(
$_%5
&&
$_%3
)?
$_:0
)
for
(
1
..
999
);
print
"$t\n"
;