Sum of a series: Difference between revisions
→{{header|TXR}}: Correction in comment.
(→{{header|TXR}}: Variant D.) |
(→{{header|TXR}}: Correction in comment.) |
||
Line 1,586:
sum="1.64393456668156"</lang>
Variant D: bring Variant B's
<lang txr>txr -c '@(bind sum @[reduce-left (op + @1 (/ 1.0 (* @2 @2))) (range 1 1000) 0])'
| |||