powered by
Negate(f)
is.even <- function(a) a%%2 == 0 is.odd <- Negate(is.even) stopifnot(Reduce(`&&`, Map(is.odd, c(1, 3, 5))))
Run the code above in your browser using DataLab