for$v(!<>..map@s=(@s,$'-/ /),@l=<>){$a+=$l[$v];$v=$s[$v]for@l;$b=999;$b-=$-=$b-$l[$v],$v=$s[$v]until$f[$v]++;$a+=$b<999&&$b}printf'%.1f',$a/2