smcl · April 11, 2011 23:20
diff --git a/gistfile1.hs b/gistfile1.hs
 --Project Euler problem 38
 --  What is the largest 1 to 9 pandigital 9-digit number that can be formed as 
 --  the concatenated product of an integer with (1,2, ... , n) where n > 1?

 import Data.List

 pandigital9 = map (\x -> read x :: Integer) $ permutations "123456789"

 main = print $ last $ sort $ takeWhile (<987654321) $ concat $ map (\y -> filter (`elem` pandigital9) $ takeWhile (<987654321) $ map (\x -> read (concat $ map (show) $ map (y*) [1..x]) :: Integer) [1..]) [1..]
	--Project Euler problem 38
	-- What is the largest 1 to 9 pandigital 9-digit number that can be formed as
	-- the concatenated product of an integer with (1,2, ... , n) where n > 1?

	import Data.List

	pandigital9 = map (\x -> read x :: Integer) $ permutations "123456789"

	main = print $ last $ sort $ takeWhile (<987654321) $ concat $ map (\y -> filter (`elem` pandigital9) $ takeWhile (<987654321) $ map (\x -> read (concat $ map (show) $ map (y*) [1..x]) :: Integer) [1..]) [1..]