diff options
Diffstat (limited to 'gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl')
-rwxr-xr-x | gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl b/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl deleted file mode 100755 index 38caf2d..0000000 --- a/gfsm/gfsm/src/libgfsm/tests/gfsm-out-degrees.perl +++ /dev/null @@ -1,11 +0,0 @@ -#!/usr/bin/perl -w - -use Gfsm; - -$fsmfile = @ARGV ? shift : '-'; -$fsm = Gfsm::Automaton->new(); -die("$0: load failed for '$fsmfile': $!") if (!$fsm->load($fsmfile)); - -foreach $qid (0..($fsm->n_states-1)) { - print $qid, "\t", $fsm->out_degree($qid), "\n"; -} |