2019-06-25から1日間の記事一覧
メモ用 標準入力 chomp(my $n = <STDIN>); chomp(my @arr = split " ", <STDIN>); よくわからないやつ D - 語呂合わせ <>;($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</stdin></stdin>…