September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Pi/Haskell/pi-1.hs
+++ b/Task/Pi/Haskell/pi-1.hs
@ -1,5 +1,19 @@
-pi_ = g(1,0,1,1,3,3) where
-  g (q,r,t,k,n,l) =
-   if 4*q+r-t < n*t
-    then n : g (10*q, 10*(r-n*t), t, k, div (10*(3*q+r)) t - 10*n, l)
-    else g (q*k, (2*q+r)*l, t*l, k+1, div (q*(7*k+2)+r*l) (t*l), l+2)
+pi_ = g (1, 0, 1, 1, 3, 3)
+  where
+    g (q, r, t, k, n, l) =
+      if 4 * q + r - t < n * t
+        then n :
+             g
+               ( 10 * q
+               , 10 * (r - n * t)
+               , t
+               , k
+               , div (10 * (3 * q + r)) t - 10 * n
+               , l)
+        else g
+               ( q * k
+               , (2 * q + r) * l
+               , t * l
+               , k + 1
+               , div (q * (7 * k + 2) + r * l) (t * l)
+               , l + 2)