Jensen's Device: Difference between revisions
Added Euler
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Euler) |
||
Line 594:
4> jensens_device:task().
5.1873775176396215
</pre>
=={{header|Euler}}==
{{Trans|ALGOL 60}}
<syntaxhighlight lang="euler">
begin
new i; new sum;
sum <- ` formal i; formal lo; formal hi; formal term;
begin
new temp; label loop;
temp <- 0;
i <- lo;
loop: begin
temp <- temp + term;
if [ i <- i + 1 ] <= hi then goto loop else 0
end;
temp
end
';
out sum( @i, 1, 100, `1/i' )
end $
</syntaxhighlight>
{{out}}
<pre>
NUMBER 5.1873775176
</pre>
Line 604 ⟶ 630:
5.18737751763962
</pre>
=={{header|Factor}}==
Similar to the Java and Kotlin examples:
| |||