Submission #1986689

---

Source Code Expand

$S=<STDIN>;chomp $S;
$r=0;$f=0;
while(length($S)>1) {
	$c=substr($S,0,1);
	$c2=0; $c2++ while( $S =~ m/$c/g );
	if ($c2==1){
		$r+=1;
		$S=substr($S,1,1).$c.substr($S,2);
		if($f){ $r=-1; last;}
		$f=1;
	} else {
		#$c2>=2
		$k = rindex($S,$c);
		$S = substr($S,0,$k) . substr($S,$k+1) . $c;
		$r+=length($S)-$k-1;
		$a=$a.substr($S,0,1);
		$b=substr($S,length($S)-1).$b;
		$S=substr($S,1,length($S)-2);
		$f=0;
	}
}
print $r;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result