oskimura · October 1, 2010 11:59
diff --git a/Euler24.hs b/Euler24.hs
 {-# LANGUAGE NoMonomorphismRestriction #-}
 module Euler24 where
 import Data.List (permutations, sort)

 listToDigit xs = sum $ zipWith (*) (reverse xs) (iterate (*10) 1)

 euler24 = listToDigit . f $ lst
    where
      f = (!!(1000000-1)) . sort . permutations
      lst =  [0..9]
	{-# LANGUAGE NoMonomorphismRestriction #-}
	module Euler24 where
	import Data.List (permutations, sort)

	listToDigit xs = sum $ zipWith () (reverse xs) (iterate (10) 1)

	euler24 = listToDigit . f $ lst
	where
	f = (!!(1000000-1)) . sort . permutations
	lst = [0..9]