[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / misc / examples / cats / ccat5.c

diff --git a/ghc/misc/examples/cats/ccat5.c b/ghc/misc/examples/cats/ccat5.c
new file mode 100644 (file)
index 0000000..6c9e38d
--- /dev/null
+++ b/ghc/misc/examples/cats/ccat5.c
@@ -0,0 +1,16 @@
+#include <stdio.h>
+
+main ()
+{
+    int c;
+    while ((c = getchar()) != EOF) {
+        putchar(c);
+    }
+    exit(0);
+}
+
+/*
+-- 2,085,477 bytes/sec ( 600KB input)
+-- 2,320,718 bytes/sec ( 9.3MB input)
+-- 2,130,143 bytes/sec (25.5MB input)
+*/