T=A|B|C
let f=function
|A->"A"
|B->"B"
let result=f C
Обычно наоборот хотят)
в настройках проекта ставишь treat warnings as errors
Обсуждают сегодня