10 lines
192 B
Text
10 lines
192 B
Text
link "factors"
|
|
|
|
procedure main()
|
|
every writes(k := 1 to 5,": ") do
|
|
every writes(right(genKap(k),5)\10|"\n")
|
|
end
|
|
|
|
procedure genKap(k)
|
|
suspend (k = *factors(n := seq(q)), n)
|
|
end
|