trader-1000000

app/RunTestbed.hs

@@ -46,7 +46,7 @@ import           PWhile.Util
 main :: IO ()
 main = do
   let bnch = oopsla
-  let ?to  = 5
+  let ?to  = 60
   as <- getArgs
   case as of
     ("--run":_)      -> printBenchmark         bnch

examples/oopsla/trader-1000000.absynth

+# Variation of linear/trader.imp
+
+def trader():
+    var price, min, nShares, tick_z
+    while price > min and min >= 0:
+        prob (1,3):
+            price = price + 1
+        else:
+            price = price - 1
+
+        nShares = unif(0,1000000)
+
+        while nShares > 0:
+             nShares = nShares - 1
+             tick_z = tick_z + price

examples/oopsla/trader-1000000.pwhile

+# Variation of linear/trader.imp
+
+def trader():
+    var price, min, nShares
+    while price > min and min >= 0:
+        prob (1,3):
+            price = price + 1
+        else:
+            price = price - 1
+
+        nShares = unif(0,1000000)
+
+        while nShares > 0:
+             nShares = nShares - 1
+             tick price