Use zipWith instead of foldr . zip in luhn algorithm

Also use swap . divMod instead of manually doing the same