From 0583751d407439466883276b97994d6d1fd67e87 Mon Sep 17 00:00:00 2001 From: NezumiRonin Date: Tue, 2 Mar 2021 01:10:18 -0600 Subject: [PATCH] Create buzzword.pl Made with Perl! --- 20 Buzzword/perl/buzzword.pl | 39 ++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 20 Buzzword/perl/buzzword.pl diff --git a/20 Buzzword/perl/buzzword.pl b/20 Buzzword/perl/buzzword.pl new file mode 100644 index 00000000..75f09b3c --- /dev/null +++ b/20 Buzzword/perl/buzzword.pl @@ -0,0 +1,39 @@ +#!/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 = ); + } until ($Y ne "Y"); + +print "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!\n"; +exit; + +