[Haskell-fr] euler 4: vos commentaires ?

Dan Weston westondan at imageworks.com
Mon Feb 1 12:40:54 EST 2010


Jetez un coup d'oeil sur

http://www.haskell.org/haskellwiki/Project_euler

pour y voir beaucoup d'autres tentatives.

Marc Chantreux wrote:
> Bonjour a tous,
> 
> toujours dans mes petites tentatives épisodiques, j'ai résolu ce WE le
> 4eme pb du euler project. J'imagine que ma résolution sera d'une naiveté
> touchante pour les plus experimentés d'entre vous et c'est bien le but
> de ce présent message: pourriez-vous, svp, émettre toutes les critiques
> qui vous viennent a l'esprit?
> 
> cordialement,
> marc
> 
> {-
>  - http://projecteuler.net/index.php?section=problems&id=4
>  - A palindromic number reads the same both ways.
>  - The largest palindrome made from the product of two 2-digit numbers is 9009 = 91 × 99.
>  -
>  - Find the largest palindrome made from the product of two 3-digit numbers.
>  - -}
> 
> products max =
>     let g = reverse [1..max]
>     in [ (x,y, show $ x * y ) | x <- g, y <- g ]
> 
> is_palindrome x = x == reverse x
> 
> palindromes = filter ( \(_,_,x) -> is_palindrome x )
> 
> bigger_palindrome x = take 1 $ palindromes x
> 
> main = mapM (putStrLn . show) $
>     map (bigger_palindrome . products ) [99,999,9999]
> _______________________________________________
> Haskell-fr mailing list
> Haskell-fr at haskell.org
> http://www.haskell.org/mailman/listinfo/haskell-fr
> 



More information about the Haskell-fr mailing list