🚀 go-pugleaf

Randal L. Schwartz (merlyn@stonehenge.com) wrote:
: >>>>> "John" == John Viega <jtv2j@mamba.cs.virginia.edu> writes:

: John> People bitch about the readability of Perl non-stop.  In fact, I have
: John> heard the joke, "Perl, the only language you can uuencode, and not
: John> notice" twice this week around the department.

: OK, now which do you find most readable...

: 	$i = 1;
: 	while ($i <= 10) {
: 		print "I can count to $i\n";
: 		$i++;
: 	}

: 	for ($i = 1; $i <= 10; $i++) {
: 		print "I can count to $i\n";
: 	}

: 	foreach $i (1..10) {
: 		print "I can count to $i\n";
: 	}

: 	$i = 0;
: 	print "I can count to $i\n" while ++$i <= 10;

: 	print map "I can count to $_\n", 1..10;

: 	50 FOR I = 1 TO 10
: 	60 PRINT "I CAN COUNT TO ",I
: 	70 NEXT I


This one:

loop #OUT + "I can count to " + 1.upto!(10) + "\n"; end; 

Or, 

loop #OUT + "I can count anything: " + collection_class.elt!.str + "\n"; end;

Sather. 


http://www.icsi.berkeley.edu/~sather.