Skip to content

Instantly share code, notes, and snippets.

@qzchenwl

qzchenwl/floors.hs

Created July 18, 2013 08:57
Show Gist options
  • Save qzchenwl/6027830 to your computer and use it in GitHub Desktop.
Save qzchenwl/6027830 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
floors.hs
import Data.List
floors = 0 : 1 : map step [2..]
where step h = minimum [ 1 + max (x-1) (floors!!(h-x)) | x <- [1..h-1] ]
main = print $ take 200 floors
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment