Submission #1986742

---

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 {
		$r+=scalar(@S)-$k-1;
		splice(@S,$k,1);
		shift(@S);
		$f=0;
	}
}
print "$r\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result