Question

coding luhnDouble equations in haskell here is the question: DEFINING FUNCTIONS: Assignment Description: The Luhn algorithm is used to check bank card numbers for simple errors such as mistyping a digit, and proceeds as follows: consider each digit as a separate number; moving left, double every other number from the second last; subtract 9 from each number that is now greater than 9; add all the resulting numbers together; if the total is divisible by 10, the card number is valid. Define a function luhnDouble :: Int -> Int that doubles a digit and subtracts 9 if the result is greater than 9. For example: > luhnDouble 3 6 > luhnDouble 6 3 Using luhnDouble and the integer remainder function mod, define a function luhn :: Int -> Int -> Int -> Int -> Bool that decides if a four-digit bank card number is valid. For example: > luhn 1 7 8 4 True > luhn 4 7 8 3 False

Answer 1

Try the following code.

luhnDouble :: Int -> Int

luhnDouble x = if x*2 > 9 then (x*2)-9 else x*2

luhn :: Int -> Bool

luhn n = if (luhnSum n) `mod` 10 == 0 then True else False

Please hit like.