6 lines
133 B
R
6 lines
133 B
R
src <- file("input.txt", "r")
|
|
dest <- file("output.txt", "w")
|
|
|
|
fc <- readLines(src, -1)
|
|
writeLines(fc, dest)
|
|
close(src); close(dest)
|