### A little finesse...

It took a little bit to get this right:

The gotcha is the

Shouldn't take long to recast the palindrome program now; the idea, as alluded to earlier, is to represent half-Ys (aside from the easy-to-generate

**choices :: Int -> Int-> [[Int]]**

m `choices` n

| n == 0 = [[]]

| m == n = [[m,m-1..1]]

| otherwise = [m : c | c <- (m - 1) `choices` (n - 1)]

++ ((m - 1) `choices` n)m `choices` n

| n == 0 = [[]]

| m == n = [[m,m-1..1]]

| otherwise = [m : c | c <- (m - 1) `choices` (n - 1)]

++ ((m - 1) `choices` n)

The gotcha is the

**n == 0**case; if you have it return**[]**the list comprehension gives the wrong result (i.e. an empty list!) with**n == 1**. (I didn't really need to make the m == n case go in descending order, but it looked nicer.)Shouldn't take long to recast the palindrome program now; the idea, as alluded to earlier, is to represent half-Ys (aside from the easy-to-generate

**twoTwos**) not by an**Integer**but by a list of the positions where we place 1s. Then**backwards**doesn't have to take the half-palindrome apart decimal digit by decimal digit, but can just reflect the positions and directly add up the corresponding powers of ten... but OTOH, do I really want to churn out a bunch of lists? For 50-digit Ys, t…