Jensen's Device: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
|||
Line 483:
CL-USER> (float (sum i 1 100 (/ 1 i)))
5.1873775</syntaxhighlight>
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">precision 4
define lo = 1, hi = 100, temp = 0
let i = lo
do
let temp = temp + ( 1 / i )
let i = i + 1
wait
loop i < hi + 1
print temp
end</syntaxhighlight>
=={{header|D}}==
|