Commit 4f8c2480 authored by Yuanle Song's avatar Yuanle Song
Browse files

implemented the bad try1.hs 

it works as expected, the output are all messed up.
parent 0780749b

try1.hs

+1 −1
Original line number Diff line number Diff line
@@ -22,5 +22,5 @@ main :: IO () 
main = do

  putStrLn "Starting up"

  counter <- newMVar 0

  replicateM_ 10 (incrementAndPrint counter)

  replicateM_ 10 (forkIO $ incrementAndPrint counter)

  putStrLn "Finishing up"