В языке за поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции «И» – символ «&».
В таблице приведены за и количество найденных по ним страниц некоторого сегмента сети Интернет.
ЗА НАЙДЕНО ДОКУМЕНТОВ (таблица)
СЛОН = 90
СОБАКА = 55
СОВА = 22
СЛОН & СОБАКА = 17
СЛОН & СОВА & СОБАКА = 4
Какое максимальное количество страниц (в сотнях тысяч) будет найдено по за СЛОН | СОБАКА | СОВА?
Считается, что все за выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения за
[<EntryPoint>]
let main argv =
let rec ( ** ) x n =
match n < 1 with
| true -> 1
| false -> x * (x ** (n-1))
let rec sumDigits x =
match x with
| x when x < 10 -> (x, 1)
| x ->
let res = x / 10 |> sumDigits
((res |> fst) + (x % 10), (res |> snd) + 1)
let isArmstrong x =
let digitsInfo = sumDigits x
x = (fst digitsInfo) ** (snd digitsInfo)
let a = System.Console.ReadLine() |> System.Int32.Parse
let b = System.Console.ReadLine() |> System.Int32.Parse
let result = [a..b] |> List.filter (isArmstrong)
printf "Result: %A" result
System.Console.ReadKey true |> ignore
0