This was my Ecs 102 (Introduction to Computing) Final Exam.
I had a high enough grade, and the final was optional.
I took advantage of this fact.  Not sure if it was such
a great idea, but you can be the judge of that.


/*

To the grader of this examination booklet,

This exam is a rather simple test of my programming abilities.

Instead, I wish to present something a little more challenging.

Thank you for reading.

Have a nice day.


                                            Michael J. DeMaria


(1) Scheme

(define eric 100)
(define shawn 500)
(define (count eric shawn)
  (let(
       (eesibert eric)
      )
      (if (= eric shawn) eesibert
        (cons eesibert
                (count (+ eric 1) shawn))
      )
  )
)
(count eric shawn)


(2) Cobol

*
003020-GET-INT-PART
*
 IF (NW-WORK-CHAR(NW-WX) NUMERIC)
    IF (NW-BLD-INTEGER > 99999999999)
       SET NW-WX TO NW-WLIM
    ELSE
      MOVE SPACE TO NW-WORK-CHAR (NW-WX)
 ELSE
     SET NW-WX TO NW-WLIM
003020-EXIT


(3)(A) Assembly

297D:0100   MOV   AH,02
297D:0102   MOV   CX,0008
297D:0105   MOV   DL,00
297D:0107   RCL   BL,1
297D:0109   ADC   DL,30
297D:010C   INT   21
297D:010E   LOOP  0105
297D:0110   INT   20


(3)(B) Ada

with Ada.Text_IO; use Ada.Text_IO;

procedure Get_Name is
Name : String (1..80);
Length : Integer;

begin
  Put ("Enter your first name> ");
  Get_Line (Name, Length);
  New_Line;
  Put ("Hello ");
  Put (Name (1..Length));
end Get_Name;


(4) I refuse to answer this question on the grounds that
it conflicts with my religious beliefs.  And who made up
the rule that C must be programmed in english?  If C was
actually a language, it would not require the programmer
to know the English language.  To prove this point,
I shall write a simple program in Latin.

intus mainus()
{
intus pi;
intus thetus;
thetus = (XVII + III) * XLVI;

forum (pi=I; pi<XVI; pi=pi + I)
{
printus("Tu luckus numburus isus %d", thetus);
}
returnus I;
}

This program will not compile.  Now, being a Roman Catholic,
this violates my right to write programs in my native
religious language of Latin.  Since the University is
knowingly refusing my abilities to practice my religion
in any or all aspects of daily life, I request that I be
awarded full credit for this exam question.


(5) And now, a discussion of the Pentium processor...

Q: How many Pentium designers does it take to screw
   in a lightbulb?
A: 1.99904274017, but thats close enough.

Q: What do you call a series of FDIV instructions
   on a Pentium?
A: Successive approximations.

Q: Why didn't Intel call the Pentium the 586?
A: Because they added 486 and 100 on the first
   Pentium and got 585.999983605.

Top ten new slogans for Intel
9.9998273 It's a FLAW, damnit, not a Bug.
8.9992734 It's Close Enoug, We Say So.
7.9994318 Nearly 300 Correct Opcodes
6.9998134 You Don't Need to Know What's Inside
5.9995235 Redefining the PC - and Math As Well
4.9998321 We Fixed It, Really
3.9992468 Division Considered Harmful
2.9994316 Why Do You think They Call It *Floating* Point?
1.9997531 We're Looking for a Few Good Flaws
0.9999998 The Errata Inside


(6) And now for something ruder...
The TOP TEN lines from the upcoming TNG episode
"The Enterprise Stops at Taco Bell"

10. Troi - I sense...indigestion.
9. Picard - Don't order the fajitas, Number One, they'll
   go through you at warp nine.
8. Wesley - Look, mister, the sign says you get a free
   "Little Orphan Annie" cup with any taco salad purchase,
   and I'm not leaving here until I get one!
7. Worf - Klingons do NOT eat burritos!
6. Geordi - I bet if I allowed anti-matter to collide with
   these chimichangas we could boost warp power by 27 percent!
5. Dr. Crusher - Inconclusive meat readings, Captain.
4. Picard - You're on, Number One.  Whoever can squirt the
   most jalapeno sauce up his nose gets treated to dessert.
3. Riker - What do you mean they don't serve Tokelau here?
   What kind of Mexican resturant is this?
2. Picard - When we get back on the ship and you have the
   conn, Number One, you'd better not queef on my chair!
1. Data, re-joining Geordi after bugging Picard with a boring
   monologue on the history of the enchilada - I do not
   believe it is physically possible for me to place an
   enchilada in the area suggested by the captain.


(7) Written as one long line, and in a spiral.
#include <stdio.h>
/* Hey, it really works! */
main(l,i,I)char**i;{l/=!(l>(I=atoi(*++i))||
fork()&&main(l+1,i-1)||I%l); return printf("%d\n",l);}


#include <stdio.h>
/* Ugly code alert! */
int main(void){int hello;int convert;printf("Hello World.\n");
printf("How many times do you want that repeated?\n");
scanf("%d",&hello);if(convert >=0){for(convert;convert>0;
convert--){printf("%d, Hello World.\n");}}else{printf
("Sorry, you have entered an invalid number.  Bye bye.\n");}}


(8) Write in C.
When I find my code in tons of touble,
Friends and colleages come to me,
Speaking words of wisdom:
"Write in C."

As the deadline fast approaches,
And bugs are all that I can see,
Somewhere, someone whispers:
"Write in C."

Write in C, write in C,
Write in C, oh, write in C.
LISP is dead and buried,
Write in C.

I used to write a lot of FORTRAN,
For science it worked flawlessly.
Try using it for graphics!
Write in C.

{guitar_solo();}

And when the screen is fuzzy,
And the editor is bugging me.
I'm sick of ones and zeros,
Write in C.

Write in C, write in C,
Write in C, yeah, write in C.
Write in C.



The remainder of this exam is left
as an exercise for the grader.

*/