Skip to main content
added 8 characters in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253

Haskell, 71 70 65 63 62 61 58 5856 bytes

Thanks to @xnor for a some ingenious improvements!

(n#m)e|e>n*m*1e3=0|n>=m=((e|e>n*m*1e3=0|n<m=m#n$e|d<-n-m)#mm=(d#m)e+1|n<m=m#n$ee+1 n!m=n#m$n*m 

Try it online!Try it online!

Haskell, 71 70 65 63 62 61 58 bytes

Thanks to @xnor for a some improvements!

(n#m)e|e>n*m*1e3=0|n>=m=((n-m)#m)e+1|n<m=m#n$e n!m=n#m$n*m 

Try it online!

Haskell, 71 70 65 63 62 61 58 56 bytes

Thanks to @xnor for a some ingenious improvements!

(n#m)e|e>n*m*1e3=0|n<m=m#n$e|d<-n-m=(d#m)e+1 n!m=n#m$n*m 

Try it online!

added 1 character in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253

Haskell, 71 70 65 63 62 61 58 bytes

Thanks to @xnor for a fewsome improvements!

(n#m)e|e>n*m*1e3=0|n>=m=((n-m)#m)e+1|n<m=m#n$e n!m=n#m$n*m 

Try it online!

Haskell, 71 70 65 63 62 61 58 bytes

Thanks to @xnor for a few improvements!

(n#m)e|e>n*m*1e3=0|n>=m=((n-m)#m)e+1|n<m=m#n$e n!m=n#m$n*m 

Try it online!

Haskell, 71 70 65 63 62 61 58 bytes

Thanks to @xnor for a some improvements!

(n#m)e|e>n*m*1e3=0|n>=m=((n-m)#m)e+1|n<m=m#n$e n!m=n#m$n*m 

Try it online!

added 1 character in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253

Haskell, 71 70 65 63 62 61 6258 bytes

Thanks to @xnor for a few improvements!

(n#m)e|e>n*m*1000=0|n>=m=e|e>n*m*1e3=0|n>=m=((n-m)#m)e+1|n<m=(m#n)ee+1|n<m=m#n$e n!m=(n#m)$n*mm=n#m$n*m 

Try it online!Try it online!

Haskell, 71 70 65 63 62 bytes

Thanks to @xnor for a few improvements!

(n#m)e|e>n*m*1000=0|n>=m=((n-m)#m)e+1|n<m=(m#n)e n!m=(n#m)$n*m 

Try it online!

Haskell, 71 70 65 63 62 61 58 bytes

Thanks to @xnor for a few improvements!

(n#m)e|e>n*m*1e3=0|n>=m=((n-m)#m)e+1|n<m=m#n$e n!m=n#m$n*m 

Try it online!

added 36 characters in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253
Loading
added 6 characters in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253
Loading
Post Undeleted by flawr
deleted 9 characters in body
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253
Loading
Post Deleted by flawr
Source Link
flawr
  • 44.1k
  • 7
  • 109
  • 253
Loading