Skip to main content
added 26 characters in body
Source Link
KSFT
  • 1.6k
  • 10
  • 23

Perl - 6084

for(0..$ARGV[0]){printf"$_%s\n"s/6/x/g;s/9/6/g;s/x/9/g;printf"$_%s\n",$_=~/^[0689]+[689]$/?".":""}

Perl - 60

for(0..$ARGV[0]){printf"$_%s\n",$_=~/^[0689]+[689]$/?".":""}

Perl - 84

for(0..$ARGV[0]){s/6/x/g;s/9/6/g;s/x/9/g;printf"$_%s\n",$_=~/^[0689]+[689]$/?".":""}
Source Link
KSFT
  • 1.6k
  • 10
  • 23

Perl - 60

for(0..$ARGV[0]){printf"$_%s\n",$_=~/^[0689]+[689]$/?".":""}