Sum of a series: Difference between revisions
Add CLU
(Added solution for Action!) |
Not a robot (talk | contribs) (Add CLU) |
||
Line 534:
=={{header|Clojure}}==
<lang clojure>(reduce + (map #(/ 1.0 % %) (range 1 1001)))</lang>
=={{header|CLU}}==
<lang clu>series_sum = proc (from, to: int,
fn: proctype (real) returns (real))
returns (real)
sum: real := 0.0
for i: int in int$from_to(from, to) do
sum := sum + fn(real$i2r(i))
end
return(sum)
end series_sum
one_over_k_squared = proc (k: real) returns (real)
return(1.0 / (k * k))
end one_over_k_squared
start_up = proc ()
po: stream := stream$primary_output()
result: real := series_sum(1, 1000, one_over_k_squared)
stream$putl(po, f_form(result, 1, 6))
end start_up</lang>
{{out}}
<pre>1.643935</pre>
=={{header|COBOL}}==
| |||