Return to Answer

added 64 characters in body

edited May 8, 2019 at 16:51

Perl 5 `-p`, 5755 bytes

s/\d+\D+\d+ (?=(\d+))/(1ドル-$&).$"/ge;s/\d+$//;s/^(.+?)1円*$/1ドル/

Numbers are input as a space separated list. Output is the same format.

s/\d+\D+(?=(\d+))/(1ドル-$&).$"/ge;s/\d+$//;s/^(.+?)1円*$/1ドル/

s/\d+ (?=(\d+))/(1ドル-$&).$"/ge;s/\d+$//;s/^(.+?)1円*$/1ドル/

Numbers are input as a space separated list. Output is the same format.

deleted 5 characters in body

edited May 8, 2019 at 16:44

edited May 8, 2019 at 16:44

s/\d+\D+(?=(\d+))/(1ドル-$&).' '$"/ge;s/\d+$//;s/^(.+?)1円*$/1ドル/

s/\d+\D+(?=(\d+))/(1ドル-$&).' '/ge;s/\d+$//;s/^(.+?)1円*$/1ドル/

s/\d+\D+(?=(\d+))/(1ドル-$&).$"/ge;s/\d+$//;s/^(.+?)1円*$/1ドル/

answered May 8, 2019 at 2:16

answered May 8, 2019 at 2:16

s/\d+\D+(?=(\d+))/(1ドル-$&).' '/ge;s/\d+$//;s/^(.+?)1円*$/1ドル/