The Quiz
This Month: A is for APL
So you think you know programming languages? Challenge yourself
with this month’s puzzle. Answer next month.
Below is a simple acrostic. On the left you’ll
find 6 examples
of programming languages. Write the first letter of the name of
the language in the box at the
right. When you’re done, the right column will spell the name of
a seventh language. See how far you can get before you start
searching.
| | Process Class Creator; |
| | Begin |
| | While true do begin |
| | Activate New Consumer(Time); |
| | Hold(Uniform(5, 15, 1)); |
| | End While; |
| | End of Creator; |
|
|
| | <Any T, Any U> T first((T,U) tuple) { |
| | (T t, U u) = tuple; |
| | return t; |
| | } |
|
|
| | PROC null.farm(CHAN OF ADDR.TASK.STREAM from.farm, |
| | CHAN OF ADDR.RESULT.STREAM to.farm ) |
| | PAR |
| | from.farm ? CASE no.more.task.packets |
| | to.farm ! no.more.result.packets |
| | : |
|
|
| | LET start() = VALOF |
| | $( FOR i = 1 TO 5 DO writef("%n! = %i4*n", i, fact(i)) |
| | RESULTIS 0 |
| | $) |
| | AND fact(n) = n=0 -> 1, n*fact(n-1) |
|
|
| | PROCEDURE speak*( VAR bird : Birds.Bird ); |
| | BEGIN |
| | WITH bird : Cuckoos.Cuckoo DO |
| | bird.sound := "Cuckoo!"; |
| | | bird : Ducks.Duck DO |
| | bird.sound := "Quack!"; |
| | ELSE bird.sound := "Tweet!"; |
| | END; |
| | END setSound; |
|
|
| | HAI |
| | CAN HAS STDIO? |
| | IM IN YR LOOP UPPIN YR NUM TIL BOTHSAEM NUM AN 10 |
| | VISIBLE SUM OF NUM AN 1 |
| | IM OUTTA YR LOOP |
| | KTHXBYE |
|
|
Answer to Last Month’s Quiz
42
