Rosetta Code

I'm a software engineer, get me out of here: Difference between revisions

← Older editNewer edit →
Content deleted Content added
SqrtNegInf (talk | contribs)
2,392 edits
m →‎{{header|Perl}}: eliminate hard-coded value
Line 784:
use strict;
use warnings;
use List::Util qw( 'first )';
 
my $dw = join '', <DATA>, (" \n") x 40;
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;
#print $d;
▲$d =~ s/.+/ sprintf "%-31s${w}s", $& /ge; # padding for single number addressing
$w++;
 
my $w = $d =~ /\n/ ? $+[0] : die;
sub xy { "(@{[ int $_[0] / $w ]},@{[ $_[0] % $w ]})" }
sub fromxy { $_[0] * $w + $_[1] }
Retrieved from "https://rosettacode.org/wiki/I%27m_a_software_engineer,_get_me_out_of_here"