169 похожих чатов

Всем привет. Можете подсказать один момент?! Есть у меня тип: type Parameter =

| A of int
| B of string
| C

И есть список на входе: [A 10; B "value"]. А так же есть список с дефолными параметрами: [A 1; B "Text"; C].
И мне надо объединить эти два списка: первый список + значения из второго списка, конструкторов которых нет в первом.
Я решил это так:
let existParam parameters p =
match p with
| A _a -> List.exists
(function
| A _a -> true
| _ -> false)
parameters
| B _b -> List.exists
(function
| B _b -> true
| _ -> false)
parameters
| C -> List.exists
(function
| C -> true
| _ -> false)
parameters


let unionParams a b =
a
|> List.filter (fun x -> not (existParam b x))
|> List.append b

Никто не знает более элегантного способа написать функцию existParam?

1 ответов

15 просмотров

я бы сделал в один проход с аккумулятором в виде некоего ключ значения тип(или ег обозначение) - и bool (представлен он в списке или нет) потом можно в existParams прокинуть этот аккумулятор и уже там чекать

Похожие вопросы

Обсуждают сегодня

Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
48
Всем привет! Скажите, никто не пытался уменьшить размер процесса ssl, которые ассоциируется с открытым соединением (не помню точное название этого процесса, но там была какая-...
Алексей
20
а проверьте, собирается ли у кого сейчас транк лазаря через делюкс? у меня вот: fpcupdeluxe: info: Lazarus Native Installer (BuildModuleCustom: UserIDE): LazBuild: building Us...
Iluha Companets
20
Мне тут приспичило встроить в программу форматировние текста SQL, расставить переносы строк и отступы так, чтобы лучше читалось. Я что-то свое изобразил, оно после ключевых сл...
Sergey Bodrov
11
This is a big issue. Just by being a citizen of a country, you are denied to contribute to Open Source software: https://youtu.be/L5Ec5jrpLVk?si=1iIuHnMPbCB4anV-
Sharuzzaman Ahmat Raslan
72
добрый день. возможно ли изменить цвет окон лазаруса? Как?
Budemposmotret
35
Добрый день. Опять снова хочу обратиться к вам за помощью. После создания проэкта stack new, lazy.nvim + nvim-lspconfig/haskell-tools + hlint, ormolu из mason + hls из ghcup ...
Nannk
8
Господа, а кто-нибудь сталкивался с размещением на TTabControl/TTabSheet множества контролов (> 100) с последующими External: Access violation? Вот буквально на ровном месте. ...
Dmitry
29
Такой вопрос: Почему DocLister, если указать другие шаблоны для пагинации - ко всем указанными шаблоном присваивается пустая строка?
Кирилл Гацевич
11
А какие существуют способы обработки ошибок выделения памяти в ядре? Т.е., допустим, есть функция, которая возвращает адрес свободной страницы в физической памяти и диапазон в...
disba1ancer
51
Карта сайта