XGitUrl: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=exercises%2F_assignment4.mdwn;h=f998e7ac73a33c66d353463a62b91aa7b403d710;hp=212a6d0511f35e444a9cc76e39d314d069c9f8a5;hb=ea4c96609b8d02f5e83a8027cf567bab5562cb5b;hpb=97f833698c03ea88d4a3acdbb5d9ab8ec60ef69c
diff git a/exercises/_assignment4.mdwn b/exercises/_assignment4.mdwn
index 212a6d05..f998e7ac 100644
 a/exercises/_assignment4.mdwn
+++ b/exercises/_assignment4.mdwn
@@ 1,146 +1,181 @@
## Recursion ##
+## Fixed points ##
## Basic fixed points ##
+1. Recall that `Ï â¡ \x. x x`, and `Î© â¡ Ï Ï`. Is `Î©` a fixed point for `Ï`? Find a fixed point for `Ï`, and prove that it is a fixed point.
1. Recall that ω := \f.ff
, and Ω :=
ω ω
. Is Ω
a fixed point for
ω
? Find a fixed point for ω
,
and prove that it is a fixed point.

2. Consider Ω X
for an arbitrary term `X`.
Ω is so busy reducing itself (the eternal solipsist) that it
+2. Consider `Î© Î¾` for an arbitrary term `Î¾`.
+`Î©` is so busy reducing itself (the eternal narcissist) that it
never gets around to noticing whether it has an argument, let alone
doing anything with that argument. If so, how could Ω have a
fixed point? That is, how could there be an `X` such that
Ω X <~~> Ω(Ω X)
? To answer this
question, begin by constructing YΩ
. Prove that
YΩ
is a fixed point for Ω.

3. Find two different terms that have the same fixed point. That is,
find terms `F`, `G`, and `X` such that `F(X) <~~> F(F(X))` and `G(X)
<~~> G(G(X))`. (If you need a hint, reread the notes on fixed
+doing anything with that argument. If so, how could `Î©` have a
+fixed point? That is, how could there be an `Î¾` such that
+`Î© Î¾ <~~> Î¾`? To answer this
+question, begin by constructing `Y Î©`. Prove that
+`Y Î©` is a fixed point for `Î©`.
+
+3. Find two different terms that have the same fixed point. That is,
+find terms `F`, `G`, and `Î¾` such that `F Î¾ <~~> Î¾` and `G Î¾
+<~~> Î¾`. (If you need a hint, reread the notes on fixed
points.)
## Writing recursive functions ##
+4. Assume that `Î¨` is some fixed point combinator; we're not telling you which one. (You can just write `Psi` in your homework if you don't know how to generate the symbol `Î¨`.) Prove that `Î¨ Î¨` is a fixed point of itself, that is, that `Î¨ Î¨ <~~> Î¨ Î¨ (Î¨ Î¨)`.
4. Helping yourself to the functions given just below,
write a recursive function caled `fac` that computes the factorial.
The factorial `n! = n * (n  1) * (n  2) * ... * 3 * 2 * 1`.
For instance, `fac 0 ~~> 1`, `fac 1 ~~> 1`, `fac 2 ~~> 2`, `fac 3 ~~>
6`, and `fac 4 ~~> 24`.
+
 let true = \then else. then in
 let false = \then else. else in
 let iszero = \n. n (\x. false) true in
 let pred = \n f z. n (\u v. v (u f)) (K z) I in
 let succ = \n f z. f (n f z) in
 let add = \n m .n succ m in
 let mult = \n m.n(add m)0 in
 let Y = \h . (\f . h (f f)) (\f . h (f f)) in
 let fac = ... in
