Sum of a series: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,171: / Line 2,171: @@
 =={{header|Picat}}==
+===List comprehension===
+<lang Picat>s(N) = sum([1.0/K**2 : K in 1..N]).</lang>
+===Iterative===
+<lang Picat>s2(N) = Sum =>
+  K = 1,
+  Sum1 = 0,
+  while(K <= N)
+    Sum1 := Sum1 + 1/K**2,
+    K := K + 1
+  end,
+  Sum = Sum1.</lang>
+===Test===
 <lang Picat>go =>
   % List comprehension
@@ Line 2,188: / Line 2,202: @@
     printf("%f (diff: %w)\n", S,Pi2_6-S)
   end,
-  nl.
+  nl.</lang>
-% List comprehension
-s(N) = sum([1.0/K**2 : K in 1..N]).
-% Iterative
-s2(N) = Sum =>
-  K = 1,
-  Sum1 = 0,
-  while(K <= N)
-    Sum1 := Sum1 + 1/K**2,
-    K := K + 1
-  end,
-  Sum = Sum1.</lang>
 {{out}}
@@ Line 2,223: / Line 2,224: @@
 .644924 (diff: 0.000009999949984)
 .644933 (diff: 0.000000999999456)</pre>
 =={{header|PicoLisp}}==