Return to Answer

edited body

edited Jul 14, 2021 at 18:35

Perl 5 `-n`, 44(削除) 44 (削除ここまで) 37 bytes

/./&&!$k{lc$&}&&print$k{lc$&}=$_++&&print$_,$"for/\w+/g

/./&&!$k{lc$&}&&print$k{lc$&}=$_,$"for/\w+/g

/./&&!$k{lc$&}++&&print$_,$"for/\w+/g

answered Nov 13, 2020 at 15:50

answered Nov 13, 2020 at 15:50

/./&&!$k{lc$&}&&print$k{lc$&}=$_,$"for/\w+/g