(* функциональная версия вычисления последовательности простых чисел *) let primes max = [ for i = 1 to max do let factors n = [ for j = 1 to n do if n % j = 0 then yield j ] if 3 > List . length ( factors i ) then yield i ] /// используя композицию 2 - х функций /// создаем 3 - ю для вывода значений на экран let printNPrimes = primes >> List . iter ( printfn "%d" ) printNPrimes 10
t.me/perfect0sight