Project Euler 解答

Project Euler Problem 062

Project Euler Problem 062

import Data.List cube :: [Integer] cube = [x^(3::Integer)|x<-[1..]] eql :: (Show a, Show a1) => a -> a1 -> Bool eql a b = sort(show a)==sort(show b) s :: Integer s = 102334556789 e :: Integer e = 987655433201 cuber :: [Integer] cuber = takeWhile(<=e) $ dropWhile(=a) cuber,b=b) cuber,c=c) cuber,d=d) cuber,ee

since 2013