Jensen's Device: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Euler) |
||
| Line 594: | Line 594: | ||
4> jensens_device:task(). |
4> jensens_device:task(). |
||
5.1873775176396215 |
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> |
</pre> |
||
| Line 604: | Line 630: | ||
5.18737751763962 |
5.18737751763962 |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
Similar to the Java and Kotlin examples: |
Similar to the Java and Kotlin examples: |
||