Show the (decimal) value of a number of 1s appended with a 3, then squared: Difference between revisions

added AWK
(Realize in F#)
(added AWK)
Line 117:
110 AAAAAAAAAAAA127654320ZZZZZZZZZZZ98769
111 AAAAAAAAAAAA12387654320ZZZZZZZZZZZ98769
</pre>
=={{header|AWK}}==
<lang AWK>
# syntax: GAWK -f SHOW_THE_DECIMAL_VALUE_OF_A_NUMBER_OF_1S_APPENDED_WITH_A_3_THEN_SQUARED.AWK
# converted from FreeBASIC
BEGIN {
for (i=0; i<=7; i++) {
m = make13(i)
printf("%1d %9s^2 %'20d\n",i,m,m*m)
}
exit(0)
}
function make13(n, t) {
while (n--) {
t = 10 * (t+1)
}
return(t+3)
}
</lang>
{{out}}
<pre>
0 3^2 9
1 13^2 169
2 113^2 12,769
3 1113^2 1,238,769
4 11113^2 123,498,769
5 111113^2 12,346,098,769
6 1111113^2 1,234,572,098,769
7 11111113^2 123,456,832,098,769
</pre>
 
477

edits