update

Task/File-IO/Aime/file-io.aime

@@ -0,0 +1,11 @@
+file i, o;
+text s;
+
+f_open(i, "input.txt", OPEN_READONLY, 0);
+f_open(o, "output.txt", OPEN_CREATE | OPEN_TRUNCATE | OPEN_WRITEONLY,
+       0644);
+
+while (f_line(i, s) ^ -1) {
+    f_text(o, s);
+    f_byte(o, '\n');
+}

Task/File-IO/Erlang/file-io.erl

@@ -1 +1,7 @@
-file:copy("input.txt","output.txt").
+-module( file_io ).
+
+-export( [task/0] ).
+
+task() ->
+       {ok, Contents} = file:read_file( "input.txt" ),
+       ok = file:write_file( "output.txt", Contents ).

Task/File-IO/Racket/file-io.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)))