2008-04-14から1日間の記事一覧
3797→797→97→7、3797→379→37→3というように左右どちらから切り落としていっても全て素数となるような素数のうち、最初の11個を足し合わせる。 import Data.List main = print $ sum $ euler037 euler037 :: [Int] euler037 = take 11 $ filter truncatable $…
3797→797→97→7、3797→379→37→3というように左右どちらから切り落としていっても全て素数となるような素数のうち、最初の11個を足し合わせる。 import Data.List main = print $ sum $ euler037 euler037 :: [Int] euler037 = take 11 $ filter truncatable $…