RosettaCodeData/Task/Tau-function/Phix/tau-function-1.phix
2026-04-30 12:34:36 -04:00

4 lines
119 B
Text

for i=1 to 100 do
printf(1,"%3d",{length(factors(i,1))})
if remainder(i,20)=0 then puts(1,"\n") end if
end for