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/Time-a-function/Oz/time-a-function.oz
+++ b/Task/Time-a-function/Oz/time-a-function.oz
@ -0,0 +1,19 @@
+declare
+  %% returns milliseconds
+  fun {TimeIt Proc}
+     Before = {Now}
+  in
+     {Proc}
+     {Now} - Before
+  end
+
+  fun {Now}
+     {Property.get 'time.total'}
+  end
+in
+  {Show
+   {TimeIt
+    proc {$}
+       {FoldL {List.number 1 1000000 1} Number.'+' 4 _}
+    end}
+  }