Project Euler 解答

Project Euler Problem 099

Project Euler Problem 099

import Data.List import Data.Ord import System.IO.Unsafe str :: String str = unsafePerformIO $ readFile "099base_exp.txt" list :: [([Integer], Integer)] list = zip (map (\x -> read ("["++x++"]") :: [Integer]) $ lines str) [1..] ans1imp :: ([Integer], Integer) ans1imp = maximumBy (comparing (\((a:b:_),n) -> (fromIntegral b)*log (fromIntegral a))) list ans1 = let (_,a) = ans1imp in a -- 709 main = print ans1

since 2013