X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=hints%2Fassignment_7_hint_4.mdwn;h=71ed621b6b108a5129242340d9f2723d5610dcad;hp=346d98b30bcd90c4d387d11f0460de7220ab4b49;hb=1ad04632ef842a0591d1387d7709afc82f6ed3bd;hpb=002bbc4734d89967f6941fcff5021b4d1c661f2b diff --git a/hints/assignment_7_hint_4.mdwn b/hints/assignment_7_hint_4.mdwn index 346d98b3..71ed621b 100644 --- a/hints/assignment_7_hint_4.mdwn +++ b/hints/assignment_7_hint_4.mdwn @@ -54,7 +54,7 @@ then empty_set else unit_set (bind dpm entity_dpm (fun e -> unit_dpm (Q e))) - Applied to an entity_dpm, that yields a function that we can bind to a `bool dpm set` and that will transform the doubly-wrapped `bool` into a new `bool dpm set`. + Applied to an `entity_dpm`, that yields a function that we can bind to a `bool dpm set` and that will transform the doubly-wrapped `bool` into a new `bool dpm set`. Doing things this way will discard `bool dpm`s from the set that started out wrapping `false`, and will pass through other `bool dpm`s that start out wrapping `true` but which our current filter transforms to a wrapped `false`. You might instead aim for consistency, and always pass through wrapped `false`s, whether they started out that way or are only now being generated; or instead always discard such, and only pass through wrapped `true`s. But what we have here will work fine too. @@ -79,7 +79,7 @@ then unit_set (bind_dpm getx (fun e -> unit_dpm (Q e))) else empty_set - which is: + unpacking the definition of `bind_dpm`, that is: let getx = fun (r, h) -> let obj = List.nth h (r 'x')