Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
# -*- CPerl -*-
...
  printf "%4d |   %1s   |    %1s    |    %1s\n",
    $_, sym(search $Set, $_), sym($Test->($_)), sym($Clos->($_));
}