Anonymous user
Truth table: Difference between revisions
→{{header|R}}
Line 2,880:
<lang r>
truth_table <- function(x) {
vars <- unique(unlist(strsplit(x, "[^a-zA-Z]+")))
vars <- vars[vars != ""]
perm <- data.frame(expand.grid(rep(list(c(FALSE, TRUE)), length(vars))))
names(perm) <- vars
Line 2,888 ⟶ 2,889:
"%^%" <- xor # define unary xor operator
truth_table("!A")
## A !A
## 1 FALSE TRUE
## 2 TRUE FALSE
truth_table("A | B")
| |||