Jensen's Device: Difference between revisions

Content deleted Content added

Inline

@@ Line 466: / Line 466: @@
 //Output: 5.1873775176396
 </lang>
+=={{header|PicoLisp}}==
+<lang PicoLisp>(scl 6)
+(de jensen (I Lo Hi Term)
+   (let Temp 0
+      (set I Lo)
+      (while (>= Hi (val I))
+         (inc 'Temp (Term))
+         (inc I) )
+      Temp ) )
+(let I (box)  # Create indirect reference
+   (format
+      (jensen I 1 100 '(() (*/ 1.0 (val I))))
+      *Scl ) )</lang>
+Output:
+<pre>-> "5.187383"</pre>
 =={{header|Python}}==