tests/rev.R

suppressPackageStartupMessages(library(dequer))

n <- 100

l <- list()
for (i in 1:n) l[[i]] <- i

dl <- deque()
for (i in 1:n) pushback(dl, i)

dl.rev <- rev(dl)
l.rev <- rev(l)

stopifnot(all.equal(l.rev, as.list(dl)))

Try the dequer package in your browser

Any scripts or data that you put into this service are public.

dequer documentation built on March 18, 2022, 5:45 p.m.