Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    CHOICE: print "
    ...
    if($Choice =~ /quit/i) {print "\nBye.\n\n"; exit;}
    if($Choice =~ /quads/i) {require "Quadrilaterals.pl";}
    if($Choice =~ /crazy maxim/i) {require "CMQIA.pl";}
    
  2. or download this
     #!/usr/bin/perl -w
    use strict;
    ORIGINAL: print "
    ...
    my $AX = <STDIN>;
    chomp $AX;
    …