Project Euler Golf
Perl6でGolf!
Fibonacci数列
(1,1,*+*...*)
最大公約数
{($^a,$^b,*%*...0)[*-2]}
がきれい。
001
say reduce {$^b%3&$b%5??$^a!!$a+$b},(0..999) #44B
002
say [+](1,1,*+*...4e6).grep(*%2-1) #34B
005
say reduce {($^a*$^b/($a,$b,*%*...0)[*-2]).Int},(1..20) #55B
006
say ([+](1..100))**2-[+](1..100).map(* **2) #43B