vin / challenge

Python challenge and project euler

This URL has Read+Write access

challenge / euler / euler033.hs
100644 12 lines (7 sloc) 0.412 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12

import Ratio
 
 
main = print . denominator . product $ [n%d | n <- [1..100],
                                              d <- [n..100],
                                              n /= d,
                                              d `mod` 10 /= 0,
                                              n `mod` 10 == d `div` 10,
                                              (n `div` 10) % (d `mod` 10) == n % d]