mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-25 04:15:45 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
55 lines
1.5 KiB
Perl
Executable File
55 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
|
|
print ' 'x 33 . "LOVE\n";
|
|
print ' 'x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
|
|
print "\n\n\n";
|
|
print "A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA.\n";
|
|
print "HIS GREATEST WORK WILL BE REPRODUCED WITH A MESSAGE OF\n";
|
|
print "YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN'T THINK OF\n";
|
|
print "A MESSAGE, SIMPLE TYPE THE WORD 'LOVE'\n"; print "\n";
|
|
print "YOUR MESSAGE, PLEASE? "; chomp(my $A = <STDIN>);
|
|
my $L= length($A);
|
|
|
|
|
|
#Original logic too fuzzy, remaked.
|
|
my $Width= 60;
|
|
my $Text= substr($A x ($Width/$L+1), 0, $Width);
|
|
for (my $I=1; $I<10; $I++) { print "\n"; }
|
|
|
|
my @Data= (
|
|
60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5,
|
|
4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4,
|
|
4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4,
|
|
4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,6,8,11,4,
|
|
4,6,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8,
|
|
1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,6,12,5,1,
|
|
5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1,
|
|
6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,7,1,10,
|
|
7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10,
|
|
8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1,
|
|
9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1,
|
|
11,8,13,27,1,11,8,13,27,1,60
|
|
);
|
|
|
|
|
|
my $Pos=0;
|
|
my $Toggle=1;
|
|
foreach my $Size (@Data) {
|
|
my $Chunk= $Toggle ? substr($Text, $Pos, $Size) : " " x $Size;
|
|
print $Chunk;
|
|
$Pos+= $Size;
|
|
$Toggle= !$Toggle;
|
|
if ($Pos>= $Width) {
|
|
print "\n";
|
|
$Toggle=1;
|
|
$Pos=0;
|
|
}
|
|
}
|
|
|
|
for (my $I=1; $I<10; $I++) { print "\n"; }
|
|
exit;
|
|
|
|
|