x x = True на существующем Хаскеле. кто может?
f !x !y = case reallyUnsafePtrEq# x y of 0# -> False; _ -> True
data A = A Int isA5 (A 5) = True isA5 _ = False > isA5 (A 5) True > f (A 5) (A 5) False
можно вместо ветки False использовать GHC.HeapView под unsafePerformIO
Обсуждают сегодня