ramntry · November 1, 2014 20:02
diff --git a/main.hs b/main.hs
 import Data.List

 ham :: [Integer]
 ham = 1 : (map head . group $ merge (map (* 3) ham) (map (* 10) ham)) where
  merge l1@(x : xs) l2@(y : ys) | x < y     = x : merge xs l2
                                | otherwise = y : merge l1 ys

 main :: IO ()
 main = do
  num' <- getLine
  putStrLn $ show $ ham !! read num'
	import Data.List

	ham :: [Integer]
	ham = 1 : (map head . group $ merge (map (* 3) ham) (map (* 10) ham)) where
	merge l1@(x : xs) l2@(y : ys) \| x < y = x : merge xs l2
	\| otherwise = y : merge l1 ys

	main :: IO ()
	main = do
	num' <- getLine
	putStrLn $ show $ ham !! read num'
No results found