Skip to content

Instantly share code, notes, and snippets.

@eccstartup

eccstartup/beadsort.hs

Created August 30, 2014 15:12
Show Gist options
  • Save eccstartup/072e5b9daf40548b43b4 to your computer and use it in GitHub Desktop.
Save eccstartup/072e5b9daf40548b43b4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
beadsort.hs
import Data.List
beadsort :: [Int] -> [Int]
beadsort = tail $ map (length. concat) $ inits $ group $ map sum $ transpose $ map (\n -> replicate n 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment