id да не id

[deni_ok]

Приведите пример таких объявлений типа данных с конструктором данных T и сигнатуры функции f, что реализация

f (T x) = T x
проходила бы проверку типов, a

f x = x
нет.

Comments

[orionll]

В голову приходит только дебильное:

data T = T (IO ())
instance Eq T where { _ == _ = True }

f = id

Теперь:

id $ putStrLn "abc" == putStrLn "abc" -- не компилируется
id $ T (putStrLn "abc") == T (putStrLn "abc") -- компилируется

[orionll]

Короче, я неправильно понял задание. Я прочитал f x = x как f x == x и задача кардинально изменила свой смысл. Поэтому и написал instance Eq

[migmit]

Ну, простейший вариант это data T = T Int Int. Или имеется в виду что-то другое?

[migmit]

Даже нет, простейший - это data T = T.

[orionll]

T x не скомпилируется. У T должен быть хотя бы один конструктор.

[migmit]

Так, вроде ж, и не должно?

(полагаю, вы имели в виду "аргумент", а не "конструктор").

[migmit]

data T a = T Int
f :: T Int -> T String
f (T a) = T a

[deni_ok]

Ага, фантомы.

[lomeo]

Хорошая задачка.

[sassa_nf]

Вообще-то, из условия не очень понятно, что с такой ситуацией сталкивался. Как правило, ситуация возникает в каком-нибудь из кейсов - например:

map f (x:xs) = f x: map f xs
map f xs = xs -- нельзя, т.к. xs не того типа

А в чистом виде - функтор Const.

data Const a b = Const a
type T = Const A

[deni_ok]

Первый шаг в решении, как мне кажется, состоит в том, чтобы прочувствовать, что аргумент и возвращаемое значение - один и тот же терм, который, однако, имеет два разных типа (иначе второе уравнение пройдет проверку). Ну а дальше думать, как заставить второе споткнуться на унификации, при том, что первое должно остаться устойчивым. Можно и без чистых фантомов решить, Either, например, подойдет.

[sassa_nf]

ну да, ну да. Проблема с условием в том, что если попытаться выразить поточнее, получится почти ответ; а если так как есть, то не очень ясно, что именно нужно решить - тип функции :-)

Да, Either подойдет, но не пройдет проверку один из кейсов, и искомый вид имеет не вся функция, а лишь один кейс.