gistfile1.hs

gpfsearch :: ( Integral a ) => a -> a -> a
gpfsearch f x | x == f = x
              | divides x f = gpfsearch f ( div x f )
              | otherwise = gpfsearch ( f + 1 ) x
    where divides x y = mod x y == 0