RosettaCodeData/Task/Quine/R/quine-2.r

4 lines
147 B
R

src <- "\nwriteLines(c(paste(\"src <-\", encodeString(src, quote='\"')), src))"
writeLines(c(paste("src <-", encodeString(src, quote='"')), src))