shithub: riscv

ref: 072c45d4633d5f03e3b79f9c60c3655a6d4a1149
dir: /sys/src/ape/lib/openssl/crypto/lhash/num.pl/

View raw version 
#!/usr/local/bin/perl

#node     10 ->   4

while (<>)
	{
	next unless /^node/;
	chop;
	@a=split;
	$num{$a[3]}++;
	}

@a=sort {$a <=> $b } keys %num;
foreach (0 .. $a[$#a])
	{
	printf "%4d:%4d\n",$_,$num{$_};
	}