Haskell Phonebook добавление элементов

Question

Он, ребята,

Моя задача - запрограммировать телефонную книгу в Haskell. Поэтому указывается телефонная книга. Телефонная книга отображает имена (String) на их номера телефонов (String). Но теперь у меня есть проблемы, реализующие функцию «вставить»:

Heres код:

type Phonebook = String -> String 

emptyPhonebook :: Phonebook 
emptyPhonebook = \_->"" 

insert :: String -> String -> Phonebook -> Phonebook 
insert name number emptyPhonebook = (\name->number)  --is this correct? 
insert name number existingPhonebook = ?? 

Мой вопрос: Как вставить функцию в функцию? Я имею в виду, теперь мне нужно вставить запись, состоящую из функции (имя -> номер) в другой функции (существующая телефонная книга), или я ошибаюсь? Спасибо за помощь мне :)

Answer 1

Что-то, как это должно работать:

type Phonebook = String -> String 

emptyPhonebook :: Phonebook 
emptyPhonebook _ = "" 

insert :: String -> String -> Phonebook -> Phonebook 
insert name number phonebook = 
     case phonebook name of 
      "" -> (\s -> if s == name then number else phonebook s) 
      _ -> phonebook