Skip to content

Instantly share code, notes, and snippets.

@jacobstanley

jacobstanley/gist:407857

Created May 20, 2010 17:52
Show Gist options
  • Save jacobstanley/407857 to your computer and use it in GitHub Desktop.
Save jacobstanley/407857 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hsc
h x=maximum$0:[y|(l,y,r)<-b,l<=x,x<r]
print[(x,h x)|x<-[1..9999],h x/=h(x-1)]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment