From a067356625105f50978443d3b0a0a5d8f6391184 Mon Sep 17 00:00:00 2001
From: Mart Lubbers
Date: Fri, 24 Apr 2015 14:35:17 +0200
Subject: rare shit

---
 fp2/week2/mart/ReturnEnBind.icl | 19 -------------------
 1 file changed, 19 deletions(-)
 delete mode 100644 fp2/week2/mart/ReturnEnBind.icl

(limited to 'fp2/week2/mart/ReturnEnBind.icl')

diff --git a/fp2/week2/mart/ReturnEnBind.icl b/fp2/week2/mart/ReturnEnBind.icl
deleted file mode 100644
index 6c3f8e4..0000000
--- a/fp2/week2/mart/ReturnEnBind.icl
+++ /dev/null
@@ -1,19 +0,0 @@
-module ReturnEnBind
-
-import StdEnv, Random
-
-Start = (r1, r2, r3, r4, nullRandomSeed, s1, s2, s3)
-	where
-		(r1, s1) = som2 nullRandomSeed
-		(r2, s2) = som2 s1
-		(r3, s3) = som2 s2
-		(r4, _) = som2 s3
-
-(bind1) infix 0 :: (St s a) (a -> (St s b)) -> St s b
-(bind1) f g = uncurry g o f
-
-som2 :: (RandomSeed -> (Int,RandomSeed))
-som2 = (\s -> random s) bind1 (\a -> random (snd a))
-
-seqList1 :: [St s a] -> St s [a]
-seqList1 ...
-- 
cgit v1.2.3