Пользовательские типы. Сравнение с шаблоном

@Fairan · Регистрация: 04.03.2013

Author24 — интернет-сервис помощи студентам

Очень прошу помочь с заданием:
В электронной записной книжке хранятся записи следующих видов: напоминания о днях рождения знакомых, телефоны знакомых и назначенные встречи. Напоминание состоит из имени знакомого и даты (день и месяц). Запись о телефоне должна содержать имя человека и его телефон. Информация о назначенной встрече содержит дату встречи (день, месяц, год) и краткое описание (можно представить строкой). Разработайте тип данных, представляющий такую запись. Записная книжка является списком записей. Определите следующие функции:
1) getByName, возвращающая информацию о человека с указанным именем (его телфон и дату рождения).
2) getByLetter, возвращающая список людей, о которых есть информация в записной книжке и чье имя начинается на указанную букву.
3) getAssignment, возвращающая по указанной дате список дел (информацию о назначенных встречах и телефоны друзей, которых нужно поздравить в этот день).
Вспомнив лекции и собрав свои не слишком обширные знания попробовал реализовать 1ую функцию:

F#

type Infa=
    Напоминание of string*float
    |Телефон of string*int
    |Встреча of (int*int*int)*string
 
let first (N,L) =
    match L with
    Напоминание(N,X) -> X

На следующие входные данные " first ("Nik",(Напоминание("Nik",13.08);Напоминание("Mike",14.05);Напоминание("Ann",22. 11)));;"
выдает предупреждение "warning FS0020: Данное выражение должно иметь тип "unit", а имеет тип "Infa". Используйте "ignore", чтобы отменить результат выражения, или же "let", чтобы привязать результат к имени."
И результат 22.11

Не понимаю что я делаю не так((
Очень прошу помочь.

@pycture · 25.06.2013, 17:41

Сообщение от Fairan

Не понимаю что я делаю не так((

1) написал функцию которая компилится с предупреждениями
2) подал в нее что попало вместо списка

@Fairan · 26.06.2013, 17:54 **[ТС]**

А как тогда должна выглядеть функция?

@pycture · 27.06.2013, 07:46

можно начать с того что прописать типы аргументов

Код

let first (N : string, L : Infa list) =

@pycture 1195 / 588 / 88 Регистрация: 20.09.2012 Сообщений: 1,881
	25.06.2013, 17:41	2
	Сообщение от Fairan Не понимаю что я делаю не так(( 1) написал функцию которая компилится с предупреждениями 2) подал в нее что попало вместо списка 0

@Fairan 0 / 0 / 0 Регистрация: 04.03.2013 Сообщений: 9
	26.06.2013, 17:54 [ТС]	3
	А как тогда должна выглядеть функция? 0

@pycture 1195 / 588 / 88 Регистрация: 20.09.2012 Сообщений: 1,881
	27.06.2013, 07:46	4
	можно начать с того что прописать типы аргументов Код let first (N : string, L : Infa list) = 0