diff options
| author | Mart Lubbers | 2015-04-28 21:18:32 +0200 |
|---|---|---|
| committer | Mart Lubbers | 2015-04-28 21:18:32 +0200 |
| commit | eb801d874c5101539c27703ec3854ad98a099d3f (patch) | |
| tree | 3b7bbb704c52ab1cb010c55ff0b4d22b97175e52 /fp2/week1/mart/Echo.icl | |
| parent | week3 jow (diff) | |
initial start with week3, wine yay
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
|