Найдите сумму всех чисел меньше 1000, кратных 3 или 5 на языке F#

Если выписать все натуральные числа меньше 10, кратные 3 или 5, то получим 3, 5, 6 и 9. Сумма этих чисел равна 23. Найдите сумму всех чисел меньше 1000, кратных 3 или 5.

Решение

• Генератор последовательности всех чисел кратных b и меньше 1000

let s b = Seq.initInfinite (fun i -> i*b)
          |> Seq.takeWhile (fun x -> x < 1000)

• Объединение последовательностей чисел кратных 3 и 5
• исключение повторов
• нахождение суммы
• вывод результата

let answer = Seq.append (s 3) (s 5)
          |> Seq.distinct
          |> Seq.sum

printfn $"the answer is {answer}" //the answer is 233168