#!/usr/bin/perl
# Bryan Bishop 2009-01-20
# see notes.txt
# ruleCount.pl -> how many rules does a graph use?

if($#ARGV != 0) { print "useage: graphID\n\n Number of rules used to make the graph."; }

open(FIRST, "<rulelists/$ARGV[0].txt");
@rules1 = <FIRST>;
close(FIRST);

print $#rules1, "\n";