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

Create diamond.pl

Browse Source 
Ported to Perl!
This commit is contained in:
NezumiRonin
2021-03-10 23:09:31 -06:00
committed by GitHub
parent 5b61942fd5
commit a6558c9f25
1 changed files with 37 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
32 Diamond/perl/diamond.pl Normal 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;