Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Loops-With-multiple-ranges/Haskell/loops-with-multiple-ranges.hs
+++ b/Task/Loops-With-multiple-ranges/Haskell/loops-with-multiple-ranges.hs
@ -0,0 +1,31 @@
+loop :: (b -> a -> b) -> b -> [[a]] -> b
+loop = foldl . foldl
+
+example = let
+  x = 5
+  y = -5
+  z = -2
+  one = 1
+  three = 3
+  seven = 7
+  in
+    loop
+    -- body
+    (
+      \(sum, prod) j ->
+        (
+          sum + abs j,
+          if abs prod < 2^27 && j /= 0
+          then prod * j else prod
+        )
+    )
+    -- initial state
+    (0, 1)
+    -- ranges
+    [ [-three, -three + three .. 3^3]
+      , [-seven, -seven + x .. seven]
+      , [555 .. 550 - y]
+      , [22, 22 - three .. -28]
+      , [1927 .. 1939]
+      , [x, x + z .. y]
+      , [11^x ..  11^x + one] ]