Skip to content

Instantly share code, notes, and snippets.

@fakuivan

fakuivan/gray.hs

Created April 30, 2021 22:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fakuivan/addee1b40099a97c749515869b1470f3 to your computer and use it in GitHub Desktop.
Save fakuivan/addee1b40099a97c749515869b1470f3 to your computer and use it in GitHub Desktop.
Download ZIP
Algorithm implemented in Haskell for generating Grey codes
Raw
gray.hs
-- generalized n-ary gray code generator
gray :: (Integral a) => [b] -> a -> [[b]]
gray elems 1 = map (:[]) elems
gray elems n =
concat $ zipWith ($) prependers $ flipN $ gray elems (n-1)
where flipN = (take $ length elems) . (iterate reverse)
prependers = [ map (elem:) | elem <- elems ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment