[Haskell-cafe] more functions to evaluate

13 Oct 2007


      Hi folks
Any comments and/or criticisms no matter how trivial on the following please:

	wordSize :: [Int] -> Int
	wordSize xs = head (dropWhile (<(length xs)) $ iterate (*2) 8)

	intToBinWord :: Int -> [Int]
	intToBinWord n = reverse (take elements (xs ++ repeat 0))
	  where
	  xs = reverse (intToBin n)
	  elements = wordSize xs

Thanks, Paul

[Haskell-cafe] more functions to evaluate

PR Stanley