Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Jensens-Device/Euler/jensens-device.euler
+++ b/Task/Jensens-Device/Euler/jensens-device.euler
@ -0,0 +1,17 @@
+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 $