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 = print (s x y == 1)
{-
        THE FOLLOWING WORKS IF YOU U WANNA USE flossAufFeld 2 3 "spielfeldB" instead of flossAufFeld 2 3 spielfeldB

        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 k x y s = if k == 1 then print (s x y == 1) else if k == 2 then print (s x y == 2) else return()

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


-- if the bomb is thrown outside of our board we DONT change anything
-- if the bomb is thrown at a ship the matrix will get the value 0 at this coordinate

bombeAuf x y s =