Ну самое залайканное решение Боба с актив паттернами вот: module Bob let

Question

Ну самое залайканное решение Боба с актив паттернами вот: module Bob let

containsLetters (input : string) =
input |> Seq.exists System.Char.IsLetter

let (|Statement|ForcefulQuestion|Shouting|Question|Silence|) (input : string) =
if System.String.IsNullOrWhiteSpace input then Silence
elif input = input.ToUpper() && containsLetters input
then if input.EndsWith "?" then ForcefulQuestion else Shouting
elif input.EndsWith "?" then Question
else Statement

let response (input : string) =
match input.Trim() with
| Statement -> "Whatever."
| Question -> "Sure."
| Shouting -> "Whoa, chill out!"
| ForcefulQuestion -> "Calm down, I know what I'm doing!"
| Silence -> "Fine. Be that way!"

#fsharp #programming #russian

0

27.03.2021

1 ответов

21 просмотр

Igor Sokolov · Accepted Answer

Igor Sokolov

как переписать вместо | ForcefuleQuestion -> чтобы было | Question & Shouting -> ?

0

27.03.2021

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

Ну самое залайканное решение Боба с актив паттернами вот: module Bob let

1 ответов

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