Select Code to Download

sub score {
my$s;sub S{$_[0]=~X?10:$_[0]}$s+=($l=shift)=~X?10+($_[1]eq'/'?10:S($_[
+0])+S$_[1]):($r=shift)eq'/'?10+S$_[0]:$l+$r for 1..10;$s
}

sub score {
$"=my$s;sub S{$_[0]=~X?10:$_[0]}$S="@_";$S=~/(X)(?=(.)(.))|(.\/)(?=(.)
+)|(.)(.)/g,$s+=$1?10+($3eq'/'?10:S($2)+S($3)):$4?10+S($5):$6+$7for 1.
+.10;$s
}