>>267
そうね。
p [] = False
p [x] = True
p (x:y:xs) = False
こんな感じで。