The 12 Weeks Of CS

program The_12_Weeks_of_CS

uses CS134
var
  i,j: integer;
type
  Verse: string[42];

{Purpose: Stress release before the post-exam /
   holiday cheer}
{Pre: Knowledge of `The Twelve Days of Christmas'}
{Post: Off key, tuneless song that scares new CS
   students out of their holes.  If the student
   see their prof's shadow, return 3 weeks of
   exams, else return 3 months of unwashed laundry}

begin
     for i:= 1 to 12 do
     begin
         singln('On the ',i,'th week of CS, my
         computer gave to me');
         for j:= i down to 1 do
         begin
              if j=1 then singln(Verse[j])
              else singln(j,' ',Verse[j]);
         end;
     end;
end.

ArrayTable:
i     Verse
1     a <sub-string> in a parse tree
2     Ordered Lists, and
3     Dummy Nodes
4     Recursive calls
5     ADTs
6     Proofs inducting
7     Simulations
8     Obscure Grammars
9     Dangling Pointers
10    Stacks-a-Popping
11    Lists-a-linking
12    O-notations