gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2026-01-04 09:07:41 -08:00
Code Issues Packages Projects Releases Wiki Activity

Removed spaces from top-level directory names.

Browse Source 
Spaces tend to cause annoyances in a Unix-style shell environment.
This change fixes that.
This commit is contained in:
Chris Reuter
2021-11-21 18:30:21 -05:00
parent df2e7426eb
commit d26dbf036a
1725 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
32_Diamond/perl/README.md Normal file
View File

@@ -0,0 +1,3 @@
Original source downloaded [from Vintage Basic](http://www.vintage-basic.net/games.html)
Conversion to [Perl](https://www.perl.org/)

37
32_Diamond/perl/diamond.pl Executable file
View File

@@ -0,0 +1,37 @@
#!/usr/bin/perl
use strict;
################
# PORTING NOTES:
# * In basic "Tab" function are not spaces, but absolute col position on screen.
# * It was too dificult to port this one, couldn't figure out the original algorithm.
# * So the algorithm was remake.
#
print ' 'x 33 . "DIAMOND\n";
print ' 'x 15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
print "\n"; print "\n"; print "\n";
print "FOR A PRETTY DIAMOND PATTERN,\n";
print "TYPE IN AN ODD NUMBER BETWEEN 5 AND 21? "; chomp(my $R = <STDIN>); print "\n";
my $Wid= int(60/$R)+1;
my $Dia="CC". "!" x ($R-2);
for (my $J=1; $J<$Wid; $J++) {
for (my $K=1; $K<($R+2)*2-4; $K+=2) {
my $Size= $K;
if ($K>$R) { $Size=$R+($R-$K); }
my $Chunk= substr($Dia, 0, $Size);
for (my $L=1; $L<$Wid; $L++) {
my $Space= " " x (($R-$Size)/2);
if ($L>1) { $Space.=$Space; }
print $Space.$Chunk;
}
print "\n";
}
}
exit;