challenge-121/abigail/r/ch-1.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#
# See ../README.md
#

#
# Run as: Rscript ch-1.r < input-file
#

stdin <- file ('stdin', 'r')
repeat {
    line <- readLines (stdin, n = 1)
    if (length (line) == 0) {
        break
    }
    parts <- strsplit (line, " ")
    m     <- as.numeric (parts [[1]] [[1]])
    n     <- as.numeric (parts [[1]] [[2]])

    cat (bitwXor (m, (bitwShiftL (1, n - 1))), "\n")
}