Skip to content

Instantly share code, notes, and snippets.

@ClausPolanka
Created October 15, 2010 13:52
Show Gist options
  • Save ClausPolanka/628209 to your computer and use it in GitHub Desktop.
Save ClausPolanka/628209 to your computer and use it in GitHub Desktop.
The largest number under 100,000 that's divisible by 3829
largestDivisible :: (Integral a) => a
largestDivisible = head (filter p [100000,99999..])
where p x = x `mod` 3829 == 0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment