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

Привет! А как такое можно записать получше? (игнорируя глупость самой

логики)

let format (input: string) =
match fun a b -> input.StartsWith a && input.EndsWith b with
| f when f "{" "}" -> "JSON"
| f when f "[" "]" -> "JSON"
| f when f "<" ">" -> "XML"
| _ -> "PlainText"

11 ответов

15 просмотров

SharpLab

Prunkles
SharpLab

нафига усложнять? match input.First(), input.Last() with | '{', '}' -> "JSON"

let (|Between|_|) (a: string) (b: string) (x: string) = if x.StartsWith a && x.EndsWith b then Some () else None let format' = function | Between "{" "}" | Between "[" "]" -> "JSON" | Between "<" ">" -> "XML" | _ -> "PlainText"

Бери сразу fparsec

Stanisλav-Serjøgin Автор вопроса
Igor
Бери сразу fparsec

Чутка зубы об него сломал, но в целом получил удовольствие

Andrew
фпарсек топ

Фпарсек это библиотека про аппликативные парсеры?

Stanisλav-Serjøgin Автор вопроса
Ayrat Hudaygulov
let (|Between|_|) (a: string) (b: string) (x: stri...

А почему принято использовать Optional, а не bool? Потому что семантика более выразительная или по другим причинам?

Stanisλav Serjøgin
А почему принято использовать Optional, а не bool?...

Потому что из активных шаблонов можно возвращать значения, завёрнутые в Option<'T>.

gsomix
Потому что из активных шаблонов можно возвращать з...

То есть не только информацию о том, сопоставилось или нет, а ещё деконструкцию/представление сделать.

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

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

30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
в JclConsole объявлено так: function CtrlHandler(CtrlType: DWORD): BOOL; stdcall; - где ваше объявление с stdcall? у вас на картинке нет stdcall
Karagy
8
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
~ 2m21s  nix shell github:nixos/nixpkgs#stack ~  stack ghc -- --version error: … while calling the 'derivationStrict' builtin at /builtin/derivation.nix:...
Rebuild your mind.
6
Карта сайта