Help for this page

Select Code to Download


  1. or download this
    sub compatible
{
...

    print "$s1\n$s2\n", ($diff == 0) ? "compatible" : "incompatible", 
+"\n\n";
}
  2. or download this
    _8__3__19
48____7__
...
_8__3__19
48_____7_
incompatible
  3. or download this
    use strict;

...
    $s2 = shift(@tests);
    compatible($s1, $s2);
}
  4. or download this
    _8__3__19
48____7__
...
_8__3__19
48_____7_
incompatible