diff options
| author | Camil Staps | 2015-04-24 19:09:27 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-04-24 19:09:27 +0200 |
| commit | d484f944b5d39e32f74873abd617ac2d227b08df (patch) | |
| tree | dd3247fffd1611fdc76f054fb212ba72da0b6e33 | |
| parent | finished dcl (diff) | |
Added Test (copy line from file to other file)
| -rw-r--r-- | fp2/week2/camil/Test.dcl | 1 | ||||
| -rw-r--r-- | fp2/week2/camil/Test.icl | 12 |
2 files changed, 13 insertions, 0 deletions
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
|