Follow

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"?

@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

Sign in to participate in the conversation
Computer Fairies

Computer Fairies is a Mastodon instance that aims to be as queer, friendly and furry as possible. We welcome all kinds of computer fairies!