scores :: Board -> (Int,Int)
scores b = (length p1, length p2)
  where p1 = foldl (\x y -> x ++ filter (\z -> snd z == 1) y) [] b
        p2 = foldl (\x y -> x ++ filter (\z -> snd z == 2) y) [] b


-- GAME INIT
scores :: Board -> (Int,Int)
scores b = (length p1, length p2)
  where p1 = foldl (\x y -> x ++ filter (\z -> snd z == 1) y) [] b
        p2 = foldl (\x y -> x ++ filter (\z -> snd z == 2) y) [] b


-- GAME INIT
scores b = (length p1, length p2)
  where p1 = foldl (\x y -> x ++ filter (\z -> snd z == 1) y) [] b
        p2 = foldl (\x y -> x ++ filter (\z -> snd z == 2) y) [] b


-- GAME INIT