main :: IO()
main = do
    putStrLn "\nTestA\n===================="
    putStrLn $ "Before:" ++ printLotus testA
    putStrLn $ "After:" ++ printLotus (lotusSolver testA)
    putStrLn $ "Check: " ++ runTest "testA" testA
    putStrLn "\nSuccess Cases\n===================="
    putStrLn $ runTest "testB" testB
    putStrLn $ runTest "testC" testC
    putStrLn $ runTest "testD" testD
    putStrLn $ runTest "testE" testE
    putStrLn "\n\nFailed Cases\n===================="
    putStrLn $ runFailedTest "testF" testF
    putStrLn $ runFailedTest "testG" testG


{--------------------------
--- EXAMPLES PUZZLES ------
--------------------------}

-- Success Tests
main :: IO()
main = do
    putStrLn "\nTestA\n===================="
    putStrLn $ "Before:" ++ printLotus testA
    putStrLn $ "After:" ++ printLotus (lotusSolver testA)
    putStrLn $ "Check: " ++ runTest "testA" testA
    putStrLn "\nSuccess Cases\n===================="
    putStrLn $ runTest "testB" testB
    putStrLn $ runTest "testC" testC
    putStrLn $ runTest "testD" testD
    putStrLn $ runTest "testE" testE
    putStrLn "\n\nFailed Cases\n===================="
    putStrLn $ runFailedTest "testF" testF
    putStrLn $ runFailedTest "testG" testG


{--------------------------
--- EXAMPLES PUZZLES ------
--------------------------}

-- Success Tests
main = do
    putStrLn "\nTestA\n===================="
    putStrLn $ "Before:" ++ printLotus testA
    putStrLn $ "After:" ++ printLotus (lotusSolver testA)
    putStrLn $ "Check: " ++ runTest "testA" testA
    putStrLn "\nSuccess Cases\n===================="
    putStrLn $ runTest "testB" testB
    putStrLn $ runTest "testC" testC
    putStrLn $ runTest "testD" testD
    putStrLn $ runTest "testE" testE
    putStrLn "\n\nFailed Cases\n===================="
    putStrLn $ runFailedTest "testF" testF
    putStrLn $ runFailedTest "testG" testG


{--------------------------
--- EXAMPLES PUZZLES ------
--------------------------}

-- Success Tests