Count in factors: Difference between revisions
→{{header|BBC BASIC}}
Catskill549 (talk | contribs) |
|||
Line 130:
22: 2 * 11</pre>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f COUNT_IN_FACTORS.AWK
BEGIN {
fmt = "%d=%s\n"
for (i=1; i<=16; i++) {
printf(fmt,i,factors(i))
}
i = 2144; printf(fmt,i,factors(i))
i = 6358; printf(fmt,i,factors(i))
exit(0)
}
function factors(n, f,p) {
if (n == 1) {
return(1)
}
p = 2
while (p <= n) {
if (n % p == 0) {
f = sprintf("%s%s*",f,p)
n /= p
}
else {
p++
}
}
return(substr(f,1,length(f)-1))
}
</lang>
<p>output:</p>
<pre>
1=1
2=2
3=3
4=2*2
5=5
6=2*3
7=7
8=2*2*2
9=3*3
10=2*5
11=11
12=2*2*3
13=13
14=2*7
15=3*5
16=2*2*2*2
2144=2*2*2*2*2*67
6358=2*11*17*17
</pre>
=={{header|BBC BASIC}}==
<lang bbcbasic> FOR i% = 1 TO 20
| |||