From eb801d874c5101539c27703ec3854ad98a099d3f Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Tue, 28 Apr 2015 21:18:32 +0200 Subject: initial start with week3, wine yay --- fp2/week1/mart/Echo.icl | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 fp2/week1/mart/Echo.icl (limited to 'fp2/week1/mart/Echo.icl') 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 -- cgit v1.2.3