Voilà ce que je trouve : maximum $ filter (\n -> let n' = show n in n' == reverse n') [ a*b | a <- [1..999], b <- [a..999] ] Je regarde mieux ton code à la maison :) David.