RosettaCodeData/Task/Quine/R/quine-2.r
2015-11-18 06:14:39 +00:00

3 lines
147 B
R

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