Submission #1986725

---

Source Code Expand

$S=<STDIN>;chomp $S;
@S=split"",$S;

$r=0;$f=0;
while(scalar(@S)>1) {
	$c=$S[0];
	for($k=$#S;$S[$k] ne $c;$k--) {}
	if ($k==0){
		if($f){ $r=-1; last;}
		$f=1;
		($S[0],$S[1])=($S[1],$S[0]);
		$r+=1;
	} else {
		splice(@S,$k,1);push @S,$c;
		$r+=scalar(@S)-$k-1;
		$a=$a.shift(@S);
		$b=pop(@S).$b;
		$f=0;
	}
}
print $r;

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result