home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume3 / xmases < prev    next >
Encoding:
Internet Message Format  |  1989-02-03  |  45.8 KB
  1. Path: xanth!mcnc!gatech!mandrill!hal!ncoast!allbery
  2. From: rsk@mace.cc.purdue.edu (Rich Kulawiec)
  3. Newsgroups: comp.sources.misc
  4. Subject: v03i076: Just for fun (something which once appeared on the net)
  5. Message-ID: <8807101545.AA21634@mace.cc.purdue.edu>
  6. Date: 10 Jul 88 15:45:48 GMT
  7. Sender: allbery@ncoast.UUCP
  8. Reply-To: rsk@mace.cc.purdue.edu (Rich Kulawiec)
  9. Lines: 2008
  10. Approved: allbery@ncoast.UUCP
  11.  
  12. Posting-number: Volume 3, Issue 76
  13. Submitted-by: "Rich Kulawiec" <rsk@mace.cc.purdue.edu>
  14. Archive-name: xmases
  15.  
  16. [Only half a year late...  ;-)  ++bsa]
  17.  
  18. I found this while doing some housecleaning in my account, and thought
  19. it was marginally interesting enough to send along to you.
  20.  
  21. ---Rsk
  22.  
  23. From: ded@aplvax.UUCP
  24. Newsgroups: net.misc
  25. Subject: Merry Christmas Programs
  26. Organization: JHU/Applied Physics Lab, Laurel, MD
  27.  
  28.  
  29.  
  30. Well, here it is: the long awaited list of "Merry Christmas" programs.  
  31. If you are a crawled-out-from-under-a-rock sort of person and don't 
  32. know what's going on here, then you should read the following sentence:
  33. I don't know what's going on here either.  For some reason, I wanted
  34. to collect a group of programs which print the phrase "Merry Christmas"
  35. 15 times.  If you can figure out why I wanted to do this, please let 
  36. me know.
  37.  
  38. Thanks alot to all the nice folks who inundated me with mail.  Some of 
  39. the submissions made extremely clever use of editors and utility languages
  40. (I'm particularly fond of the UNIX shell script by Ben Hyde).  A few errors
  41. probably crept in due to transmission errors and my editing, and for that
  42. I apologize (because you're probably gonna be swamped by a horde of
  43. prepubescent fault finders).
  44.  
  45. Several of you requested that I (1) send you personal copies of the results,
  46. (2) send you only the more interesting examples, or (3) send you a report
  47. contrasting and comparing the various syntaxes.  I lost all your names.
  48.  
  49. If you sent me a submission and it wasn't included, then it either duplicated
  50. a previous entry or never arrived.  I deleted many comments to save space. 
  51. In retrospect, that was probably a mistake.
  52.                         --Don Davis
  53. ==========================================================================
  54.  
  55. /* 6502 assembly */
  56.  
  57. START    LDX #$0F
  58. LOOP1    LDY #$10
  59. LOOP2    LDA MCDATA,Y
  60.     JSR $FDF0    (CHAROUT or something like that)
  61.     DEY
  62.     BPL LOOP2
  63.     DEX
  64.     BPL LOOP1
  65.     RTS
  66.  
  67. MCDATA    ASC "
  68.  
  69.             ~ Kenn Frankel
  70.  
  71.             ...!sdcsvax!sdccs6!ix192
  72.  
  73. ==========================================================================
  74.  
  75. /* Ada version */
  76.  
  77.     with text_io; use text_io;
  78.     program print_merry_christmas is
  79.  
  80.     begin
  81.         for i in 1..15 loop
  82.             put("Merry Christmas"); new_line;
  83.         end loop;
  84.     end print_merry_Christmas;
  85.  
  86. I tested the program using the SuperSoft/Maranatha Ada compiler.
  87.    -- Dave Norris
  88.  
  89. ==========================================================================
  90.  
  91. /*  Ada  */
  92.  
  93. /*  This program is merely an ordinary loop.  It was developed by    */
  94. /*  Rob Pearce of JHU/APL. Oh yes; Rob is English.                    */
  95.  
  96.     1   with text_io; use text_io;
  97.     2
  98.     3   procedure number_a is
  99.     4
  100.     5     i_max:constant integer:=15;
  101.     6     type i_type is range 1..i_max;
  102.     7
  103.     8     package i_type_io is new integer_io(num=>i_type);
  104.     9
  105.    10   begin  -- number_a
  106.    11     for i in i_type loop
  107.    12       i_type_io.put(item=>i,
  108.    13                     width=>2);
  109.    14       put("  " &
  110.    15           "God save the Queen");
  111.    16       new_line;
  112.    17     end loop;
  113.    18   end number_a;
  114.  
  115. ==========================================================================
  116.  
  117. /* Ada */
  118.  
  119. -- This program counts to 15, but does so  via  three  "concurrently
  120. -- executing"  tasks.   The  output has been modified to be a single
  121. -- character instead of the full  "Merry  Christmas"  message.   The
  122. -- first  task  prints,  sequentially,  0..4.  The second prints, in
  123. -- turn, 5..9; and the third sequentially prints A..E.
  124. -- 
  125. -- If we had used the full "Merry Christmas" line,  then  the  three
  126. -- concurrent  tasks would have (almost certainly) interleaved their
  127. -- respective character strings, and one would have not been able to
  128. -- read any of the messages!
  129. -- 
  130. -- The program was developed by Rob Pearce of JHU/APL, and  was  run
  131. -- on a validated Ada system, the NY University, Ada/ED. The machine
  132. -- was a VAX-11/750 under typical loading. (Note the times;  they're
  133. -- about  the  same  on an empty machine, too!) The listing has been
  134. -- edited to remove the "uninteresting" lines and the  #$^&  control
  135. -- characters.
  136. --                    Mars Gralia
  137. --                    11/11/8
  138.  
  139. NYU ANSI-Ada/ED 1.1(11-Apr-83)            FRI  11 NOV 83  09:27:31   PAGE     1
  140.  
  141.     1   with text_io; use text_io;
  142.     2
  143.     3   procedure number_f is
  144.     4
  145.     5     task A;
  146.     6     task B;
  147.     7     task C;
  148.     8
  149.     9
  150.    10     task body A is
  151.    11
  152.    12     begin  -- A
  153.    13       for ch in character range '0'..'4' loop
  154.    14         put(ch);
  155.    15       end loop;
  156.    16     end A;
  157.    17
  158.    18
  159.    19     task body B is
  160.    20
  161.    21     begin  -- B
  162.    22       for ch in character range '5'..'9' loop
  163.    23         put(ch);
  164.    24       end loop;
  165.    25     end B;
  166.    26
  167.    27
  168.    28     task body C is
  169.    29
  170.    30     begin  -- C
  171.    31       for ch in character range 'A'..'E' loop
  172.    32         put(ch);
  173.    33       end loop;
  174.    34     end C;
  175.    35
  176.    36
  177.    37   begin  -- number_f
  178.    38     null;
  179.    39   end number_f;
  180.  
  181.   No translation errors detected
  182.   Translation time: 69 seconds
  183.  
  184.  
  185. NYU ANSI-Ada/ED 1.1(11-Apr-83)            FRI  11 NOV 83  10:34:05   PAGE     1
  186.  
  187.   Binding time: 3.3 seconds
  188.  
  189.   Begin Ada execution
  190.  
  191. 5A06B127C38D94E
  192.  
  193.   Execution complete
  194.   Execution time: 51 seconds
  195.   I-code statements executed: 97
  196.  
  197. ==========================================================================
  198.  
  199. /* Algol-60 */
  200.  
  201. begin comment Algol-60 version.  "Print" is system defined;
  202. integer i;
  203.  
  204. for i := 1 step 1 until 15 do Print("Merry Christmas")
  205.  
  206. end
  207.  
  208.                   --  chip elliott     ...decvax!dartvax!chip
  209.  
  210. ==========================================================================
  211.  
  212. /* Algol-68 */
  213.  
  214.     BEGIN
  215.     TO 15
  216.         DO
  217.         print(("Merry Christmas",newline))
  218.         OD
  219.     END
  220.  
  221.       -- Andrew Klossner   (decvax!tektronix!tekecs!andrew)  [UUCP]
  222.                    (andrew.tektronix@rand-relay)     [ARPA]
  223.  
  224.  
  225. ==========================================================================
  226.  
  227. /* APL */
  228. __
  229. \/ PROG ; S
  230.      ___                    __
  231. [1]  ! ! <- (15, pS) p S <- 'Merry Christmas'   \/
  232.      ---
  233.  
  234. Here's an APL version.  Since APL uses more than the ASCII character set,
  235. I had to fake it some.  The triangle is the greek character 'del' (an
  236. upside-down delta), the first symbol on line [1] is a 'quad', a
  237. rectangular block, the '<-' is a left arrow, and the lower-case 'p'
  238. is the greek character 'rho'.  Have fun.
  239.  
  240.                     ^-^ Bruce ^-^
  241.  
  242. ==========================================================================
  243.  
  244. /* APL */
  245.  
  246.     15 15 rho 'Merry Christmas'
  247.  
  248. (rho is the greek letter of that name, the reshape operator in APL)
  249.  
  250. That may not count, since it's more like an expression than a
  251. program, but it will do what you asked for.  I guess you could make
  252. it a program if you wanted, as follows:
  253.  
  254.     del merry
  255.     [1] 15 15 rho 'Merry Christmas'
  256.     del
  257.  
  258. (del is a little upside-down triangle)
  259.  
  260.                     Joe Ziegler
  261.                     ...ihnp4!pegasus!lzmi!ziegler
  262.  
  263. ==========================================================================
  264.  
  265. /* APL */
  266.  
  267.     Here is an APL Merry Christmas. Since APL uses a different chracter set,
  268. I will use the following identifiers for non-ascii chracters:
  269.     RHO - greek letter rho
  270.     BOX - the rectangle or window character
  271.     ASGN - the back-arrow assignment character
  272.     TRI - upside-down triangle
  273.  
  274. TRI merry ; mesg
  275. BOX ASGN (15,RHO mesg)RHO mesg ASGN "Merry Christmas"
  276. TRI
  277.  
  278.             ---From some unknown person on the other side of uucp 
  279.  
  280. ==========================================================================
  281. /* AWK */
  282.     awk 'BEGIN {for (i=1;i<=15;i++) print "Merry Xmas"}' /dev/null
  283.  
  284.             From: seismo!mcvax!steven (Steven Pemberton)
  285. ==========================================================================
  286.  
  287. /* AWK */
  288. (note that it wants some standard input):
  289.     
  290. BEGIN { for (i = 0; i < 15; i++) {
  291.     printf "Merry Christmas\n"
  292.     }   
  293. }   
  294.     
  295.             From: David Chase <rbbb@rice>
  296.                 
  297. ==========================================================================
  298.  
  299. /* B */
  300. (not the predecessor of "C", by the way).
  301.  
  302.     HOW'TO MERRY'CHRISTMAS:
  303.     FOR i IN {1..15}:
  304.         WRITE 'Merry Christmas' /
  305.  
  306. The string quote in B is used like the underscore in "C".
  307. HOW'TO introduces a procedure declaration.
  308. Indentation is used for grouping statements.
  309. The slash is used in WRITE-commands to indicate a newline.
  310. Actually, this definition should be followed by a call:
  311.  
  312.     MERRY'CHRISTMAS
  313.  
  314. You could also write the body of the procedure instead of the call,
  315. and then would have no need for the definition ("B" has no clear
  316. notion of what a program is; usually it's a group of procedures
  317. and functions living together in a workspace).
  318.  
  319. --
  320. Guido van Rossum, "B Group",
  321. Centre for Mathematics and Computer Science, (CWI, formerly MC), Amsterdam
  322. {philabs,decvax}!mcvax!guido
  323.  
  324. ==========================================================================
  325.  
  326. /* Applesoft BASIC */
  327.  
  328. 10 FOR I = 1 TO 10 : PRINT "MERRY CHRISTMAS" : NEXT I
  329.  
  330.             ---From some unknown person on the other side of uucp 
  331.  
  332. ==========================================================================
  333.     
  334. /* Basic-Plus (DEC Basic on RSTS/E) */
  335.     
  336.         10    ! Merry Christmas program &
  337.             ! Written by David Kaufman for Usenet survey
  338.     
  339.         20 For I = 1 to 15 \ &
  340.             Print "Merry Christmas" \ &
  341.             Next I
  342.     
  343.         30 End     ! Optional, but helps reloading command
  344.     
  345.         Merry Christmas!
  346.             David Kaufman
  347.             ...decvax!yale-comix!kaufman
  348.  
  349. ==========================================================================
  350.  
  351. /* BASIC */
  352.  
  353. 1000 i=0
  354. 1010 if i=15 then goto 1050
  355. 1020 print 'Merry Christmas'
  356. 1030 i = i+1
  357. 1040 goto 1010
  358. 1050 end
  359.  
  360.                         That's All
  361.                         Dave Wargo
  362.                         UCSD
  363.  
  364. ==========================================================================
  365.  
  366. /* bc */
  367.  
  368. bc<<!
  369. for(i=19^83;i<=19^83+14;i++) "Merry Christmas
  370. "
  371. !
  372.                     --unknown hacker
  373.  
  374. ==========================================================================
  375.  
  376. /* BCPL */
  377.  
  378.         // Cambridge IBM implementation
  379.         get "libhdr"
  380.         let start(parm) be $(
  381.             selectoutput(findoutput("sysprint"))
  382.             for i := 1 to 15 do writef("Merry Christmas*N")
  383.         $)  
  384.  
  385.                     These languages courtesy of:
  386.                         Pavel Curtis, Cornell
  387.                         Mike Caplinger, Rice
  388.  
  389. ==========================================================================
  390.  
  391. /* BCPL */
  392.  
  393. GET "libhdr"
  394.  
  395. LET start() BE
  396.     FOR index = 1 TO 15 DO writes("Merry Christmas*n")
  397.  
  398.  
  399.             From: jd@ukc.UUCP
  400.             Organization: Computing Lab. Kent University, England
  401.  
  402. ==========================================================================
  403.  
  404. /* Bliss-11 */
  405.  
  406. module Christmas =
  407. begin \Main\
  408.  
  409. external MsgScan;
  410. local i;
  411.  
  412. incr i from 1 to 15 do
  413.   MsgScan( uplit asciz "Merry Christmas%C" );
  414.  
  415. end \Main\
  416. eludom
  417.  
  418.                 From: leiby
  419.  
  420. ==========================================================================
  421.  
  422. /* C */
  423.  
  424. main()
  425. {
  426.     int i;
  427.  
  428.     for (i=0; i<15; i++)
  429.         printf("Merry Christmas\n");
  430. }
  431.                         by Don Davis
  432.  
  433. ==========================================================================
  434.  
  435. /* CDC 6000-type assembly */
  436.  
  437.         IDENT   MERRY
  438.         ENTRY   MERRY
  439.         SYSCOM  B1
  440.  
  441. OUTPUT  FILEB   OBUF,101B,FET=8
  442. OBUF    BSS     101B
  443.  
  444. COUNT   DATA    14
  445.  
  446.  
  447. MERRY   SB1     1
  448.  
  449. MERRY1  WRITEC  OUTPUT,(=C*MERRY CHRISTMAS*)
  450.  
  451.         SA1     COUNT
  452.         SX6     X1-1
  453.         SA6     COUNT
  454.         NZ      X1,MERRY1
  455.  
  456.         WRITER  OUTPUT,R
  457.         ENDRUN
  458.         END     MERRY
  459.  
  460. Jeff Lee
  461. CSNet:    Jeff @ GATech        ARPA:    Jeff.GATech @ CSNet-Relay
  462. uucp:    ...!{sb1,allegra,ut-ngp}!gatech!jeff ...!duke!mcnc!msdc!gatech!jeff
  463.  
  464. ==========================================================================
  465.  
  466. /* CGOL */
  467. ( an extensible language that translates into MACLISP)
  468.  
  469.     for i in 1 to 15 do print "Merry Christmas"<ESC>
  470.  
  471. The value of this expression is nil, if you really want a list of them,
  472.  
  473.     for i in 1 to 15 collect "Merry Christmas"<ESC>
  474.  
  475.                 Garret Swart
  476.  
  477. ==========================================================================
  478.  
  479. /* CLI */
  480. To print Merry Christmas 15 times under Data General's CLI's (command line
  481. interpreters):
  482.  
  483.     RDOS, RTOS, DOS:    MESSAGE Merry Christmas(,,,,,,,,,,,,,,,)
  484.     AOS, AOS/VS:        write Merry Christmas(,,,,,,,,,,,,,,,)
  485.  
  486. (for your information, the parenthesis indicate that the command will be
  487. executed multiple times, with possible subsitutions, so "write a(b,c) d" would
  488. write two lines:  "abd" and "acd".  Since nothing is substituted, the same
  489. command is executed 15 times.  BTW, write can be abreviated to "wr", "wri", ...)
  490.  
  491.                 Michael Meissner
  492.                 Data General Corporation
  493.                 ...{allegra, decvax!ittvax, rocky2}!datagen!mrm
  494.  
  495. ==========================================================================
  496.  
  497. /* CLU */
  498.  
  499. start_up = proc ()
  500.     po: stream := stream$primary_output ()
  501.     for i: int in int$from_to (1, 15) do
  502.         stream$putl (po, "Merry Christmas")
  503.     end
  504.     end start_up
  505.  
  506.                 Happy Hacking!
  507.  
  508.                 Russell Finn
  509.                 {decvax, eagle, mit-eddie}!mit-vax!russ
  510.                 RUSS%MIT-VAX@MIT-ML
  511.  
  512. ==========================================================================
  513.  
  514. /* CLU */
  515. (Liskov, August 1977 CACM)
  516.  
  517. start_up = proc ()
  518.    for i: int in int$from_to(1, 15) do
  519.       stream$putl(stream$primary_output(), "Merry Christmas")
  520.    end
  521. end start_up
  522.  
  523.             Original-From:     J. Dean Brock <brock@unc>
  524.  
  525. ==========================================================================
  526.  
  527. /* COBOL */
  528.  
  529.        IDENTIFICATION DIVISION. 
  530.        PROGRAM-ID. XMASPRINT.
  531.        ENVIRONMENT DIVISION.
  532.        CONFIGURATION SECTION.
  533.        SOURCE-COMPUTER. UNIVAC-1110.
  534.        OBJECT-COMPUTER. UNIVAC-1110.
  535.        DATA DIVISION.
  536.        PROCEDURE DIVISION.  
  537.        0000-MAIN.
  538.            PERFORM 10-PRINT 15 TIMES.
  539.            STOP RUN.
  540.        10-PRINT.  DISPLAY 'Merry Christmas' UPON PRINTER.
  541.  
  542.         From: seismo!decvax!sdcsvax!ittvax!dcdwest!noscvax!kemp
  543.  
  544. ==========================================================================
  545.  
  546. /* Cprolog */
  547.  
  548. /* Write Merry Christmas 15 times in 4.1bsd Cprolog 
  549.  *  To execute, get into prolog, then issue the commands:
  550.  *  |?- ['xmas.p'].
  551.  *  |?- xmas.
  552.  */
  553.  
  554. xmas :- name(Text,"Merry Christmas") , writeline(Text,15).
  555. writeline(_,0).
  556. writeline(Text,N) :- write(Text) , nl , M is N - 1 , writeline(Text,M).
  557.  
  558.         From: seismo!decvax!microsof!ubc-vision!mprvaxa!tbray
  559.                 
  560. ==========================================================================
  561.  
  562. /* dBASEII */
  563.  
  564.     store 0 to number
  565.     do while number < 15
  566.         ? "Merry Christmas"
  567.         store 1+number to number
  568.     enddo
  569.     release number
  570.  
  571.                 From: seismo!philabs!sbcs!BNL!jeffy
  572.                     --Jeff M.
  573.  
  574. ==========================================================================
  575.  
  576. /* dBASE II */
  577.  
  578. SET TALK OFF
  579. STORE 0 TO counter
  580. DO WHILE counter < 15
  581.     @ counter, 0 SAY "Merry Christmas"
  582.     STORE counter + 1 TO counter
  583. ENDDO
  584. RETURN
  585.  
  586.                 From: mike@uokvax.UUCP
  587.  
  588. ==========================================================================
  589.  
  590. /* 'csh' command version */
  591.  
  592. repeat 15 echo Merry Christmas
  593.  
  594.             Original-From:     Bruce Israel <israel@umcp-cs>
  595.  
  596. ==========================================================================
  597. /*  DCL (VAX/VMS shell) */
  598.                 
  599.         $ i = 1
  600.         $ loop:
  601.         $ if i.gt.15 then goto done
  602.         $ write sys$output "Merry Christmas"
  603.         $ i = i + 1
  604.         $ goto loop
  605.         $ done:
  606.         $ exit
  607.                 
  608.         From: David Chase <rbbb@rice>
  609.  
  610. ==========================================================================
  611.                 
  612. /* DCL */
  613. And (as I noticed that Un*x shell scripts were on your list, and in
  614. the interest of equal time) here it is in DCL (Digital Command
  615. Language, a CLI which runs on many DEC machines -- I cut my teeth on
  616. VAX/VMS):
  617.  
  618. $ i = 1
  619. $ loop:
  620. $ write sys$output "Merry Christmas"
  621. $ i = i + 1
  622. $ if i .le. 15 then goto loop
  623. $ exit
  624.  
  625.                 Happy Hacking!
  626.  
  627.                 Russell Finn
  628.                 {decvax, eagle, mit-eddie}!mit-vax!russ
  629.                 RUSS%MIT-VAX@MIT-ML
  630.  
  631. ==========================================================================
  632.  
  633. /* DDL */
  634.  
  635. Here is a Merry Christmas program written in DDL. Yes DDL, the Dungeon
  636. Definition Language from UCLA. I have included a makefile
  637. in case you have never seen this stuff before.
  638.  
  639. *********************** xmas.ddl *************************
  640. VAR count;
  641. (count) = 1;
  642.  
  643. Greetings =    ( WHILE ( $lt @count 15 ) :
  644.         ( $setg count ( $plus 1 @count ))
  645.         ( $say "Merry Christmas\n")
  646.     )
  647.     ($spec 3 0 0 0 0);
  648.  
  649. START = ($sdem Greetings);
  650.  
  651. *********************** makefile *************************
  652.  
  653. xmas:
  654.     /usr/src/games/ddl/ddlcomp tiny < tiny.ddl > ddlcomp.out
  655.  
  656. To run it type the following
  657.  
  658.     `/usr/games/lib/ddlrun xmas'
  659.  
  660.  
  661.                 - Joel
  662.  
  663. ==========================================================================
  664.  
  665. /* ed */
  666.  
  667.     ed - /etc/passwd<<!
  668.     1,15g/./s/.*/Merry Christmas/p
  669.     q
  670.     !
  671.  
  672.         From: seismo!mcvax!steven (Steven Pemberton)
  673.  
  674. ==========================================================================
  675. /* ed  */
  676. (UNIX 'standard' line editor):
  677.  
  678.         a   
  679.         Merry Christmas
  680.         .   
  681.         t.  
  682.         t.  
  683.         t.  
  684.         t.  
  685.         t.  
  686.         t.  
  687.         t.  
  688.         t.  
  689.         t.  
  690.         t.  
  691.         t.  
  692.         t.  
  693.         t.  
  694.         t.  
  695.         t.  
  696.         1,$p
  697.  
  698.                     These languages courtesy of:
  699.                         Pavel Curtis, Cornell
  700.                         Mike Caplinger, Rice
  701.  
  702. ==========================================================================
  703.  
  704. /* Concurrent-Euclid */
  705. ------------------
  706. var xmas :
  707.     module
  708.     include '%IO'
  709.     initially
  710.     imports (var IO)
  711.     begin
  712.         var i : ShortInt := 0
  713.         loop
  714.         IO.PutString ('Merry Christmas$N$E')
  715.         i := i + 1
  716.         exit when i = 15
  717.         end loop
  718.     end
  719. end module {xmas}
  720. ------------------
  721.  
  722. Stephen Perelgut    Computer Systems Research Group    University of Toronto
  723.         Usenet:    {linus, ihnp4, allegra, decvax, floyd}!utcsrgv!perelgut
  724.  
  725. ==========================================================================
  726.  
  727. /* Concurrent Euclid */
  728.  
  729. var MerryChristmas :
  730.     module
  731.  
  732.     include '%IO'
  733.  
  734.     initially
  735.  
  736.     imports (var IO)
  737.     begin
  738.         var i: SignedInt := 15
  739.  
  740.         loop
  741.         IO.PutString('Merry Christmas$N$E')
  742.         i := i - 1
  743.         exit when i = 0
  744.         end loop
  745.     end
  746.  
  747. end module
  748.  
  749.                 From utcsrgv!utai!rayan 
  750.  
  751. ==========================================================================
  752.  
  753. /* EYE */
  754.  
  755. Since you said "the more obscure the better", here is the program written in
  756. EYE, a language which was implemented by Kuck & Associates, Inc. of 
  757. Champaign, Illinois as an implementation language for writing a large piece
  758. of software.
  759.  
  760. program yule_tidings is
  761.  
  762. constant number_of_times_to_print_merry_christmas : integer = 15;
  763.  
  764. begin( yule_tidings )
  765.  
  766.     for i:integer = 1 to number_of_times_to_print_merry_christmas
  767.     loop( print_merry_christmas )
  768.  
  769.         put( 'Merry Christmas' | );
  770.  
  771.         endloop( print_merry_christmas );
  772.  
  773.     end( yule_tidings );
  774.                     Jim Davies
  775.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  776.  
  777. ==========================================================================
  778.   
  779. /*  FRED  */
  780. (a text editor)
  781.  
  782. u15 jm Merry Christmas
  783.  
  784.                 From: decvax!watmath!ljdickey
  785.  
  786. ==========================================================================
  787.  
  788. /* Forth */
  789.  
  790. (Forth)
  791. 15 0 DO ."Merry Christmas" CR LOOP
  792.  
  793.                     Adam Reed
  794.                     AT&T Information Systems
  795.                     ihnp4!hogpc!pegasus!lzmi!adam
  796.  
  797. ==========================================================================
  798.  
  799. /* Forth */
  800.  
  801. : greetings cr 0 do ." Merry Christmas" cr loop ;
  802.  
  803. 15 greetings
  804.  
  805.  
  806.                 Dave Seaman
  807.                 ..!pur-ee!pucc-k:ags
  808.  
  809. ==========================================================================
  810.  
  811. /* Fortran? */
  812.  
  813. If you want an obscure solution, try the following Fortran
  814. on a VAX.  It works on BSD4.1, BSD4.1c and System V.
  815.  
  816.     integer table(12)
  817.     data table/248514560, -552542885, 4847, -83763968
  818.      1, 323331, 1542717440, 1260, 1292108988
  819.      2, 2037543525, 1919435552, 1836348265, 684897/
  820.     call out(table)
  821.     end
  822.  
  823.     subroutine out(code)
  824.     external code
  825.     call code
  826.     return
  827.     end
  828. -- 
  829.  
  830. Griff Smith    AT&T Bell Laboratories, Murray Hill
  831. Phone:        (201) 582-7736
  832. Internet:    ggs@ulysses.uucp
  833. UUCP:        ulysses!ggs
  834.  
  835. ==========================================================================
  836.  
  837. /* Fortran 77 */
  838.  
  839.       program yule
  840.       parameter (nwish = 15)
  841. c
  842.       do 1 i = 1,nwish
  843.     1   print*,'Merry Christmas'
  844. c
  845.       end
  846.                     Jim Davies
  847.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  848.  
  849. ==========================================================================
  850.  
  851. /* FP */
  852. (Backus' Functional Programming Language):
  853. (Using the syntax of Scott Baden's UNIX implementation)
  854.  
  855.         ; MC prints the string 'Merry Christmas' 15 times when applied
  856.         ;                       to any argument and returns T.
  857.         {MC     %T @ out @ &%"Merry Christmas\n" @ iota @ %15}
  858.  
  859.                     These languages courtesy of:
  860.                         Pavel Curtis, Cornell
  861.                         Mike Caplinger, Rice
  862.  
  863. ==========================================================================
  864.  
  865. /* GPSS */ 
  866.  
  867.     SIMULATE
  868.     GENERATE    1
  869.     TERMINATE    1
  870.     START        15,,1
  871.     REPORT
  872.     TEXT        MERRY CHRISTMAS
  873.     END
  874.  
  875.             ---From some unknown person on the other side of uucp 
  876.  
  877. ==========================================================================
  878.  
  879. /* IBM 370 assembly */
  880.  
  881. How about this one (IBM 370 assembler running VM/VPS - a local hack at Boston
  882. University):
  883.  
  884. xmas      csect
  885.           stm     r14,r12,12(r13)
  886.           lr      r12,r15
  887.           using   xmas,r12
  888.           st      r13,savearea+4
  889.           la      r13,savearea
  890.  
  891. *
  892. *         Initialize counter
  893. *
  894.  
  895. xmasloop  ds      0h
  896.           la      r2,15                   Print it 15 times
  897.           qio     rb=xmasrb               Print "Merry Christmas"
  898.           bct     r2,xmasloop
  899.  
  900.           l       r13,4(,r13)             Restore registers
  901.           lm      r14,r12,12(r13)
  902.           br      r14                     Return to OS
  903.  
  904. xmasrb    qiorb   ddname=sysprint,bufad=xmasmsg,lrecl=l'xmasmsg
  905. xmasmsg   dc      c' Merry Christmas'     Don't forget carriage control
  906.           end     xmas
  907.  
  908.  
  909. If that isn't obscure, I don't know what is.
  910.  
  911.             ---Sender: reg@ima!vaxine.UUCP
  912.  
  913. ==========================================================================
  914.  
  915. /* Icon */
  916.  
  917.     # write "Merry Christmas" 15 times on standard output
  918.     procedure main()
  919.         every 1 to 15 do write("Merry Christmas")
  920.     end
  921.  
  922. "1 to 15" is a generator which produces the sequence 1..15;
  923. "every X do Y" evaluates Y for each value of X;
  924. write() writes a line of text.
  925.  
  926.                     Randy Hudson
  927.                     decvax!cca!ima!inmet!rgh
  928.  
  929. ==========================================================================
  930.  
  931. /* Icon (Version 5) */
  932.  
  933. procedure main()
  934.     every write(|"Merry Christmas") \ 15
  935. end
  936.  
  937. The more canonical solution is:
  938.  
  939. procedure main()
  940.     every 1 to 15 do
  941.         write("Merry Christmas")
  942. end
  943.  
  944. but obviously isn't as devious.
  945.  
  946.                     ---Bill Mitchell
  947.  
  948. ==========================================================================
  949.  
  950. /* Imp80 */
  951.  
  952. %begin
  953.     %integer index
  954.  
  955.     %for index = 1, 1, 15 %cycle
  956.         Print String("Merry Christmas")
  957.         New Line
  958.     %repeat
  959. %end %of %program
  960.  
  961.                 From: jd@ukc.UUCP
  962.         Organization: Computing Lab. Kent University, England
  963.  
  964. ==========================================================================
  965.  
  966. /* The Kent Recursive Calculator */
  967.  
  968.     there you are, here is the merry christmas program in my favourite 
  969.     language, krc (The Kent Recursive Calculator),
  970.     a teaching and research applicative language used at the University of
  971.     Kent, Canterbury, UK.
  972.     the syntax is annexed and requests for the full formal description
  973.     of the language (syntax+semantics) will be considered.
  974.     the program is:
  975.  
  976.     print 0 = []
  977.     print n = "Merry Christmas":nl:print (n-1)
  978.  
  979.     and the command to run it (in the interpreter) is
  980.  
  981.     print 15!
  982.  
  983.     silvio lemos meira
  984.     computing lab
  985.     university of kent at canterbury
  986.     ...vax135!ukc!srlm
  987.  
  988.     SYNTAX...
  989.  
  990. (note: space is limited, but the syntax is available upon request;
  991.     just send me a stamped, self-addressed antelope -- Don Davis)
  992.  
  993. ==========================================================================
  994.  
  995. /* LISP */
  996.  
  997.    (do ((i 0 (add1 i)))
  998.        ((eq i 15))
  999.        (msg "Merry Christmas" N))
  1000.  
  1001.  
  1002.                 Dave Seaman
  1003.                 ..!pur-ee!pucc-k:ags
  1004.  
  1005. ==========================================================================
  1006.  
  1007. /* Scheme or Maclisp or Franz Lisp */
  1008. ;
  1009. (do ((i 0 (+ i 1)))
  1010.     ((= i 15))
  1011.     (princ "Merry Christmas")
  1012.     (terpri)   ;new line
  1013. )
  1014.  
  1015.                   --  chip elliott     ...decvax!dartvax!chip
  1016.  
  1017. ==========================================================================
  1018.  
  1019. /* MTS Lisp */
  1020.  
  1021.   (repeat '( print '"Merry Christmas") 15)    # MTS Lisp.
  1022.                  Bruce Wilcox, Intermetrics Inc.
  1023.  
  1024. ==========================================================================
  1025.  
  1026. /* LSRHS Logo */
  1027. (from the Usenix82 tape):
  1028.  
  1029. to greet :n
  1030. 10  if :n >1 then greet (:n - 1)
  1031. 20  print [Merry Christmas]
  1032. end
  1033. greet 15
  1034.  
  1035.         From: seismo!decvax!trw-unix!trwspp!urban (Mike Urban)
  1036.  
  1037. ==========================================================================
  1038.  
  1039. /* Logo */
  1040.  
  1041.         repeat 15 [print "Merry\ Christmas]
  1042.  
  1043.                     These languages courtesy of:
  1044.                         Pavel Curtis, Cornell
  1045.                         Mike Caplinger, Rice
  1046.  
  1047. ==========================================================================
  1048.  
  1049. /* LSE */
  1050.  
  1051. Here's a language you probably have never heard of... LSE (Langue
  1052. Symbolique d'Instruction, or Symbolic Language of Instruction).  I
  1053. used it on some ancient machine in France (of French make) and it is
  1054. roughly parallel to BASIC translated to French.  It sure isn't my
  1055. favorite, but it's interesting...
  1056.  
  1057. 10 pour i = 1 jusqua 15 faire 20
  1058. 20 afficher "Merry Christmas"
  1059.  
  1060.  
  1061.                 Philippe Lacroute
  1062.                 ..decvax!sun!cochon
  1063.  
  1064. ==========================================================================
  1065.  
  1066. /* m4 */
  1067.  
  1068. define(`merry',`ifelse(eval($1),eval(0),,Merry Christmas
  1069. `merry'(eval($1-1)))')dnl
  1070. merry(15)dnl
  1071.  
  1072.  
  1073.  
  1074.                     Joseph L. Wood, III
  1075.                     AT&T Information Systems
  1076.                     Laboratories, Holmdel
  1077.                     (201) 834-3759
  1078.                     ariel!jlw
  1079.  
  1080. ==========================================================================
  1081.  
  1082. /* MACSYMA */
  1083.  
  1084.         doit() := for i:1 thru 15 do print("Merry Christmas")$
  1085.  
  1086.                     These languages courtesy of:
  1087.                         Pavel Curtis, Cornell
  1088.                         Mike Caplinger, Rice
  1089.  
  1090. ==========================================================================
  1091.  
  1092. /* make */
  1093.  
  1094. If you use the following as the description file for 'make', it
  1095. will satisfy your requirement.  Make can be considered a language
  1096. interpreter, so what the heck.
  1097.  
  1098. ---------------------- cut ------- here -----------------------------------
  1099. .SILENT:
  1100.  
  1101. foo_._bar_ :                    # some name unlikely to already exist
  1102.     echo merry christmas
  1103.     echo merry christmas
  1104.     echo merry christmas
  1105.     echo merry christmas
  1106.     echo merry christmas
  1107.     echo merry christmas
  1108.     echo merry christmas
  1109.     echo merry christmas
  1110.     echo merry christmas
  1111.     echo merry christmas
  1112.     echo merry christmas
  1113.     echo merry christmas
  1114.     echo merry christmas
  1115.     echo merry christmas
  1116.     echo merry christmas
  1117.  
  1118.             ---From some unknown person on the other side of uucp 
  1119.  
  1120. ==========================================================================
  1121.  
  1122. /* A Maryland Text Editor procedure */
  1123. ---------------------------------
  1124. let a=0 
  1125. next:test a<15  
  1126. escape  
  1127. dis 'Merry Christmas'
  1128. let a=a+1
  1129. jump next
  1130.  
  1131. From: seismo!decvax!sdcsvax!ittvax!dcdwest!noscvax!kemp
  1132.  
  1133. ==========================================================================
  1134.  
  1135. /* Mesa 5.0 */
  1136.  
  1137. -- Here it is in Mesa 5.0; good luck trying to find an Alto or a D-machine
  1138. -- on which to run it.
  1139.  
  1140. DIRECTORY
  1141.         IODefs: FROM "iodefs" USING [WriteLine];
  1142.  
  1143. MerryChristmas: PROGRAM IMPORTS IODefs =
  1144.  
  1145.         BEGIN
  1146.         i: INTEGER; -- loop index
  1147.         FOR i IN [0..15) DO -- print the message 15 times
  1148.                 WriteLine["Merry Christmas"]; -- this is the message, and the
  1149.                                               -- procedure WriteLine[] provides
  1150.                                               -- the carriage return
  1151.                 ENDLOOP; -- go back and do it again
  1152.  
  1153.         END. -- all done
  1154.  
  1155.                 -- Patrick Olmstead
  1156.  
  1157.                 -- ...ucbvax!menlo70!sytek!olmstead
  1158.                 -- ...decvax!sytek!olmstead (when decvax answers the phone)
  1159.  
  1160. ==========================================================================
  1161.  
  1162. /* MIX */
  1163.  
  1164. *
  1165. *  THIS PROGRAM WILL PRINT "MERRY CHRISTMAS" 15 TIMES 
  1166. *
  1167. LP         EQU  18        CARD PUNCH DEVICE
  1168. *
  1169. MSG        ALF   MERR        DON'T FORGET THE BLANK SPACE FOR CCTL
  1170.            ALF  Y CHR
  1171.            ALF  ISTMA
  1172.            ALF  S
  1173.            ORIG *+20
  1174. *
  1175. START      EQU  *
  1176.            ENT1 0        INITIALIZE COUNTER
  1177. *
  1178. LOOP       EQU  *
  1179.            OUT  MSG(LP)        WRITE IT OUT
  1180.            JBUS *(LP)        WAIT ON I/O
  1181.            INC1 1        R1 := R1 + 1
  1182.            CMP1 =15=        IF (R1 = 15)
  1183.            JE   DONE           THEN DONE
  1184.            JMP  LOOP           ELSE DO IT AGAIN
  1185. *
  1186. DONE       EQU  *
  1187.            HLT            AND A HAPPY NEW YEAR
  1188.            END  START
  1189.  
  1190.  
  1191. -- 
  1192. Theodore Hope
  1193. School of ICS, Georgia Tech, Atlanta GA
  1194. CSNet:    Hope @ GaTech        ARPA:    Hope.GaTech @ CSNet-Relay
  1195. uucp:    ...!{akgua,allegra,rlgvax,sb1,unmvax,ut-ngp,ut-sally}!gatech!Hope
  1196.  
  1197. ==========================================================================
  1198.  
  1199. /* MLisp */
  1200. (Gosling's Emacs editor extension language):
  1201.  
  1202.         (provide-prefix-argument 15 (insert-string "Merry Christmas\n"))
  1203.  
  1204.                     These languages courtesy of:
  1205.                         Pavel Curtis, Cornell
  1206.                         Mike Caplinger, Rice
  1207.  
  1208. ==========================================================================
  1209.  
  1210. /* Modula-2 */
  1211.  
  1212. Module cheers;
  1213. ODULEcheers;
  1214. FROM InOut IMPORT WriteLn, WriteString;
  1215. VAR
  1216.   i    :CARDINAL;
  1217. BEGIN
  1218.   FOR i := 1 TO 15 DO
  1219.     WriteString('Merry Christmas');
  1220.     WriteLn;
  1221.   END;    (*FOR I*)
  1222. END cheers.
  1223.  
  1224.             From: seismo!decvax!decwrl!amd70!fortune!dsd!mush
  1225.  
  1226. ==========================================================================
  1227.  
  1228. /* MTS editor */
  1229.  
  1230. * And here is a weird one written in the MTS editor
  1231. * 
  1232. * the @verify@-lnum says to print the new line without linenumber
  1233. * '*' refers the current line number.
  1234. *
  1235.  
  1236. insert "merry christmas" @verify@-lnum
  1237. copy * to * copies=14 @verify@-lnum
  1238.  
  1239.             ---From: seismo!cmcl2!floyd!ihnp4!alberta!stephen
  1240.  
  1241. ==========================================================================
  1242.  
  1243. /* Mystery Language */
  1244. (Author did not include name and I don't recognize it)
  1245.  
  1246. MODULE Greetings;
  1247. FROM Terminal IMPORT WriteString, WriteLn;
  1248.  
  1249. VAR i: CARDINAL;
  1250.  
  1251. BEGIN
  1252.   FOR i:=1 TO 15 DO
  1253.     WriteString("Merry Christmas");
  1254.     WriteLn;
  1255.   END; (*for*)
  1256. END Greetings.
  1257.  
  1258.         From: seismo!decvax!decwrl!amd70!dual!proper!opje
  1259.  
  1260. ==========================================================================
  1261.  
  1262. /* Newspeak */
  1263.  
  1264. (defproc merry-xmas () (values)
  1265.     (do ((i 1 (1+ i)))
  1266.         (print "Merry Christmas")
  1267.         (exit-do-if (= i 15))))
  1268.      
  1269.         From: John Foderaro (on an h19-u) <ucbvax!ucbkim:jkf>
  1270.  
  1271. ==========================================================================
  1272.  
  1273. /* nroff */
  1274.  
  1275. .nr i 15+1 1
  1276. .de MC
  1277. .if \\n-i \{ .tl ''Merry Christmas''
  1278. .    MC \}
  1279. ..
  1280. .MC
  1281.  
  1282.  
  1283.             R. Drew Davis  pyuxbb!drew
  1284.  
  1285. ==========================================================================
  1286.  
  1287. /* OOPC */
  1288. (an object-oriented preprocessor for C):
  1289.  
  1290. main()
  1291. {
  1292.     int i;
  1293.  
  1294.     for (i=0; i<15; i++)
  1295.         printf("Merry Christmas\n");
  1296. }
  1297.  
  1298. If it looks a lot like C, that's because it is.  The object-oriented features
  1299. are only used when you're dealing with objects (you can use C wherever
  1300. you want).
  1301.  
  1302.  
  1303.     Karl Freburger
  1304.     decvax!ittvax!freb
  1305.  
  1306. ==========================================================================
  1307.  
  1308. /* OPS5 */
  1309.  
  1310. ; A program to print Merry Christmas 15 times, in OPS5.
  1311. ; OPS5 is a simple AI/expert systems language for writing
  1312. ; production systems in.
  1313. (literalize counter value)    ; Analogous to a record declaration.
  1314.                 ; The program:    A single production.
  1315. (p print-one-merry-christmas            ; if
  1316.     (counter ^value {<c> > 0})        ;    counter.value > 0
  1317.     -->                    ; then
  1318.     (write (crlf) Merry Christmas)        ;      write("Merry christmas");
  1319.     (modify 1 ^value (compute <c> - 1)))    ;      counter.value -:= 1;
  1320. (make counter ^value 15)             ; Create a counter with value=15
  1321. (watch 0)                      ; No tracing.
  1322. (run)                        ; Go for it.
  1323.  
  1324. ;                                Ben Hyde, Intermetrics Inc.
  1325.  
  1326. ==========================================================================
  1327.  
  1328. /* Pascal */
  1329.  
  1330. program yuletidings (output);
  1331. const
  1332.     numberofwishes = 15;
  1333. var
  1334.     i : integer;
  1335.  
  1336. begin
  1337.     for i := 1 to numberofwishes do
  1338.         writeln('Merry Christmas');
  1339.     end.
  1340.                     Jim Davies
  1341.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  1342.  
  1343. ==========================================================================
  1344.  
  1345. /* PDP-11 assembler */
  1346. (under RT-11)
  1347.  
  1348.     .TITLE    MERRY XMAS
  1349.     .IDENT    /R M/
  1350.     .NLIST    BEX
  1351.     .DSABL    GBL
  1352.     .ENABL    LC
  1353.  
  1354.  
  1355.  
  1356.     .MACLL    .PRINT, .EXIT
  1357.  
  1358.  
  1359.  
  1360. MERRY::
  1361.     MOV    #15.,R4            ;set up the print count
  1362.     .PRINT    #MSG1            ;print the message
  1363.     SOB    R4,MERRY        ;loop until finished
  1364.  
  1365.     .EXIT                ;return to RT-11
  1366.  
  1367. MSG1:    .ASCIZ    /Merry Christmas !!!/
  1368.     .EVEN
  1369.  
  1370.     .END    MERRY
  1371.  
  1372.                 From: seismo!utah-cs!pwa-b!miorelli
  1373.  
  1374. ==========================================================================
  1375.  
  1376. /* PDP-11 assembler */
  1377. (under UNIX)
  1378.  
  1379.         mov    $15.,r4
  1380.     1:
  1381.         mov    $1,r0
  1382.         sys    write; 2f; 3f-2f
  1383.         bcs    1f
  1384.         sob    r4,1b
  1385.         clr    r0
  1386.     1:
  1387.         sys    exit
  1388.     .data
  1389.     2:    <Merry Christmas\n\0>
  1390.     3:
  1391.  
  1392. Jim McKie    Mathematisch Centrum, Amsterdam        ....mcvax!jim
  1393.  
  1394. ==========================================================================
  1395.  
  1396. /*  PL/I  version.  ANS PL/I, subset G.   */
  1397.  
  1398. merry: proc options(main);
  1399.  
  1400. dcl i fixed binary;
  1401.  
  1402. do i = 1 to 15;
  1403.  
  1404.      put skip edit('Merry Christmas') (a);
  1405.  
  1406. end;
  1407.  
  1408. end merry;
  1409.  
  1410.                  --  chip elliott     ...decvax!dartvax!chip
  1411.  
  1412. ==========================================================================
  1413.  
  1414. /* PL/1 */
  1415.  
  1416. START: PROC OPTIONS(MAIN);
  1417. DCL I FIXED BINARY(15);  /* LONG FORM; SAME AS DCL I; */
  1418. DO I = 1 TO 15;
  1419.     PUT EDIT ("Merry Christmas");
  1420. END;
  1421. END START;
  1422.                                                         julie    
  1423.                 seismo!philabs!jah
  1424.  
  1425. ==========================================================================
  1426.  
  1427. /* PL/1 */
  1428.  
  1429. yule: proc options(main);
  1430.  
  1431. %numwish = '15';
  1432.  
  1433. do i = 1,numwish;
  1434.    put skip list('Merry Christmas');
  1435.    end;
  1436.  
  1437. end yule;
  1438.  
  1439.                     Jim Davies
  1440.                     {pur-ee parsec}!uiucdcs!uiuccsb!davies
  1441.  
  1442. ==========================================================================
  1443.  
  1444. /* Pr1me assembly */
  1445.  
  1446.          SEG
  1447.          RLIT
  1448.          SUBR   PRINT
  1449.  
  1450.          LINK
  1451. PRINT    ECB    START
  1452.  
  1453.          DYNM   COUNT
  1454.          PROC
  1455.  
  1456.  
  1457. START    LDA    =15
  1458.          STA    COUNT
  1459.  
  1460. START1   LDA    COUNT
  1461.          BEQ    DONE
  1462.          S1A
  1463.          STA    COUNT
  1464.  
  1465.          CALL   TNOU
  1466.          AP     =C'Merry Christmas',S
  1467.          AP     =15,SL
  1468.  
  1469.          JMP    START1
  1470.  
  1471. DONE     PRTN
  1472.          END
  1473.  
  1474.  
  1475. Jeff Lee
  1476. CSNet:    Jeff @ GATech        ARPA:    Jeff.GATech @ CSNet-Relay
  1477. uucp:    ...!{sb1,allegra,ut-ngp}!gatech!jeff ...!duke!mcnc!msdc!gatech!jeff
  1478.  
  1479. ==========================================================================
  1480.  
  1481. /* Prolog */
  1482.  
  1483.     hello(0) :- !.
  1484.     hello(N) :- M is N - 1, print("Merry Christmas"), hello(M), !.
  1485.     hello(15)!
  1486.  
  1487. (I'm just learning prolog, so my apologies if the style is wrong.)
  1488.  
  1489.                             Aloke Prabhakar
  1490.                             prabhaka@BERKELEY
  1491.                             ucbvax!prabhaka
  1492.  
  1493. ==========================================================================
  1494.  
  1495. /* Prolog */ 
  1496.  
  1497. wmc:- countmc(15).
  1498. countmc(0).
  1499. countmc(Count):- write('Merry Christmas'), nl, Ncnt is Count-1, countmc(Ncnt).
  1500.  
  1501.  
  1502.                     --Peter Borgwardt, U. of Minnesota
  1503.                       borgward.umn-cs@rand-relay
  1504.  
  1505. ==========================================================================
  1506.  
  1507. /* REVE */
  1508. (Equational-programming/term-rewriting system):
  1509.  
  1510. (Has no I/O.  This will look like
  1511.             merry_christmas(merry_christmas(...))
  1512. Also, to avoid having to specify 15 as the fifteenth successor of zero,
  1513. we define addition and multiplication.)
  1514.  
  1515.         (x + 0)     == x
  1516.         (x + s(y))  == (s(x) + y)
  1517.         (x * 0)     == 0
  1518.         (x * s(y))  == (x + (x * y))
  1519.         mc(s(0))    == merry_christmas
  1520.         mc(s(s(x))) == merry_christmas(mc(s(x)))
  1521.         
  1522.         mc( (s(s(s(0))) * s(s(s(s(s(0)))))) )
  1523.  
  1524.                     These languages courtesy of:
  1525.                         Pavel Curtis, Cornell
  1526.                         Mike Caplinger, Rice
  1527.  
  1528. ==========================================================================
  1529.  
  1530. /* *roff */
  1531.  
  1532. Well, the most natural choice for Merry Christmas is of course:
  1533.     V/N/T/DIT/roff.
  1534.  
  1535. This will print it on the standard output, It will give you an extra blank line,
  1536. sorry about that.
  1537.  
  1538.     .fp 1 MC
  1539.     .pl 1
  1540.     .nf
  1541.     .nr l 0 +1
  1542.     .de mm
  1543.     .if \\n+l=15 .rm mm
  1544.     Merry Christmas
  1545.     .mm
  1546.     ..
  1547.     .mm
  1548.  
  1549. The font MC is of course your local ``Merry Christmas font''; all the characters
  1550. are built from christmas trees.
  1551. If you don't want the extra newline you can use the error output:
  1552.  
  1553.     .de mm
  1554.     .if \\nk=14 .ab Merry Christmas
  1555.     .nr k +1
  1556.     .tm Merry Christmas
  1557.     .mm
  1558.     ..
  1559.     .mm
  1560.  
  1561. Of course, you loose the nice look of the MC font.
  1562.  
  1563. There are of course about a dozen other ways to use troff for this.
  1564.  
  1565.                 -- jaap akkerhuis (mcvax!jaap)
  1566.  
  1567. ==========================================================================
  1568.  
  1569. /* QC */
  1570.  
  1571. /*
  1572.  * This program is written in the language QC (quick & clean), a
  1573.  * descendant of QD (quick & dirty). Both languages were written by 
  1574.  * Chris Grey for 370/ systems runing MTS (a user-friendly operating
  1575.  * system).
  1576.  */
  1577. proc main():
  1578. int I;
  1579. extern printf;
  1580.   for I from 1 upto 15 do
  1581.         printf("Merry Christmas")
  1582.   od
  1583. corp
  1584.             ---From: seismo!cmcl2!floyd!ihnp4!alberta!stephen
  1585.  
  1586. ==========================================================================
  1587.  
  1588. /* sed script */
  1589.  
  1590. echo 'Mery Chistma' |
  1591. sed '
  1592.     s/\(..\)\(.\)\(....\)\(.\)\(.\)\(...\)/\1\2\2\3\2\4\5\6\5/
  1593.     h;G;G
  1594.     s/$/\
  1595. /
  1596.     s/.*/&&&&&/
  1597. '
  1598.             From: seismo!decvax!ucbvax!reed!phillips
  1599.  
  1600. ==========================================================================
  1601.  
  1602. /* SETL */
  1603. (Doesn't use any of the interesting features of the language):
  1604.  
  1605.         definef main();
  1606.             (1 <= forall i <= 15) print('Merry Christmas');
  1607.         end main;.
  1608.  
  1609.                     These languages courtesy of:
  1610.                         Pavel Curtis, Cornell
  1611.                         Mike Caplinger, Rice
  1612.  
  1613. ==========================================================================
  1614.  
  1615. /* XEROX sigma-7 assembler */
  1616. (running under CP-V)
  1617.  
  1618.     SYSTEM SIG7
  1619.     SYSTEM BPM
  1620.     REF M:LO
  1621. BUFR    TEXT 'MERRY CHRISTMAS'
  1622. START    LI,4 15
  1623.     M:WRITE M:LO,(BUF,BUFR),(SIZE,15)
  1624.     BDR,4 START+1
  1625.     M:EXIT
  1626.     END START
  1627.  
  1628. or, you can avoid loading the BPM macro's by doing your own FPT
  1629.  
  1630.     SYSTEM SIG7
  1631.     REF M:LO
  1632. BUFR    TEXT 'MERRY CHRISTMAS'
  1633. FPT    GEN,8,24 X'11',M:LO
  1634.     GEN,4,28 3,X'10'
  1635.     DATA BUFR
  1636.     DATA 15
  1637. START    LI,4 15
  1638.     CAL1,1 FPT
  1639.     BDR,4 START
  1640.     CAL1,9 1
  1641.     END START
  1642.  
  1643.                     Bob McQueer
  1644.                     druxt!mcq
  1645.  
  1646. ==========================================================================
  1647.  
  1648. /* Smalltalk-80 */
  1649.  
  1650.     output <- WriteStream on: (String new: 10).
  1651.     1 to 15 do: [
  1652.         output nextPutAll: 'Merry Christmas'.
  1653.         output cr
  1654.     ].
  1655.     output contents.
  1656.  
  1657. Select this from the screen and hit 'printIt', and out comes the message.
  1658.  
  1659.             From: seismo!decvax!ittvax!freb
  1660.  
  1661. ==========================================================================
  1662.  
  1663. /* Smalltalk-80 */
  1664.  
  1665.         merryChristmas: aStream
  1666.             "Prints 'Merry Christmas' on aStream 15 times."
  1667.             
  1668.             15 timesRepeat:
  1669.                 [aStream
  1670.                     nextPutAll: 'Merry Christmas';
  1671.                     cr
  1672.                 ]
  1673.                     These languages courtesy of:
  1674.                         Pavel Curtis, Cornell
  1675.                         Mike Caplinger, Rice
  1676.  
  1677. ==========================================================================
  1678.  
  1679. /* Snobol-3 */
  1680. (Snobol-4??  What's that?  We use Snobol-3 here.)
  1681.  
  1682. * S.D.S. TSS SNOBOL-3
  1683.           N = 1
  1684. LOOP      LOUT = 'MERRY CHRISTMAS'
  1685.           N = .LT(N,15) N + 1                        /S(LOOP)F(.EXIT)
  1686.  
  1687.             From: seismo!rochester!rocksvax!sunybcs!colonel
  1688.  
  1689. ==========================================================================
  1690.  
  1691. /* Snobol 4 */
  1692.  
  1693. * Snobol 4 version.  Not very elegant!
  1694. *
  1695. i = 1
  1696.  
  1697. a: output = 'Merry Christmas'
  1698.    i = i + 1
  1699.    le(i,15)    :s(a)
  1700.  
  1701.                   --  chip elliott     ...decvax!dartvax!chip
  1702.  
  1703. ==========================================================================
  1704.  
  1705. /* SPEED editor */
  1706.  
  1707. To print Merry Christmas 15 times using the SPEED editor from Data General
  1708. (SPEED is a TECO-like editor, $ will represent an escape character, ^D will
  1709. represent a control-D):
  1710.  
  1711. 15<iMerry Christmas
  1712. $>$#t$#k$h^D
  1713.                 Michael Meissner
  1714.                 Data General Corporation
  1715.                 ...{allegra, decvax!ittvax, rocky2}!datagen!mrm
  1716.  
  1717. ==========================================================================
  1718.  
  1719. /* SPL/3000 */
  1720.  
  1721. $Control Uslinit
  1722. Begin
  1723.  
  1724. Byte Array
  1725.    Msg (0:14) := "Merry Christmas";
  1726.  
  1727. Integer
  1728.    I;
  1729.  
  1730. Intrinsic
  1731.    Print, Terminate;
  1732.  
  1733. For I := 1 UNTIL 15 Do
  1734.    Print (Msg, -15, 0);        << 15 bytes, no CCTL >>
  1735.  
  1736. Terminate;
  1737.  
  1738. End.
  1739.  
  1740. From: seismo!harpo!ihnp4!clyde!akgua!emory!gatech!hope
  1741.  
  1742. ==========================================================================
  1743.  
  1744. /* Stage 2 */
  1745.  
  1746. #$#$0 (+-*/)
  1747. END#
  1748. $F0#
  1749. #
  1750. $#
  1751. $10$F7#
  1752. Merry Christmas$F15#
  1753. $F8#
  1754. ##
  1755. 15
  1756. END
  1757.  
  1758.             ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1759.  
  1760. ==========================================================================
  1761.  
  1762. /* Stoic */
  1763. 15 0 DO "Merry Christmas&15&" MSG LOOP
  1764.  
  1765.             ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1766.  
  1767. ==========================================================================
  1768.  
  1769. /* TECO */
  1770.  
  1771. 15<^AMerry Christmas
  1772. ^A>$$
  1773.  
  1774. (where '$' is an Escape, and ^A is a control-A)
  1775.  
  1776.         ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1777.  
  1778. =======================================
  1779.  
  1780. /* TECO */
  1781. (Text Editor COrrector)
  1782.  
  1783. 15<^AMerry Christmas
  1784. ^A>$$
  1785.  
  1786. note: ^A is a Control A
  1787.       $ is an escape character
  1788.  
  1789. And a Happy New Year,
  1790.  
  1791.  
  1792.                 Rob Spray
  1793.  
  1794.                 Software Designer
  1795.  
  1796.                 US Mail:  Computer*Thought Corporation
  1797.                       1721 West Plano Parkway, Suite 125
  1798.                       Plano TX 75075
  1799.                 BellTel:  214-424-3511
  1800.                 ARPAnet:  ROB.CT@RAND-RELAY
  1801.                 uucp:     ... decvax!cornell!ctvax!rob
  1802.  
  1803. ==========================================================================
  1804.     
  1805. /* TECO */
  1806.  
  1807.     :IGMerry Christmas
  1808. $                !* Put string in Q-register G !
  1809.     15<:GG>$$        !* 15 Times, print it out !
  1810.  
  1811. The dollar signs represent ESCapes.
  1812.  
  1813.                 Merry Christmas!
  1814.                     David Kaufman
  1815.                     ...decvax!yale-comix!kaufman
  1816.     
  1817.  
  1818. ==========================================================================
  1819.  
  1820. /* TeX */
  1821. (Knuth's text formatting language, assuming presence of Plain.TeX macros):
  1822.  
  1823.         \def\mc#1{\ifnum #1>0 Merry Christmas\par
  1824.                   {\count0=#1\advance\count0 by-1\mc\count0}\fi}
  1825.         \mc{15}
  1826.  
  1827.                     These languages courtesy of:
  1828.                         Pavel Curtis, Cornell
  1829.                         Mike Caplinger, Rice
  1830.  
  1831. ==========================================================================
  1832.  
  1833. /* TRAC */
  1834.  
  1835. #(ds,Merry-Christmas,(#(eq,arg,0,,(#(PS,Merry Christmas(
  1836. ))#(Merry-Christmas,#(su,arg,1))))))'
  1837. #(ss,Merry-Christmas,arg)'
  1838. #(Merry-Christmas,15)'
  1839.  
  1840. Note: "TRAC" is a trademark of Rockford Research, Inc.
  1841.         ---Written and Contributed by Tom Almy, Tektronix, Inc.
  1842.  
  1843. ==========================================================================
  1844.  
  1845. /* TRAC */
  1846.  
  1847.         #(ds,merry,(#(eq,count,0,,((Merry Christmas
  1848.         )#(cl,merry,#(su,count,1))))))'
  1849.  
  1850.         #(ss,merry,count)'
  1851.  
  1852.         #(cl,merry,15)'
  1853.  
  1854. The TRAC language is a text- and macro-processing language reminiscent
  1855. of LISP.  The first command defines a function, the second marks "count"
  1856. as a dummy argument, the third calls the function.  The printing is done
  1857. by the command interpreter.
  1858.  
  1859.                    Andy Behrens
  1860.                    decvax!dartvax!andyb
  1861.  
  1862. ==========================================================================
  1863.  
  1864. /* TROFF */
  1865.  
  1866.         .de MC
  1867.         .nf
  1868.         .if \\$1>0 \{\
  1869.         Merry Christmas
  1870.         .nr x \\$1
  1871.         .nr x -1
  1872.         .MC \\nx \}
  1873.         ..
  1874.         .MC 15
  1875.  
  1876.                     These languages courtesy of:
  1877.                         Pavel Curtis, Cornell
  1878.                         Mike Caplinger, Rice
  1879.  
  1880. ==========================================================================
  1881.  
  1882. /* Turing */
  1883.  
  1884. ------
  1885. for : 1 .. 15
  1886.     put "Merry Christmas"
  1887. end for
  1888. ------
  1889.  
  1890. Stephen Perelgut    Computer Systems Research Group    University of Toronto
  1891.         Usenet:    {linus, ihnp4, allegra, decvax, floyd}!utcsrgv!perelgut
  1892.  
  1893. ==========================================================================
  1894.  
  1895. /* UL */
  1896.  
  1897. Here's one you probably wouldn't expect to get. It is Model204 User Language
  1898. (UL is a query/programming language for the M204 database system that
  1899. runs on IBM mainframes).
  1900.  
  1901. BEGIN
  1902. %A IF FIXED DP 0
  1903. 1. FOR %A FROM 1 TO 15
  1904.    PRINT 'MERRY CHRISTMAS'
  1905. 2. END
  1906.  
  1907. That's it!
  1908.                 Mickey Levine
  1909.                 decvax!cca!mickey
  1910.  
  1911. ==========================================================================
  1912.  
  1913. /* UNIX shell script */
  1914.  
  1915. echo "Merry Christmas" | sed -e 's/./Merry Christmas%/g' | tr % '\012'
  1916.  
  1917.                          Ben Hyde Intermetrics Inc.
  1918.  
  1919. ==========================================================================
  1920.  
  1921. /* Unix shell script (Bourne) */
  1922.  
  1923. COUNT=0
  1924. while test $COUNT -lt 15
  1925. do
  1926.     echo "Merry Christmas."
  1927.     COUNT=`expr $COUNT + 1`
  1928. done
  1929.  
  1930.             Ta!
  1931.  
  1932.             Dave Ihnat
  1933.             ihuxx!ignatz
  1934.  
  1935. ==========================================================================
  1936.  
  1937. /* VALGOL */
  1938.  
  1939. I didn't look closely, but I didn't see a submission in VALGOL.  Here is an
  1940. attempt, but I can't vouch for its correctness, since I don't know any valley
  1941. girls.  After all, I live in Washington, not California, and we're a little
  1942. behind the times up here.
  1943.  
  1944. Like, gag me with a Merry Christmas!
  1945. No Way! Merry Christmas!
  1946. Like, so totally Merry Christmas!
  1947. Barf me out with a Merry Christmas!
  1948. So gross! Merry Christmas!
  1949.  
  1950.  
  1951. I realize this is only five times, not fifteen, but you can multiprocess in
  1952. VALGOL.  Just get three valley girls and execute the above on each one.
  1953.  
  1954.             From: seismo!cornell!uw-beaver!ssc-vax!fluke!witters
  1955.  
  1956. ==========================================================================
  1957.  
  1958. /* VAX MACRO */
  1959. (VMS flavour...snicker)
  1960.  
  1961. ;
  1962. text:    .ascii    "Merry Christmas"    ; output text
  1963.     .byte    13,10            ; carriage control
  1964.     tlen     = . - text        ; text length
  1965. tty:    .ascid    "TT:"            ; logical name of current terminal
  1966. chan:    .blkw    1            ; storage for IO channel number
  1967.  
  1968.     .entry xmas,^M<r10>
  1969.     $ASSIGN_S    devnam=tty,chan=chan        ;get channel to terminal
  1970.     movl        #1,r10                ;initialize loop
  1971. loop:    $QIOW_S        chan=chan,func=#IO$_WRITELBLK,- ;dump the message
  1972.             P1=text,P2=#tlen
  1973.     aobleq        #15,r10,loop            ;15 times
  1974.     ret
  1975.     .end xmas
  1976.  
  1977.         From: seismo!decvax!microsof!ubc-vision!mprvaxa!tbray
  1978.  
  1979. ==========================================================================
  1980.  
  1981. /* Xerox Data Systems Metasymbol Assembler */    
  1982.  
  1983.          system       sig9
  1984.          system       bpm
  1985.          csect        1
  1986. message  text         'Merry Christmas'
  1987.          ref          m:lo
  1988. start    equ,0        $
  1989.          li,7         15
  1990. loop     equ,0        $
  1991.          m:write      m:lo,(buf,message),(size,15)
  1992.          bdr,7        loop
  1993.          m:exit      
  1994.          end          start
  1995.   
  1996.  
  1997.                                    Jon Bertoni
  1998.  
  1999. ==========================================================================
  2000.  
  2001. /*  XPL version.  (Defined in book "A Compiler Generator".)  */
  2002.  
  2003. dcl i fixed;
  2004.  
  2005. do i = 1 to 15;
  2006.  
  2007.      output = 'Merry Christmas';
  2008.  
  2009. end;
  2010.  
  2011.           --  chip elliott     ...decvax!dartvax!chip
  2012.  
  2013. ==========================================================================
  2014. -- 
  2015.  
  2016.                     Don Davis
  2017.                     JHU/APL
  2018.                 ...decvax!harpo!seismo!umcp-cs!aplvax!ded
  2019.                 ...rlgvax!cvl!umcp-cs!aplvax!ded
  2020.