[go: up one dir, main page]
Menu ▾ ▴

[0ec8fa]: / doc / prop.pl  Maximize  Restore  History

Download this file

13 lines (9 with data), 168 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
#!/usr/bin/perl



$special = $normal = 0;

while(<STDIN>) {

    $special++ if /^ >/;

    $normal++;

    print;

}

$prop = $special/$normal;

print "proportion: $prop\n";