Commit 801f5172 authored by AVANZINI Martin's avatar AVANZINI Martin
Browse files

trader-1000000

parent f4bf31de
......@@ -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
......
# 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
# 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
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment