alias top10 {
hsave -no points top10.txt
filter -ffcteun 1 32 top10.txt top10.txt
var %i = 1 | while (%i <= 10) {
var %top10.item = $hget(points,$gettok($read(top10.txt,nt,%i),1,32)).item
set %top10 %top10 %top10.item ( $+ $hget(points,%top10.item) $+ )
inc %i
}
echo $replace(%top10,$chr(32),$+($chr(44),$chr(32)))
unset %top10
}
alias bottom10 {
hsave -no points bottom10.txt
filter -ffctun 1 32 bottom10.txt bottom10.txt
var %i = 1 | while (%i <= 10) {
var %bottom10.item = $hget(points,$gettok($read(bottom10.txt,nt,%i),1,32)).item
set %bottom10 %bottom10 %bottom10.item ( $+ $hget(points,%bottom10.item) $+ )
inc %i
}
echo $replace(%bottom10,$chr(32),$+($chr(44),$chr(32)))
unset %bottom10
}