Skip to content

Instantly share code, notes, and snippets.

@pbevin

pbevin/e.hs

Created April 23, 2015 00:24
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 pbevin/73131be877bb58189150 to your computer and use it in GitHub Desktop.
Save pbevin/73131be877bb58189150 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
e.hs
e = g(1,0,1,1,2,3) where
g(q,r,t,k,n,l) =
if 2*q+r-t<n*t
then n : g(10*q,10*(r-n*t),t,k,div(10*(q+r))t-10*n,l)
else g(q,(q+r)*k,t*k,k+1,div(q+r*k)(t*k),l+2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment