Return to Answer

added 16 characters in body

Source Link

edited Mar 29, 2018 at 15:44

Perl 5 `-p`, 7171 69 bytes

uses no separator. The negative and positive parts are in "roman order" (largest digit first)

#!/usr/bin/perl -p
$n=$_}{$_=21;ss/@{[$n++%3]}\K/y]/,$n/=3,y/?-y]/>-x]/while--$=;yfor($_=21)x31;y/>?@12/139/d

uses no separator. The negative and positive parts are in "roman order" (largest digit first)

#!/usr/bin/perl -p
$n=$_}{$_=21;s/@{[$n++%3]}\K/y/,$n/=3,y/?-y/>-x/while--$=;y/>?@12/139/d

uses no separator. The negative and positive parts are in "roman order" (largest digit first)

#!/usr/bin/perl -p
$n=$_}{s/@{[$n++%3]}\K/]/,$n/=3,y/?-]/>-]/for($_=21)x31;y/>?@12/139/d

Source Link

created Mar 29, 2018 at 15:32

uses no separator. The negative and positive parts are in "roman order" (largest digit first)

#!/usr/bin/perl -p
$n=$_}{$_=21;s/@{[$n++%3]}\K/y/,$n/=3,y/?-y/>-x/while--$=;y/>?@12/139/d