diff options
Diffstat (limited to 'fp2/week1/mart/Echo.icl')
| -rw-r--r-- | fp2/week1/mart/Echo.icl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/fp2/week1/mart/Echo.icl b/fp2/week1/mart/Echo.icl new file mode 100644 index 0000000..30a6f4b --- /dev/null +++ b/fp2/week1/mart/Echo.icl @@ -0,0 +1,11 @@ +module Echo
+
+import StdEnv
+
+
+Start :: *World -> *World
+Start world
+# (console, world) = stdio world
+# (line, console) = freadline console
+| not (fend console) = fwrites line
+| otherwise = world
|