+## Writing recursive functions ##
+
+5. Helping yourself to the functions given below,
+write a recursive function called `fact` that computes the factorial.
+The factorial `n! = n * (n  1) * (n  2) * ... * 3 * 2 * 1`.
+For instance, `fact 0 ~~> 1`, `fact 1 ~~> 1`, `fact 2 ~~> 2`, `fact 3 ~~>
+6`, and `fact 4 ~~> 24`.
+
+ let true = \y n. y in
+ let false = \y n. n in
+ let pair = \a b. \v. v a b in
+ let fst = \a b. a in ; aka true
+ let snd = \a b. b in ; aka false
+ let zero = \s z. z in
+ let succ = \n s z. s (n s z) in
+ let zero? = \n. n (\p. false) true in
+ let pred = \n. n (\p. p (\a b. pair (succ a) a)) (pair zero zero) snd in
+ let add = \l r. r succ l in
+ let mult = \l r. r (add l) 0 in
+ let Y = \h. (\u. h (u u)) (\u. h (u u)) in
+
+ let fact = ... in
+
+ fac 4
+
+6. For this question, we want to implement **sets** of numbers in terms of lists of numbers, where we make sure as we construct those lists that they never contain a single number more than once. (It would be even more efficient if we made sure that the lists were always sorted, but we won't try to implement that refinement here.) To enforce the idea of modularity, let's suppose you don't know the details of how the lists are implemented. You just are given the functions defined below for them (but pretend you don't see the actual definitions). These define lists in terms of [[one of the new encodings discussed last week/topics/week3_lists#v5lists]].
+
+ ; all functions from the previous question, plus
+ ; `num_cmp x y lt eq gt` returns lt when xy
+ let num_cmp = (\base build consume. \l r. r consume (l build base) fst)
+ ; where base is
+ (pair (\a b c. b) (K (\a b c. a)))
+ ; and build is
+ (\p. pair (\a b c. c) p)
+ ; and consume is
+ (\p. p fst p (p snd) (p snd)) in
+ let num_equal? = \x y. num_cmp x y false true false in
+ let neg = \b y n. b n y in
+ let empty = \f n. n in
+ let cons = \x xs. \f n. f x xs in
+ let empty? = \xs. xs (\y ys. false) true in
+ let tail = \xs. xs (\y ys. ys) empty in
+ let append = Y (\append. \xs zs. xs (\y ys. (cons y (append ys zs))) zs) in
+ let take_while = Y (\take_while. \p xs. xs (\y ys. (p y) (cons y (take_while p ys)) empty) empty) in
+ let drop_while = Y (\drop_while. \p xs. xs (\y ys. (p y) (drop_while p ys) xs) empty) in
+ ...
+
+ The functions `take_while` and `drop_while` work as described in [[Week 1's homeworkassignment1]].
+
+ Using those resources, define a `set_cons` and a `set_equal?` function. The first should take a number argument `x` and a set argument `xs` (implemented as a list of numbers assumed to have no repeating elements), and return a (possibly new) set argument which contains `x`. (But make sure `x` doesn't appear in the result twice!) The `set_equal?` function should take two set arguments `xs` and `ys` and say whether they represent the same set. (Be careful, the lists `[1, 2]` and `[2, 1]` are different lists but do represent the same set. Hence, you can't just use the `list_equal?` function you defined in last week's homework.)
+
+ Here are some tips for getting started. Use `drop_while`, `num_equal?`, and `empty?` to define a `mem?` function that returns `true` if number `x` is a member of a list of numbers `xs`, else returns `false`. Also use `take_while`, `drop_while`, `num_equal?`, `tail` and `append` to define a `without` function that returns a copy of a list of numbers `xs` that omits the first occurrence of a number `x`, if there be such. You may find these functions `mem?` and `without` useful in defining `set_cons` and `set_equal?`. Also, for `set_equal?`, you are probably going to want to define the function recursively... as now you know how to do.
+
+
+7. Questions about trees.
 fac 4
## Arithmetic infinity? ##
The next few questions involve reasoning about Church arithmetic and
infinity. Let's choose some arithmetic functions:
 succ = \nfz.f(nfz)
 add = \m n. m succ n in
 mult = \m n. m (add n) 0 in
 exp = \m n . m (mult n) 1 in
+ succ = \n s z. s (n s z)
+ add = \l r. r succ l in
+ mult = \l r. r (add l) 0 in
+ exp = \base r. r (mult base) 1 in
There is a pleasing pattern here: addition is defined in terms of
the successor function, multiplication is defined in terms of
addition, and exponentiation is defined in terms of multiplication.

1. Find a fixed point `X` for the succ function. Prove it's a fixed
point, i.e., demonstrate that `succ X <~~> succ (succ X)`.
We've had surprising success embedding normal arithmetic in the lambda
calculus, modeling the natural numbers, addition, multiplication, and
+
+8. Find a fixed point `Î¾` for the successor function. Prove it's a fixed
+point, i.e., demonstrate that `succ Î¾ <~~> Î¾`.
+
+ We've had surprising success embedding normal arithmetic in the Lambda
+Calculus, modeling the natural numbers, addition, multiplication, and
so on. But one thing that some versions of arithmetic supply is a
notion of infinity, which we'll write as `inf`. This object usually
satisfies the following constraints, for any (finite) natural number `n`:
+satisfies the following constraints, for any finite natural number `n`:
 n + inf == inf
 n * inf == inf
 n ^ inf == inf
 n leq inf == True
+ n + inf == inf
+ n * inf == inf
+ n ^ inf == inf
+ leq n inf == true
2. Prove that `add 1 X <~~> X`, where `X` is the fixed
point you found in (1). What about `add 2 X <~~> X`?
+ (Note, though, that with *some* notions of infinite numbers, like [[!wikipedia ordinal numbers]], operations like `+` and `*` are defined in such a way that `inf + n` is different from `n + inf`, and does exceed `inf`.)
Comment: a fixed point for the succ function is an object such that it
is unchanged after adding 1 to it. It make a certain amount of sense
+9. Prove that `add Î¾ 1 <~~> Î¾`, where `Î¾` is the fixed
+point you found in (1). What about `add Î¾ 2 <~~> Î¾`?
+
+Comment: a fixed point for the successor function is an object such that it
+is unchanged after adding 1 to it. It makes a certain amount of sense
to use this object to model arithmetic infinity. For instance,
depending on implementation details, it might happen that `leq n X` is
+depending on implementation details, it might happen that `leq n Î¾` is
true for all (finite) natural numbers `n`. However, the fixed point
you found for succ is unlikely to be a fixed point for `mult n` or for
`exp n`.
+you found for `succ` and `(+n)` (recall this is shorthand for `\x. add x n`) may not be a fixed point for `(*n)` or for
+`(^n)`.
#Mutuallyrecursive functions#
+## Mutuallyrecursive functions ##

 (Challenging.) One way to define the function `even` is to have it hand off
part of the work to another function `odd`:
+10. (Challenging.) One way to define the function `even?` is to have it hand off
+part of the work to another function `odd?`:
 let even = \x. iszero x
 ; if x == 0 then result is
 true
 ; else result turns on whether x's pred is odd
 (odd (pred x))
+ let even? = \x. (zero? x)
+ ; if x == 0 then result is
+ true
+ ; else result turns on whether x1 is odd
+ (odd? (pred x))
At the same tme, though, it's natural to define `odd` in such a way that it
hands off part of the work to `even`:
+ At the same tme, though, it's natural to define `odd?` in such a way that it
+hands off part of the work to `even?`:
 let odd = \x. iszero x
 ; if x == 0 then result is
 false
 ; else result turns on whether x's pred is even
 (even (pred x))
+ let odd? = \x. (zero? x)
+ ; if x == 0 then result is
+ false
+ ; else result turns on whether x1 is even
+ (even? (pred x))
Such a definition of `even` and `odd` is called **mutually recursive**. If you
+ Such a definition of `even?` and `odd?` is called **mutually recursive**. If you
trace through the evaluation of some sample numerical arguments, you can see
that eventually we'll always reach a base step. So the recursion should be
perfectly wellgrounded:
 even 3
 ~~> iszero 3 true (odd (pred 3))
 ~~> odd 2
 ~~> iszero 2 false (even (pred 2))
 ~~> even 1
 ~~> iszero 1 true (odd (pred 1))
 ~~> odd 0
 ~~> iszero 0 false (even (pred 0))
 ~~> false
+ even? 3
+ ~~> (zero? 3) true (odd? (pred 3))
+ ~~> odd? 2
+ ~~> (zero? 2) false (even? (pred 2))
+ ~~> even? 1
+ ~~> (zero? 1) true (odd? (pred 1))
+ ~~> odd? 0
+ ~~> (zero? 0) false (even? (pred 0))
+ ~~> false
But we don't yet know how to implement this kind of recursion in the lambda
calculus.
+ But we don't yet know how to implement this kind of recursion in the Lambda
+Calculus.
The fixed point operators we've been working with so far worked like this:
+ The fixed point operators we've been working with so far worked like this:
 let X = Y T in
 X <~~> T X
+ let Î¾ = Y h in
+ Î¾ <~~> h Î¾
Suppose we had a pair of fixed point operators, `Y1` and `Y2`, that operated on
a *pair* of functions `T1` and `T2`, as follows:
+ Suppose we had a pair of fixed point operators, `Y1` and `Y2`, that operated on
+a *pair* of functions `h` and `g`, as follows:
 let X1 = Y1 T1 T2 in
 let X2 = Y2 T1 T2 in
 X1 <~~> T1 X1 X2 and
 X2 <~~> T2 X1 X2
+ let Î¾1 = Y1 h g in
+ let Î¾2 = Y2 h g in
+ Î¾1 <~~> h Î¾1 Î¾2 and
+ Î¾2 <~~> g Î¾1 Î¾2
If we gave you such a `Y1` and `Y2`, how would you implement the above
definitions of `even` and `odd`?
+ If we gave you such a `Y1` and `Y2`, how would you implement the above
+definitions of `even?` and `odd?`?

 (More challenging.) Using our derivation of Y from the [Week3
notes](/week3/#index4h2) as a model, construct a pair `Y1` and `Y2` that behave
in the way described.

(See [[hints/Assignment 4 hint 3]] if you need some hints.)
+11. (More challenging.) Using our derivation of `Y` from [[this week's notestopics/week4_fixed_point_combinators#derivingy]] as a model, construct a pair `Y1` and `Y2` that behave in the way described above.
+ Here is one hint to get you started: remember that in the notes, we constructed a fixed point for `h` by evolving it into `H` and using `H H` as `h`'s fixed point. We suggested the thought exercise, how might you instead evolve `h` into some `T` and then use `T T T` as `h`'s fixed point. Try solving this problem first. It may help give you the insights you need to define a `Y1` and `Y2`.