gno/usr.bin/awk/tests/histans1.awk
tribby ddb82cb2e0 Remaining files for awk 2.0 that were left out of the previous checkin.
Maybe someday I'll become adept at using cvs...
1998-04-07 17:06:53 +00:00

20 lines
491 B
Awk

{ x[int($1/10)]++ }
END { max = MAXSTARS = 25
for (i = 0; i <= 10; i++)
if (x[i] > max)
max = x[i]
for (i = 0; i <= 10; i++)
y[i] = x[i]/max * MAXSTARS
for (i = 0; i < 10; i++)
printf(" %2d - %2d: %3d %s\n",
10*i, 10*i+9, x[i], rep(y[i],"*"))
printf("100: %3d %s\n", x[10], rep(y[10],"*"))
}
function rep(n,s, t) { # return string of n s's
while (n-- > 0)
t = t s
return t
}