Help for this page

Select Code to Download

Select or download this

use PDL;
use PDL::Char;
...
    # Show diff
    print join(' ', $diff->list), "\n";
}

Select or download this

$PDL::SHARE = $PDL::SHARE; # keep stray warning quiet