Data commit

Task/File-input-output/Racket/file-input-output.rkt

@@ -0,0 +1,13 @@
+#lang racket
+(define file-content
+  (with-input-from-file "input.txt"
+    (lambda ()
+      (let loop ((lst null))
+        (define new (read-char))
+        (if (eof-object? new)
+            (apply string lst)
+            (loop (append lst (list new))))))))
+
+(with-output-to-file "output.txt"
+  (lambda ()
+    (write file-content)))