Haskell中的简单象棋函数

-- 定义象棋棋盘的数据类型
data ChessBoard = ChessBoard [[Char]]

-- 初始化一个空的象棋棋盘
emptyChessBoard :: ChessBoard
emptyChessBoard = ChessBoard [["-" | _ <- [1..8]] | _ <- [1..8]]

-- 在指定位置放置一个棋子
placePiece :: ChessBoard -> (Int, Int) -> Char -> ChessBoard
placePiece (ChessBoard board) (x, y) piece = ChessBoard updatedBoard
  where
    updatedBoard = [if i == y && j == x then piece else row | (row, i) <- zip board [0..], (cell, j) <- zip row [0..], cell == "-"]

-- 移动棋子
movePiece :: ChessBoard -> (Int, Int) -> (Int, Int) -> ChessBoard
movePiece board (x1, y1) (x2, y2) = placePiece (placePiece board (x1, y1) "-") (x2, y2) (getPiece board (x1, y1))

-- 获取指定位置的棋子
getPiece :: ChessBoard -> (Int, Int) -> Char
getPiece (ChessBoard board) (x, y) = (board !! y) !! x

-- 打印棋盘
printChessBoard :: ChessBoard -> IO ()
printChessBoard (ChessBoard board) = mapM_ putStrLn board