Data update

Task/Loops-With-multiple-ranges/Haskell/loops-with-multiple-ranges-2.hs

@@ -0,0 +1,30 @@
+procedure main()
+     prod :=  1
+      sum :=  0
+        x := +5
+        y := -5
+        z := -2
+      one :=  1
+    three :=  3
+    seven :=  7
+
+    every j := resultsof {
+        -three to        3^3 by  three ,
+        -seven to     +seven by      x ,
+           555 to    550 - y           ,
+            22 to        -28 by -three ,
+          1927 to       1939           ,
+             x to          y by      z ,
+          11^x to 11^x + one
+    } do {
+        sum := sum + abs(j)
+        if abs(prod) < 2^27  &  j ~= 0 then prod := prod*j
+    }
+    write(" sum = ", sum)
+    write("prod = ", prod)
+end
+
+procedure resultsof(celist)
+    every ce := !celist do
+        while e := @ce do suspend e
+end

Task/Loops-With-multiple-ranges/Haskell/loops-with-multiple-ranges-3.hs

@@ -0,0 +1,27 @@
+procedure main()
+     prod :=  1
+      sum :=  0
+        x := +5
+        y := -5
+        z := -2
+      one :=  1
+    three :=  3
+    seven :=  7
+
+    i_to_h_by_k := proc("...",3)  # i_to_h_by_k(i,h,k)
+                                  # same as "i to h by k"
+    every j := i_to_h_by_k ! ![
+        [ -three ,        3^3 ,  three ] ,
+        [ -seven ,     +seven ,      x ] ,
+        [    555 ,    550 - y ,    one ] ,  # list of argument lists
+        [     22 ,        -28 , -three ] ,  #      (i,h,k)
+        [   1927 ,       1939 ,    one ] ,
+        [      x ,          y ,      z ] ,
+        [   11^x , 11^x + one ,    one ]
+    ] do {
+        sum := sum + abs(j)
+        if abs(prod) < 2^27  &  j ~= 0 then prod := prod*j
+    }
+    write(" sum = ", sum)
+    write("prod = ", prod)
+end