module PalindromNumbers( maxPal ) where

{- | 
   Module       :       Palindromenumbers
   Description  :       See below
   Copyright    :       (c) Thomas Lang
   License      :       BSD3

   Stability    :       stable
   Portability  :       portable

This program computes the maximum Palindrom-number
that can be multiplicated by two numbers between 
100 and 999 (3 digits)
 -}
maxPal :: Integer
maxPal = foldr max 0 [ x * y | x <- [100..999],
                               y <- [100..999],
                               isPalin (x*y)]
        

isPalin n = show n == (reverse . show) n

-- this will result in the number 906609

