Space Index by

while($i=<STDIN>){chomp($i);@j=split(/ /, $i);@h=split(/,/, $j[0]);foreach(reverse(@h)){substr($j[1], $_, 0)=" "}print($j[1]."\n");}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page