Sum of a series: Difference between revisions
Content deleted Content added
m →{{header|Perl 6}}: fixing typo |
→{{header|TXR}}: Added. |
||
Line 1,561:
<lang ti89b>∑(1/x^2,x,1,1000)</lang>
=={{header|TXR}}==
Reduce with + operator over a lazily generated list.
Variant A: limit the list generation inside the <code>gen</code> operator.
<lang sh>txr -c '@(bind sum @[reduce-left + (let ((i 0)) (gen (< i 1000) (/ 1.0 (* (inc i) i)))) 0])'
sum="1.64393456668156"
</lang>
Variant B: generate infinite list, but take only the first 1000 items using <code>[list-expr 0..999]</code>.
<lang sh>txr -c '@(bind sum @[reduce-left + [(let ((i 0)) (gen t (/ 1.0 (* (inc i) i)))) 0..999] 0])'
sum="1.64393456668156"
</lang>
=={{header|UnixPipes}}==
| |||