Недавно я имел удовольствие написать программу на Haskell, которая могла бы определить, NegativeLiteralsзадействовано ли расширение. Я придумал следующее: data B=B{u::Integer} instance Num B where{fromInteger=B;negate _=B 1} main=print$1==u(-1) Попробуйте онлайн! Это будет печатать Trueнормально и...