urkud/t.hs

Created September 29, 2018 21:50

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/urkud/00d8339b556e07815d271c725ac69d8b.js"></script>
Save urkud/00d8339b556e07815d271c725ac69d8b to your computer and use it in GitHub Desktop.

Download ZIP

Solution for https://www.facebook.com/groups/mathpuz/permalink/1113738582135316/

Raw

t.hs

[[a, b, c, d]| let as = filter ((==2) . length . nub . show) [1..360], a <- as, let bs = filter ((==2) . length . nub . (show a ++) . show) as, b <- bs, c <- bs, d <- bs, a + b + c + d == 360]

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment