メモ用
標準入力
chomp(my $n = <STDIN>); chomp(my @arr = split " ", <STDIN>);
よくわからないやつ
<>;($x=`dd`)=~s/(\d+ )(\w+)
/$_.=$1,$2.$"/ge;for$i(a..i){/\d/ and$_[$&]=++$j,s/$&/\\$i/g,s/\\$i/(..?.?)/}y/a-i/1-9/;$x=~$_;print${$_[$_]},$/for 1..$#_
メモ用
chomp(my $n = <STDIN>); chomp(my @arr = split " ", <STDIN>);
<>;($x=`dd`)=~s/(\d+ )(\w+)
/$_.=$1,$2.$"/ge;for$i(a..i){/\d/ and$_[$&]=++$j,s/$&/\\$i/g,s/\\$i/(..?.?)/}y/a-i/1-9/;$x=~$_;print${$_[$_]},$/for 1..$#_