[comp.sources.misc] v03i080: Re: v03i076: Just for fun

peter@sugar.UUCP (Peter da Silva) (07/13/88)

Posting-number: Volume 3, Issue 80
Submitted-by: "Peter da Silva" <peter@sugar.UUCP>
Archive-name: more-xmas

[Introducing the major motion picture:  THE CHRISTMAS THAT WOULDN'T DIE!  Now
showing at theaters near you!!!  ;-)  ++bsa]

Ratfor (from the book, with the DEC F4P Fortran):

	do(i=1,15) type *, 'Merry Christmas'
	end

Ratforth (AKA Fifth, a language I hacked up to make Forth less ugly):

	define christmas { 
		do(15,0) { 
			type(count("Merry Christmas"));
			CR;
		}
	}

This produces, by the way:

	: christmas 15 0 do " Merry Christmas" count type CR ;

AREXX:

	/* Say Merry Christmas 15 times */
	do i=1 to 15
		say 'Merry Christmas'
		end i
---
-- `-_-' Peter (have you hugged your wolf today?) da Silva.
--   U   Mail to ...!uunet!sugar!peter, flames to alt.dev.null.
-- "Running OS/2 on a '386 is like pulling your camper with an Indy car"