Sum of a series: Difference between revisions
→{{header|Picat}}: Split into subsections
(→{{header|Picat}}: Split into subsections) |
|||
Line 2,171:
=={{header|Picat}}==
<lang Picat>s(N) = sum([1.0/K**2 : K in 1..N]).</lang>▼
<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 ⟶ 2,202:
printf("%f (diff: %w)\n", S,Pi2_6-S)
end,
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 ⟶ 2,224:
1.644924 (diff: 0.000009999949984)
1.644933 (diff: 0.000000999999456)</pre>
=={{header|PicoLisp}}==
|