From d484f944b5d39e32f74873abd617ac2d227b08df Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Fri, 24 Apr 2015 19:09:27 +0200 Subject: [PATCH] Added Test (copy line from file to other file) --- fp2/week2/camil/Test.dcl | 1 + fp2/week2/camil/Test.icl | 12 ++++++++++++ 2 files changed, 13 insertions(+) create mode 100644 fp2/week2/camil/Test.dcl create mode 100644 fp2/week2/camil/Test.icl diff --git a/fp2/week2/camil/Test.dcl b/fp2/week2/camil/Test.dcl new file mode 100644 index 0000000..21f08d1 --- /dev/null +++ b/fp2/week2/camil/Test.dcl @@ -0,0 +1 @@ +definition module Test diff --git a/fp2/week2/camil/Test.icl b/fp2/week2/camil/Test.icl new file mode 100644 index 0000000..8044d3f --- /dev/null +++ b/fp2/week2/camil/Test.icl @@ -0,0 +1,12 @@ +implementation module Test + +import StdIOMonad + +Start world = doIO ( + open "camil.txt" Lees >>= + \_ = open "mart.txt" Schrijf >>= + \_ = readline "camil.txt" >>= + \l = writeline (fromJust l) "mart.txt" >>= + \_ = close "camil.txt" >>= + \_ = close "mart.txt" + ) world -- 2.20.1