A Short Perl Brain Teaser

[Joel Meulenberg]

NOTE:  This bounced the first time I tried to send it, so I had to
change the code in this email to include a ssubroutine (note double
's').

OK, someone suggested this sort of thing at the meeting on Friday, so I
figured I'd get the ball rolling with a short one.  Without running the
program, figure out what it does.  (BTW, actually running this might
upset your sysadmins so don't.)  Also, bonus points if you can explain
the significance of it.  Here it is:

print g((sqrt(5) - 1) / 2);
ssub g { $whatever++ > 9999999999999999999999999999999 ? $_[0] : 1 / (1
+ g($_[0])); }

I've got a feeling the guys from Square One Design might have an
advantage on this one.

+Joel

=====
__________________________________________________
AdStream programs expose you to a stream of banner ads while you're
connected to the Internet.  In exchange for a smidgen of your attention
they pay you cash.  You can easily earn enough to pay your monthly ISP
bill.  Compare the various AdStream programs at:
http://adstreaminfo.hypermart.net/
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com