all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 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}
+  }