in reply to Cheese
I never wanted to be a cheese coder! I wanted to be a lumberjack....
The really amazing thing is probably this page.#!/usr/perl/bin use Quantum::Superposition; my $shop =cheese_shop->new; my $customer = cheese_shop->new; if ( $customer->esuriant(bazouki) && $customer->terpsichorean(love) ){ if ( $shop->stock('red Leicester') ) { push $customer{shopping_cart}, 'red Leicester'); } else { if ( $shop->stock('Caerphilly') ) { push $customer{shopping_cart}, 'Caephilly'; } else { # about this point I got bored with the idea if ( $shop->stock(any('Bel Paese','Red Windsor','Stilton','Ementh +al','Gruyere','Norweigan Jarlsburg','Lipta','Lancashire','White Stilt +on','Danish Brew','Double Goucester','Cheshire','Dorset Bluveny','Bri +e, Roquefort','Pol le Veq','Port Salut','Savoy Aire','Saint Paulin',' +Carrier de lest','Bres Bleu','Bruson','Camenbert','Gouda','Edam','Cas +e Ness','Smoked Austrian','Wensleydale','Gorgonzola','I can't believe + how many cheeses Monty Python know about','Parmesan','Mozarella','Pa +per Cramer','Danish Bimbo','Toe Cheese','Czech sheep's milk','Venezue +lan Beaver Cheese','Cheddar','Illchester, the most popular cheese rou +nd here','Limburger'))) { print "Congratulations, you have discovered the hidden flaw in th +is program!" && die "Horribly"; } else { kill('owner'); }}}}
____________________
Jeremy
I didn't believe in evil until I dated it.
|
---|
Replies are listed 'Best First'. | |
---|---|
(jeffa) Re: Re: Cheese
by jeffa (Bishop) on Dec 06, 2000 at 21:39 UTC |
In Section
Seekers of Perl Wisdom