sapply( strsplit(c("aback", "docks", "trims"), ""), length) ==
sapply( sapply( strsplit(c("aback", "docks", "trims"), ""), unique), length)
#[1] FALSE TRUE TRUE
# Or
nchar(c("aback", "docks", "trims") ) ==
sapply( sapply( strsplit(c("aback", "docks", "trims"), ""), unique), length)
[1] FALSE TRUE TRUE