Return to Answer

added 170 characters in body

edited Nov 21, 2020 at 19:13

edited Nov 21, 2020 at 19:13

Perl 5 , 61 bytes

Saved 5 bytes thanks to @Xcali !

map$;[$_].=$F[$_],0..@F;$-++@F}{($_)=grep$-.==y///c*!/(.).*1円/,@

map$;[$_].=$F[$_],0..@F;$-++}{($_)=grep$-==y///c*!/(.).*1円/,@

Saved 5 bytes thanks to @Xcali !

map$;[$_].=$F[$_],0..@F}{($_)=grep$.==y///c*!/(.).*1円/,@

answered May 5, 2018 at 3:38

answered May 5, 2018 at 3:38

map$;[$_].=$F[$_],0..@F;$-++}{($_)=grep$-==y///c*!/(.).*1円/,@