покритикуйте функцию определения простоты числа

в ней есть один недостаток. какой именно?

isPrime :: Integer -> Bool
isPrime 2 = True
isPrime x = length failedDividerCandidates == length dividerCandidates
  where 
    failedDividerCandidates = takeWhile (\z -> x `mod` z /= 0) dividerCandidates
    dividerCandidates = [2..(floor $ sqrt $ fromIntegral x)]

Когда обожрался мороженным в жаркий день и заболело горло

- как лечить лучше всего? Типа, температуры, насморка и кашля нет, только горло болит, причем только когда глотаешь.

Я помню, в далекие студенческие годы покупали в аптеки таблетки Стрептоцида и жевали их в большом кол-ве. Но это неверно был неоптимальный путь.

А как лучше всего лечить это?

I’m a cop. If you don’t want to get hurt, don’t challenge me.

if you don’t want to get shot, tased, pepper-sprayed, struck with a baton or thrown to the ground, just do what I tell you. Don’t argue with me, don’t call me names, don’t tell me that I can’t stop you, don’t say I’m a racist pig, don’t threaten that you’ll sue me and take away my badge. Don’t scream at me that you pay my salary, and don’t even think of aggressively walking towards me.

http://www.washingtonpost.com/posteverything/wp/2014/08/19/im-a-cop-if-you-dont-want-to-get-hurt-dont-challenge-me/?tid=pm_pop