Using altmap, define a function luhn :: [Int ] →Bool that implements the Luhn algorithm from the

Question

Accepted Answer

1. First, we need to double every second digit from the rightmost digit. We can do this by using

Using altmap, define a function luhn :: [Int ] $\rightarrow$ Bool that implements the Luhn algorithm from the exercises in chapter 4 for bank card numbers of any length. Test your new function using your own bank card. Solutions to exercises 1–5 are given in appendix A.