20 lines
374 B
Text
20 lines
374 B
Text
go =>
|
|
N = 10,
|
|
Ps = primes(100).take(N),
|
|
println(1=Ps),
|
|
T = Ps,
|
|
foreach(K in 2..5)
|
|
T := mul_take(Ps,T,N),
|
|
println(K=T)
|
|
end,
|
|
nl,
|
|
foreach(K in 6..25)
|
|
T := mul_take(Ps,T,N),
|
|
println(K=T)
|
|
end,
|
|
nl.
|
|
|
|
% take first N values of L1 x L2
|
|
mul_take(L1,L2,N) = [I*J : I in L1, J in L2, I<=J].sort_remove_dups().take(N).
|
|
|
|
take(L,N) = [L[I] : I in 1..N].
|