Here is the challenge.

Write a function p that takes one argument $n, and returns an array of all of the primes up to and including $n.

Now there is a very short answer to this problem using the infamous RE from Abigail, namely:

Therefore I will add that the function must be clearly based on the Sieve of Eratosthenes. The sieve algorithm goes, "Form a list of integers. Knock out the evens other than 2. Knock out the multiples of 3. Knock out the multiples of 5. etc through the primes." For the purposes of this golf I will allow the following relaxations of the algorithm:sub p{ grep{(1x$_)!~/^(11+)\1+$/}2..pop }

- Any finite amount of special case logic is allowed as long as your general test for non-divisibility by most primes looks like the sieve.
- As long as the general pattern of the algorithm is
present, excess work is explicitly allowed. For instance
at the striking out stage, there is no need to
*only*strike out multiples of prime numbers.

To sweeten the bait, sometime later tomorrow I will post my best solution. If anyone had come without 5 strokes of that answer, the best entry gets a free PerlMonks t-shirt. (The unlikely event of a tie will be resolved by whoever got there first.) Entries that I can find a failing boundary case for will not count.

For bonus marks, and a second possible t-shirt, the same problem but without the relaxation on the sieve. That is in the elimination round you must only mark off multiples of primes, and you cannot have sufficient wasted operations to change the Big-O of the algorithm. (ie You can waste a constant factor of overhead. But you cannot, for instance, spend most of your running time marking off array elements that are out of bounds.) However I will let you assume that $n is above a fixed number. (I am not sure how people will tackle this, but sometimes it is convenient to make a special case out of 2.)

A final note. Most mathematicians say that the first prime is 2. However those who produce lists of primes like to say 1. I don't care whether your sequence starts with 2 or 1, either is acceptable.

**UPDATE**

Minor clarifications on the wording.

**UPDATE 2**

Masem said I should state an approximate time when I will
post my solutions. I will make it whenever I get a chance
after 5PM EST. That may be well after because I am likely
to be off doing other things.

**UPDATE 3**

Golfing closed. My solutions got trashed. Now who won?
Well on technicalities you can argue chipmunk for the
main problem and MeowChow for the bonus. But I think
all will agree looking at the answers that the winning
ideas were MeowChow for the main problem and tye for
the bonus. I think the only fair answer is to declare
3 winners. tye, chipmunk and MeowChow can contact
me with the desired size, color, and location to send
the shirts.

And an honorable mention goes to Arguile. OK, so he forgot to test whether pop populates $_ (it doesn't) but if that is what he can do after 6 weeks of Perl, I can only wonder what he will be like with a few more months under his belt...