Sum of a series: Difference between revisions
→{{header|TXR}}: Variant C: shortest.
(→{{header|TXR}}: Variant C.) |
(→{{header|TXR}}: Variant C: shortest.) |
||
Line 1,579:
<lang txr>txr -c '@(bind sum @[[chain range (op mapcar (op / 1.0 (* @1 @1))) (op reduce-left + @1 0)] 1 1000])'
sum="1.64393456668156"</lang>
Variant C: unravel the chain in Variant B using straightforward nesting.
<lang txr>txr -c '@(bind sum @[reduce-left + (mapcar (op / 1.0 (* @1 @1)) (range 1 1000)) 0])'
sum="1.64393456668156"</lang>
| |||