用perl做ProjectEuler练习题01

学习一门语言的最好方式就是去使用它。所以在语法不是特别熟练的时候就来做下欧拉练习题吧。

ProjectEuler01::

#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.

my $i=0;
my $sum = 0;
while ($i < 1000){
    $sum += $i if ($i % 5 ==0 or $i % 3 == 0);
    $i ++;
}
print $sum;

我去，我大perl竟然要归到其他类了。。。话说我对像python这种缩进敏感的语言实在是不喜欢(或许等真正做大点的项目还是python靠得住，不过无所谓了~毕竟是自己平时写点小工具玩嘛）但是相比起haskell的缩进。。。呵呵

第一题好像是简单了点，不过欧拉项目要都做完估计是没空了，算了以后慢慢更吧，有什么比较推荐的题目，或者好玩的题目各位看官可以在下方留言小弟感激不尽