>>631 Perl5

$len = length ($s = 'mississippi');
for $a (0..$len-2) {
　for $l (1..$len-$a) {
　　$t = substr($s, $a, $l);
　　$b = index($s, $t, $a+1);
　　$h{length $t} = $t if 0 <= $b
　}
}
print $h{(sort keys %h)[-1]}, "\n";

注: インデントは全角スペースに置換してあります

実行結果
~ $ perl 21_631_mississippi.pl
issi