Jensen's Device: Difference between revisions
Content added Content deleted
m (→{{header|AppleScript}}: (normalized white space)) |
(Realize in F#) |
||
Line 495: | Line 495: | ||
</pre> |
</pre> |
||
=={{header|F_Sharp|F#}}== |
|||
<lang fsharp> |
|||
printfn "%.14f" (List.fold(fun n g->n+1.0/g) 0.0 [1.0..100.0]);; |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
5.18737751763962 |
|||
</pre> |
|||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
Similar to the Java and Kotlin examples: |
Similar to the Java and Kotlin examples: |