Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Save DarkEye123/74098c082d444ce21bd017993cc9402b to your computer and use it in GitHub Desktop.
Save DarkEye123/74098c082d444ce21bd017993cc9402b to your computer and use it in GitHub Desktop.
hacker evolution safegame checksum calculation
-- take all numbers from the 3rd until the second last line, multiply each
-- number with the associated multiplier from the list [10,5,6,7,8,9,11,13,14,15,16,2,3,17,18,19]
-- and sum everything up (modulo Int32) to get the checksum.
-- (hint: line 11, the 9th number in the list, is the cash amount)
-- in haskell:
import Data.Int
checksum :: [Int32] -> Int32
checksum nums = sum $ zipWith (*) nums [10,5,6,7,8,9,11,13,14,15,16,2,3,17,18,19]
-- or, in ghci: let checksum nums = sum $ zipWith (*) nums [10,5,6,7,8,9,11,13,14,15,16,2,3,17,18,19] :: Int32
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment