Help for this page

Select Code to Download


  1. or download this
    CPD6Z98SB2KQNWV0F7Y1IX4GLRA5MTOJHE3U
    CXZOL6SUI2WTJ30HF519YPGBRNAK48MQVD7E
    ...
    Z3C7SJVODL25TRQ01HPWGNKXB4UA68YMI9EF
    BC9OXDHS2FI5Z6U0TYL1VPGQK7ANR38MEWJ4
    K4TCQBHS2ZV7FXU0P8R1YGDON3A6JILM9EW5
    
  2. or download this
    my @str = map {chomp; $_} <DATA>;
    print LCS(@str), "\n";
    ...
        join'',map$l{$_}[1],split/:/,$s;
    }
    sub g{$_[1]->[$_]<=$_[0]->[$_]&&return 0 for 0..(@{$_[0]}>@{$_[1]}?$#{
    +$_[1]}:$#{$_[0]});1}