I'm a software engineer, get me out of here: Difference between revisions
I'm a software engineer, get me out of here (view source)
Revision as of 20:06, 21 January 2021
, 3 years ago→{{header|Perl}}: eliminate hard-coded value
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: eliminate hard-coded value) |
|||
Line 784:
use strict;
use warnings;
use List::Util
my $
my $d = join '', <DATA>, " \n" x 4;
$d =~ s/.+/ sprintf "%-31s", $& /ge; # padding for single number addressing▼
length > $w and $w = length for split "\n", $d;
$w++;
sub xy { "(@{[ int $_[0] / $w ]},@{[ $_[0] % $w ]})" }
sub fromxy { $_[0] * $w + $_[1] }
| |||