Sum of a series: Difference between revisions
→{{header|TXR}}: Variant D.
(→{{header|TXR}}: Variant C: shortest.) |
(→{{header|TXR}}: Variant D.) |
||
Line 1,584:
<lang txr>txr -c '@(bind sum @[reduce-left + (mapcar (op / 1.0 (* @1 @1)) (range 1 1000)) 0])'
sum="1.64393456668156"</lang>
Variant D: bring Variant B's summation into the fold, eliminating mapcar. Final answer.
<lang txr>txr -c '@(bind sum @[reduce-left (op + @1 (/ 1.0 (* @2 @2))) (range 1 1000) 0])'
sum="1.64393456668156"</lang>
| |||