Return to Answer

replaced http://codegolf.stackexchange.com/ with https://codegolf.stackexchange.com/

edited Apr 13, 2017 at 12:39

edited Apr 13, 2017 at 12:39

Perl 5, 31 bytes

A port of Martin Ender's beautiful answer answer.

30 bytes of code + -p flag.

s/(\S)\S* (?=\S*1円)//g;$_=!/ /

A port of Martin Ender's beautiful answer.

30 bytes of code + -p flag.

s/(\S)\S* (?=\S*1円)//g;$_=!/ /

A port of Martin Ender's beautiful answer.

30 bytes of code + -p flag.

s/(\S)\S* (?=\S*1円)//g;$_=!/ /

answered Mar 15, 2017 at 15:56

answered Mar 15, 2017 at 15:56

A port of Martin Ender's beautiful answer.

30 bytes of code + -p flag.

s/(\S)\S* (?=\S*1円)//g;$_=!/ /