Complete.Org: Mailing Lists: Archives: discussion: June 1999:
[aclug-L] fun perl snippet 		Home

[aclug-L] fun perl snippet

[Top] [All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index] [Thread Index]
To: Kulua List <kulua-l@xxxxxxxxx>, ACLUG List <aclug-L@xxxxxxxxxxxx>
Subject: [aclug-L] fun perl snippet
From: Jeff <schaller@xxxxxxxxxxxxx>
Date: Thu, 17 Jun 1999 13:07:52 -0500 (CDT)
Reply-to: aclug-L@xxxxxxxxxxxx 
This got passed around at work yesterday:

sub prime { (1x shift) !~ /^(11+)\1+$/ }

-jeff
-- 
Positive, adj.: Mistaken at the top of one's voice.
                -- Ambrose Bierce, "The Devil's Dictionary"
[Prev in Thread] Current Thread [Next in Thread]
  • [aclug-L] fun perl snippet, Jeff <=