zeigeSpielfeld spieler spielfeld =
   putStrLn $ unlines $ map (concat . map (\x -> if x /= spieler then "0" else show spieler))
                [[spielfeld j i | i <- [1..dim]] | j <- [1..dim]]
 where
   dim = length . takeWhile (>(-1)) $ [spielfeld i 1 | i <- [1..]]

spielfeldA 1 1 = 0
spielfeldA 1 2 = 1
spielfeldA 1 3 = 0
spielfeldA 2 1 = 2
spielfeldA 2 2 = 0
spielfeldA 2 3 = 0
spielfeldA 3 1 = 1
spielfeldA 3 2 = 0
spielfeldA 3 3 = 2
spielfeldA _ _ = -1

spielfeldB 1 1 = 0
spielfeldB 1 2 = 0
spielfeldB 1 3 = 0
spielfeldB 1 4 = 0
spielfeldB 1 5 = 0
spielfeldB 2 1 = 0
spielfeldB 2 2 = 0
spielfeldB 2 3 = 1
spielfeldB 2 4 = 1
spielfeldB 2 5 = 0
spielfeldB 3 1 = 0
spielfeldB 3 2 = 0
spielfeldB 3 3 = 0
spielfeldB 3 4 = 0
spielfeldB 3 5 = 0
spielfeldB 4 1 = 0
spielfeldB 4 2 = 2
spielfeldB 4 3 = 2
spielfeldB 4 4 = 0
spielfeldB 4 5 = 0
spielfeldB 5 1 = 0
spielfeldB 5 2 = 0
spielfeldB 5 3 = 0
spielfeldB 5 4 = 0
spielfeldB 5 5 = 0
spielfeldB _ _ = -1

-- = -
-- = -
-- = ---------------------------------------------------------------------------
-- = -
-- = - Aufgabe a)
-- = -

flossAufFeld x y s = do
                {-
                if s == "spielfeldA" then let a = spielfeldA x y
                  else if s == "spielfeldB" then let a = spielfeldB x y
                else print "You misspelled the name of the spielfeld!"
                print a == 1
                -}
                if s == "spielfeldA" then print (spielfeldA x y == 1) else if s == "spielfeldB" then print (spielfeldB x y == 1) else print "You misspelled the name of the spielfeld!"
-- = -
-- = -
-- = ---------------------------------------------------------------------------
-- = -
-- = - Aufgabe b)
-- = -

sehrSchlechteIdee = undefined -- zu implementieren!

-- = -
-- = -
-- = ---------------------------------------------------------------------------
-- = -
-- = - Aufgabe c)
-- = -

bombeAuf = undefined -- zu implementieren!

-- = -
-- = -
-- = ---------------------------------------------------------------------------
-- = -
-- = - Aufgabe d)
-- = -

spielfeldGroesse = undefined -- zu implementieren!

-- = -
-- = -
-- = ---------------------------------------------------------------------------
-- = -
-- = - Aufgabe e)
-- = -

anzahlFloesse = undefined -- zu implementieren!

-- = -
-- = -
-- = ---------------------------------------------------------------------------
-- = -
-- = - Aufgabe f)
-- = -

ergebnis = undefined -- zu implementieren!