mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-27 21:23:30 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
40 lines
1.2 KiB
Perl
Executable File
40 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
print ' 'x26 . "BUZZWORD GENERATOR\n";
|
|
print ' 'x15 . "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY\n";
|
|
print "\n\n\n";
|
|
|
|
print "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN\n";
|
|
print "'EDUCATOR-SPEAK' THAT YOU CAN WORK INTO REPORTS\n";
|
|
print "AND SPEECHES. WHENEVER A QUESTION MARK IS PRINTED,\n";
|
|
print "TYPE A 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT.\n";
|
|
print "\n\n"; print "HERE'S THE FIRST PHRASE; ";
|
|
|
|
my @A= ("",
|
|
"ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED",
|
|
"DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS",
|
|
"HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK",
|
|
"INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECTIVE",
|
|
"COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC",
|
|
"INTEGRATED","NON-GRADED","TRAINING","VERTICAL AGE",
|
|
"MOTIVATIONAL","CREATIVE","GROUPING","MODIFICATION",
|
|
"ACCOUNTABILITY","PROCESS","CORE CURRICULUM","ALGORITHM",
|
|
"PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM","RESOURCE",
|
|
"STRUCTURE","FACILITY","ENVIRONMENT"
|
|
);
|
|
|
|
my $Y;
|
|
do {
|
|
print $A[int(13*rand(1)+1)]." ";
|
|
print $A[int(13*rand(1)+14)]." ";
|
|
print $A[int(13*rand(1)+27)]; print "\n";
|
|
print "? ";
|
|
chomp ($Y = <STDIN>);
|
|
} until ($Y ne "Y");
|
|
|
|
print "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!\n";
|
|
exit;
|
|
|
|
|