module Person = type PersonId = PersonId of int type PersonName = PersonName of string type Person = { Id : PersonId; Name : PersonName } let create (id, name) = {Id = id; Name = name} let getName person = let (PersonName name) = person.Name name let getId person = let (PersonId id) = person.Id id let show person = printfn "[id = %d; name = %s]" (getId person) (getName person) type Person with static member Create (id, name) = create (PersonId id, PersonName name) member it.Show() = show it let p = Person.Create (1, "Вася") p.Show()
После вчерашних обновлений в консоли Arch Linux при выборе русской локали вместо букв печатаются белые квадратики. Очевидно, что по какой-то причине не загружается прописанный в rc.conf шрифт. Временное лекарство от этого: выполнить команду setfont cyr-sun16 . Еще у меня в момент начальной загрузки появляется рябь на экране как от сильных электромагнитных помех в ЭЛТ, хотя у меня ЖК. Может быть это как-то связано.
Комментарии
Отправить комментарий