Jensen's Device: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
|||
Line 483: | Line 483: | ||
CL-USER> (float (sum i 1 100 (/ 1 i))) |
CL-USER> (float (sum i 1 100 (/ 1 i))) |
||
5.1873775</syntaxhighlight> |
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}}== |
=={{header|D}}== |