Sum of a series: Difference between revisions
→{{header|Icon}}
Line 104:
(sum . map (1/) . map (^2)) [1..1000]
=={{header|Icon}}==
procedure main()
local i, sum
sum := 0 & i := 0
every sum +:= 1.0/((| i +:= 1 ) ^ 2) \1000
write(sum)
end
=={{header|IDL}}==
| |||