obstawa

gistfile1.hs

idealna :: Integer -> Integer -> Bool
idealna goryl liczba = konwoj `mod` liczba == 0 where
	konwoj = toInt $ show goryl ++ show liczba ++ show goryl
	toInt :: String -> Integer
	toInt = read

obstawialne_przez n = filter (idealna n) [1..999]

obstawialna n = or $ map (flip idealna n) [1..9]
	
-- [1,2,3,6,11,13,14,21,22,26,33,39,42,66,77,78,91,137,146,219,274,411,438,822] - 24 liczby nie 19 ;)
obstawialne_przez_6 = obstawialne_przez 6

-- Odpowiedz na pytanie nr 1: 548
odp01 = maximum $ obstawialne_przez 4

-- Odpowiedz na pytanie nr 2: 959
odp02 = maximum $ filter obstawialna [100..999]