ЕБ
let response input =
let input = input |> Seq.filter (not << Char.IsWhiteSpace) |> String.Concat
let allCapital (input: string) = input.ToUpper() = input && (input |> Seq.exists Char.IsLetter)
let question input = input |> Seq.last |> (=) '?'
if (input |> Seq.length) = 0 then
"Fine. Be that way!"
else
match (allCapital input, question input) with
| (true, true) -> "Calm down, I know what I'm doing!"
| (true, _) -> "Whoa, chill out!"
| (_, true) -> "Sure."
| _ -> "Whatever."