If I add up all the phone numbers I get from pretty ladies to ensure it comes to a given total, is that a... "chick sum"?
Lol jk I don't get anyone's phone number :(
@lambdagrrl
Luhn still checks out:
luhn :: [Int] -> Intluhn digits = flip mod 10 $ sum $ zipWith (*) (cycle [1,2]) digits
chicksum :: [[Int]] -> Boolchicksum ds = 0 == sum $ luhn <$> ds
Computer Fairies is a Mastodon instance that aims to be as queer, friendly and furry as possible. We welcome all kinds of computer fairies!
@lambdagrrl
Luhn still checks out:
luhn :: [Int] -> Int
luhn digits = flip mod 10 $ sum $ zipWith (*) (cycle [1,2]) digits
chicksum :: [[Int]] -> Bool
chicksum ds = 0 == sum $ luhn <$> ds