Sum of a series: Difference between revisions
Content deleted Content added
→{{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>
|