sw17ch · February 28, 2014 17:36
diff --git a/sounds.hs b/sounds.hs
 sequences :: [a] -> [[a]]
 sequences ls = ls' ++ [i ++ [a] | i <- sequences ls, a <- ls]
  where
      ls' = map (:[]) ls

 main :: IO ()
 main = do
  let syms = ["a","e","i","o","u","y"]

  mapM_ (print . concat) (sequences syms)
	sequences :: [a] -> [[a]]
	sequences ls = ls' ++ [i ++ [a] \| i <- sequences ls, a <- ls]
	where
	ls' = map (:[]) ls

	main :: IO ()
	main = do
	let syms = ["a","e","i","o","u","y"]

	mapM_ (print . concat) (sequences syms)
No results found