Re: (Ab)Using substr
On Thursday, May 10, 2001, at 12:24 PM, Robin Houston wrote: On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote: #!/usr/bin/perl -w # how to (ab)use substr use strict; my $pi='3.14159210535152623346475240375062163750446240333543375062'; Well, it's more just taking advantage of the fact that most people don't know more than six decimal places of Pi :-) Well, Dave *did* say my $pi It's not the official one. Marcel -- We are Perl. Your table will be assimilated. Your waiter will adapt to service us. Surrender your beer. Resistance is futile. -- London.pm strategy aka embrace and extend aka mark and sweep
(Ab)Using substr
Mentioned this in passing to Piers and Leon last night and they seemed interested enough to justify posting it here. It's not mine :) #!/usr/bin/perl -w # how to (ab)use substr use strict; my $pi='3.14159210535152623346475240375062163750446240333543375062'; substr ($^X,0)= substr ($pi,-6);map{ substr ($^X,$.++,1)=chr( substr($pi,21,2)+ substr($pi,$_,2))}(12,28,-18,-6,-10,14);map{$^O=$x( substr ($pi,-5,2)); substr ($^O,sin(++$a/8)*32+ substr ($pi,-2)/2+1,1)=$_; substr ($^O,sin($a/4)*( substr ($pi,2,2))+ substr ($pi,-7,-5)-1,1)=$_;print$^O$/;eval($^X.('$b,'x3). substr ($pi,-3,1).'.'. substr ($pi,9,2));}(map{chr($_+ substr ($pi,21,2))}( substr ($pi,8)x3)=~/../g); For more discussion (including and explaination) see http://perlmonks.org/index.pl?node_id=77619. Dave... -- The information contained in this communication is confidential, is intended only for the use of the recipient named above, and may be legally privileged. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please re-send this communication to the sender and delete the original message or any copy of it from your computer system.
Re: (Ab)Using substr
On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote: #!/usr/bin/perl -w # how to (ab)use substr use strict; my $pi='3.14159210535152623346475240375062163750446240333543375062'; Well, it's more just taking advantage of the fact that most people don't know more than six decimal places of Pi :-) Actually it is a thing of great beauty. .robin. -- Flee to me, remote elf!
RE: (Ab)Using substr
From: Robin Houston [EMAIL PROTECTED] Sent: Thursday, May 10, 2001 11:25 AM On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote: #!/usr/bin/perl -w # how to (ab)use substr use strict; my $pi='3.14159210535152623346475240375062163750446240333543375062'; Well, it's more just taking advantage of the fact that most people don't know more than six decimal places of Pi :-) Yeah. That was pointed out on perlmonks. Actually it is a thing of great beauty. It is, isn't it. It was written by Stephen Jenkins, the same chap that wrote the camel code on the ThinkGeek tshirt http://www.thinkgeek.com/stuff/things/321a.html. He posts on Perlmonks under the name Erudil and _all_ of his posts are worth checking out. Dave... -- The information contained in this communication is confidential, is intended only for the use of the recipient named above, and may be legally privileged. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please re-send this communication to the sender and delete the original message or any copy of it from your computer system.
Re: (Ab)Using substr
On Thu, May 10, 2001 at 09:16:25AM +0100, Cross David - dcross wrote: Mentioned this in passing to Piers and Leon last night and they seemed interested enough to justify posting it here. It's not mine :) My god, that's gorgeous. I think I'm going to cry... dha -- David H. Adler - [EMAIL PROTECTED] - http://www.panix.com/~dha/ Perl can certainly be used as a first computer language, but it was really designed to be a *last* computer language. - Larry Wall