powered by
Compose(...)
car <- function(list) list[[1]] cdr <- function(list) list[2:length(list)] cadr <- Compose(cdr, car) stopifnot(cadr(c(1,2,3)) == 2)
Run the code above in your browser using DataLab