Quine??

Replies are listed 'Best First'.
(jeffa) Re: Quine?? by jeffa (Bishop) on Mar 08, 2002 at 14:34 UTC
If you are going to cheat, then why use open? ;) `@ARGV = $0; print while <>;` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]
Re: (jeffa) GOLF Re: Quine?? by gmax (Abbot) on Mar 08, 2002 at 14:48 UTC
And since we are at it, why not golfing it as well? :) `# 1 2 #2345678901234567890 @ARGV=$0;print for<>` [download] `_ _ _ _ (_\|\| \| \|(_\|>< _\|` [download]	[reply] [d/l] [select]
Re: Re: (jeffa) GOLF Re: Quine?? by ChOas (Curate) on Mar 08, 2002 at 14:51 UTC
`# 1 2 #2345678901234567890 @ARGV=$0;print<>` [download] Or... for unix: `# 1 2 #2345678901234567890 system cat,$0` [download] GreetZ!, ChOas print "profeth still\n" if /bird\|devil/;	[reply] [d/l] [select]
Re: Re: Re: (jeffa) GOLF Re: Quine?? by Juerd (Abbot) on Mar 08, 2002 at 22:03 UTC
Re: Re: Re: (jeffa) GOLF Re: Quine?? by myocom (Deacon) on Mar 08, 2002 at 21:52 UTC
Re: Quine?? by ChOas (Curate) on Mar 08, 2002 at 12:52 UTC
These links might be fun for Perl Quine fans: Link1 Link2 GreetZ!, ChOas print "profeth still\n" if /bird\|devil/;	[reply]
Re: Quine?? by Juerd (Abbot) on Mar 08, 2002 at 12:30 UTC
`perl -e'open(O,$0);while(<O>){print}'` [download] Sorry, it doesn't work ;) Yes, using `$0` in a quine is cheating. I wish you good luck creating a real one! 44696420796F7520732F2F2F65206F 7220756E7061636B3F202F6D736720 6D6521203A29202D2D204A75657264	[reply] [d/l]
Re: Re: Quine?? by cab (Beadle) on Mar 08, 2002 at 12:44 UTC
Yes, well if you save it as a .pl file and run it, then the output is different. I did mention, i'm running a fever did i? `Remember everything i'm telling you now and tell me Remember everythin +g i'm telling you now and what i just told you :)` [download] cab	[reply] [d/l]
Re: Re: Re: Quine?? by cab (Beadle) on Mar 08, 2002 at 13:58 UTC
If i could -- myself, i propably would right now. Just ignore my posts today. cab	[reply]