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

Merge pull request #76 from NezumiRonin/patch-3

Browse Source 
Create sinewave.pl
This commit is contained in:
Jeff Atwood
2021-02-22 20:56:05 -08:00
committed by GitHub
parent ab63a3cd63 918b9a0903
commit 1118c32a06
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
78 Sine Wave/perl/sinewave.pl Normal file
View File

@@ -0,0 +1,17 @@
#!/usr/bin/perl
use strict;
use warnings;
print ' ' x 30 ."SINE WAVE\n";
print ' ' x 15 ."CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
print "\n\n\n\n\n";
my $B=0;
for (my $T=0; $T<40; $T+=.25) {
my $A=int(26+25*sin($T));
print ' ' x $A;
if ($B==0) { print "CREATIVE\n"; }
if ($B==1) { print "COMPUTING\n"; }
$B= !$B; #Toggle
}