RosettaCodeData/Task/Catamorphism/R/catamorphism-3.r

3 lines
129 B
R

Reduce(paste0, unlist(strsplit("freedom", NULL)), accum=T)
"f" "fr" "fre" "free" "freed" "freedo" "freedom"