import Control
.Monad (guard
)
solutions = do
a <- [1..9]
b <- [a + 1..9]
c <- [b + 1..9]
d <- [1..9]
e <- [d + 1..9]
guard
$ sum [a
, b
, c
, d
, e
] == 23 guard
$ quotRem (a
+ b
+ c
) d
== (e
, 0)
aW1wb3J0IENvbnRyb2wuTW9uYWQgKGd1YXJkKQoKc29sdXRpb25zID0gZG8KICBhIDwtIFsxLi45XQogIGIgPC0gW2EgKyAxLi45XQogIGMgPC0gW2IgKyAxLi45XQogIGQgPC0gWzEuLjldCiAgZ3VhcmQgJCBkIGBub3RFbGVtYCBbYSwgYiwgY10KICBlIDwtIFtkICsgMS4uOV0KICBndWFyZCAkIGUgYG5vdEVsZW1gIFthLCBiLCBjXQogIGd1YXJkICQgc3VtIFthLCBiLCBjLCBkLCBlXSA9PSAyMwogIGd1YXJkICQgcXVvdFJlbSAoYSArIGIgKyBjKSBkID09IChlLCAwKQogIHJldHVybiAoYSwgYiwgYywgZCwgZSkKCm1haW4gPSBtYXBNXyBwcmludCBzb2x1dGlvbnM=
(1,4,9,2,7)
(1,5,8,2,7)
(1,6,8,3,5)
(2,4,9,3,5)
(2,6,7,3,5)
(3,5,6,2,7)