R 我怎么才能把一盘棋变成一盘棋呢

R确实应该有一个更完整的包，独立于引擎实现国际象棋的东西.我怀疑，在这里，Python的表现要好得多.好的，这里有一些bigchess左右的包装器，它应该可以为valid分和局域网移动文本做你想要的事情…

read.pos <- function(pos) {
    map <- list("P" =  1L, "B" =  2L, "N" =  3L, "R" =  4L, "Q" =  5L, "K" =  6L,
                "p" = -1L, "b" = -2L, "n" = -3L, "r" = -4L, "q" = -5L, "k" = -6L)
    map <- c(map, setNames(lapply(0:8, integer), c("/", 1:8)))
    matrix(unlist(map[strsplit(pos, "")[[1L]]], FALSE, FALSE),
           nrow = 8L, ncol = 8L, byrow = TRUE,
           dimnames = list(8:1, letters[1:8]))
}

fenlan2san <- function(fen, lan) {
    lan <- strsplit(lan, " ")[[1L]]
    nhm <- length(lan)
    if (nhm == 0L)
        return("")
    fen <- strsplit(fen, " ")[[1L]]
    pos <- read.pos(fen[1L])
    san <- character(nhm)
    for (i in seq_along(lan)) {
        move <- bigchess:::string.lan.move2move(lan[i])
        m1 <- move[1L]; m2 <- move[2L]; m3 <- move[3L]; m4 <- move[4L]; m5 <- move[5L]

        wb <- sign(pos[m1, m2])
        san[i] <- bigchess:::move2san(pos, m1, m2, m3, m4, m5)
        pos <- bigchess:::position.move(pos, m1, m2, m3, m4, m5)
        if (bigchess:::is.check(pos, wb))
            san[i] <- paste0(san[i], if (bigchess:::is.mate(pos, wb)) "#" else "+")
    }
    wtm <- fen[2L] == "w"
    nfm <- (nhm + (if (wtm) 1L else 2L)) %/% 2L
    i1 <- as.integer(fen[6L])
    i2 <- i1 - 1L + nfm
    if (wtm)
        san[c(TRUE, FALSE)] <- paste0( i1      :i2, ". ", san[c(TRUE, FALSE)])
    else {
        san[1L] <- paste0(i1, "... ", san[1L])
        if (i1 < i2)
        san[c(FALSE, TRUE)] <- paste0((i1 + 1L):i2, ". ", san[c(FALSE, TRUE)])
    }
    paste0(san, collapse = " ")
}

fenlan2pgn <- function(fen, lan)
    paste0("[Variant \"From Position\"] [FEN \"", fen, "\"] ", mapply(fenlan2san, fen, lan))

然后:

fen <- c("r3k2r/1b1pbppp/p7/1pp5/3q4/P1NPBp1P/1PP1B1P1/R4Q1K w kq - 0 19",
         "3rr1k1/5ppp/6q1/pp6/1bppPn2/5P2/PPP2QPP/2NRBRK1 w - - 8 25",
         "r1bq1rk1/ppp2ppp/2np1b1n/3Q2N1/2B1PP2/4B3/PP2N1PP/R4RK1 b - - 0 13")
lan <- c("e3d4 f3g2 f1g2 b7g2 h1g2 c5d4",
         "e1b4 f4h3 g1h1 h3f2",
         "h6g4 g5f7 f8f7 d5f7")
writeLines(fenlan2pgn(fen, lan))

[Variant "From Position"] [FEN "r3k2r/1b1pbppp/p7/1pp5/3q4/P1NPBp1P/1PP1B1P1/R4Q1K w kq - 0 19"] 19. Bxd4 fxg2+ 20. Qxg2 Bxg2+ 21. Kxg2 cxd4
[Variant "From Position"] [FEN "3rr1k1/5ppp/6q1/pp6/1bppPn2/5P2/PPP2QPP/2NRBRK1 w - - 8 25"] 25. Bxb4 Nh3+ 26. Kh1 Nxf2+
[Variant "From Position"] [FEN "r1bq1rk1/ppp2ppp/2np1b1n/3Q2N1/2B1PP2/4B3/PP2N1PP/R4RK1 b - - 0 13"] 13... Ng4 14. Nxf7 Rxf7 15. Qxf7+

将每个PGN导入Lichess分析板，表明它工作正常:https://lichess.org/analysis

但我的感觉是，熟悉stockfish和UCI协议的人可以以一种更好的方式获得同样的结果……