diff options
| author | Mart Lubbers | 2015-04-24 14:35:17 +0200 |
|---|---|---|
| committer | Mart Lubbers | 2015-04-24 14:35:17 +0200 |
| commit | a067356625105f50978443d3b0a0a5d8f6391184 (patch) | |
| tree | d194d49f36232b8e5860ca557c75f11a3ac05afe /fp2/week2/mart/ReturnEnBind.icl | |
| parent | updated practicum files (diff) | |
rare shit
Diffstat (limited to 'fp2/week2/mart/ReturnEnBind.icl')
| -rw-r--r-- | fp2/week2/mart/ReturnEnBind.icl | 19 |
1 files changed, 0 insertions, 19 deletions
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 ...
|