initial exercise

app/MainBanking1.hs

@@ -0,0 +1,24 @@
+module Main where
+
+import qualified Control.Concurrent.Thread as Thread ( forkIO, result )
+import Control.Concurrent.MVar
+import Control.Monad
+import Data.Time.Clock
+
+import Banking
+
+main :: IO ()
+main = do
+        start <- getCurrentTime
+        bank <- setup
+        -- start 10 threads doing 10000 treansactions each
+        threads <- sequence $ Thread.forkIO <$> replicate 10 (foldr1 (>=>) (replicate 10000 testTransaction1) bank)
+        banks <- sequence $ (\(_,w) -> w >>= Thread.result) <$> threads
+        stop <- getCurrentTime
+        printBanks banks
+        print $ "Time taken: " ++ (show $ diffUTCTime stop start)
+printBanks :: [Bank] -> IO ()
+printBanks (a:as) = do
+        sequence_ $ (readMVar >=> print) <$> a
+printBanks [] = return ()
+

app/MainBanking2.hs

@@ -0,0 +1,26 @@
+module Main where
+
+import qualified Control.Concurrent.Thread as Thread ( forkIO, result )
+import Control.Concurrent.MVar
+import Control.Monad
+import Data.Time.Clock
+
+import Banking
+
+main :: IO ()
+main = do
+        start <- getCurrentTime
+        bank <- setup
+        bank' <- newMVar bank
+        -- start 10 threads doing 10000 treansactions each
+        threads <- sequence $ Thread.forkIO <$> replicate 10 (foldr1 (>=>) (replicate 10000 testTransaction2) bank')
+        banks <- sequence $ (\(_,w) -> w >>= Thread.result) <$> threads
+        stop <- getCurrentTime
+        printMBanks banks
+        print $ "Time taken: " ++ (show $ diffUTCTime stop start)
+
+printMBanks :: [MVar Bank] -> IO ()
+printMBanks (a:as) = do
+        a' <- readMVar a
+        sequence_ $ (readMVar >=> print) <$> a'
+printMBanks [] = return ()

app/MainParallel1.hs

@@ -0,0 +1,6 @@
+module Main where
+
+import Parallel
+
+main :: IO ()
+main = putStr strategy1

app/MainParallel2.hs

@@ -0,0 +1,6 @@
+module Main where
+
+import Parallel
+
+main :: IO ()
+main = putStr strategy2

app/MainParallel3.hs

@@ -0,0 +1,6 @@
+module Main where
+
+import Parallel
+
+main :: IO ()
+main = putStr strategy3

app/MainSTMBanking1.hs

@@ -0,0 +1,24 @@
+module Main where
+
+import qualified Control.Concurrent.Thread as Thread ( forkIO, result )
+import Control.Concurrent.STM
+import Control.Monad
+import Data.Time.Clock
+
+import STMBanking
+
+main :: IO ()
+main = do
+        start <- getCurrentTime
+        bank <- setup
+        -- start 10 threads doing 10000 treansactions each
+        threads <- sequence $ Thread.forkIO <$> replicate 10 (foldr1 (>=>) (replicate 10000 testTransaction1) bank)
+        banks <- sequence $ (\(_,w) -> w >>= Thread.result) <$> threads
+        stop <- getCurrentTime
+        printBanks banks
+        print $ "Time taken: " ++ (show $ diffUTCTime stop start)
+
+printBanks :: [Bank] -> IO ()
+printBanks (a:as) = do
+        sequence_ $ ((atomically . readTMVar) >=> print) <$> a
+printBanks [] = return ()

app/MainSTMBanking2.hs

@@ -0,0 +1,28 @@
+module Main where
+
+import qualified Control.Concurrent.Thread as Thread ( forkIO, result )
+import Control.Concurrent.STM
+import Control.Monad
+import Data.Time.Clock
+
+import STMBanking
+
+main :: IO ()
+main = do
+        start <- getCurrentTime
+        bank <- setup
+        bank' <- newTMVarIO bank
+        -- start 10 threads doing 10000 treansactions each
+        threads <- sequence $ Thread.forkIO <$> replicate 10 (foldr1 (>=>) (replicate 10000 testTransaction2) bank')
+        banks <- sequence $ (\(_,w) -> w >>= Thread.result) <$> threads
+        stop <- getCurrentTime
+        printMBanks banks
+        print $ "Time taken: " ++ (show $ diffUTCTime stop start)
+
+printMBanks :: [TMVar Bank] -> IO ()
+printMBanks (a:as) = do
+        vals <- atomically $ do
+                a' <- readTMVar a
+                sequence $ readTMVar <$> a'
+        sequence_ $ print <$> vals
+printMBanks [] = return ()