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

Content added Content deleted
m (→‎{{header|Perl}}: eliminate hard-coded value)
Line 784: Line 784:
use strict;
use strict;
use warnings;
use warnings;
use List::Util qw( first );
use List::Util 'first';


my $d = join '', <DATA>, (" \n") x 4;
my $w = 0;
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 "%-${w}s", $& /ge; # padding for single number addressing
$w++;


my $w = $d =~ /\n/ ? $+[0] : die;
sub xy { "(@{[ int $_[0] / $w ]},@{[ $_[0] % $w ]})" }
sub xy { "(@{[ int $_[0] / $w ]},@{[ $_[0] % $w ]})" }
sub fromxy { $_[0] * $w + $_[1] }
sub fromxy { $_[0] * $w + $_[1] }
Retrieved from "https://rosettacode.org/wiki/I%27m_a_software_engineer,_get_me_out_of_here"