Submission #1474758

---

Source Code Expand

@s=<>=~/./g;
$\=100;
for$a(a..z){
	$c=0;
	for(@t=@s;grep!/$a/,@t;pop@t){
		for$i(0..$#t-1){
			if($t[$i+1]eq$a){
				$t[$i]=$a
			}
		}
		++$c
	}
	$\-=$-=$\-$c
}
print

Submission Info

Compile Error

Unquoted string "a" may clash with future reserved word at ./Main.pl line 3.
Unquoted string "z" may clash with future reserved word at ./Main.pl line 3.
./Main.pl syntax OK

Judge Result