Math JAPH!

#!/usr/bin/perl -l

*{'\''}=sub{$_=q#_$,'3'tilps+esrever}rhc{pam+tnirp;~58188043000~q=+_$;
,2$,$)}4{d\()*.().0^(,s;))!,1001609521224866653113531199,q nis!qq(lave
(sba=_$#;eval reverse+split//;};&{'\''}
[download]

Note: I've noticed this code is only displaying the real output under FreeBSD.
I think is because, abs(sin(9911353113566684221259061001)); has a different
output on each OS.

BSD = 0.723462771893119
Win = 0.987064347716101
Linux = 9.91135311356669e+27
[download]

Comment on Math JAPH! Select or Download Code

Replies are listed 'Best First'.
Re: Math JAPH! by innominate (Beadle) on Dec 10, 2002 at 15:33 UTC
Good use of the eval and reverse operators. And yes, sin seems to be the culprit. This fix should be cross platform: `#!/usr/bin/perl -l {'\''}=sub{$_=q#_$,'3'tilps+esrever}rhc{pam+tnirp;~58188043000~q=+_$; ,2$,$)}4{d\().().0^(,s;))!911398177264327.!qq(lave (sba=_$#;eval reverse+split//;};&{'\''};` [download] It cuts out the sinusodal function, but it works! -inno	[reply] [d/l]
Re: Math JAPH! by dingus (Friar) on Dec 06, 2002 at 09:36 UTC
Glad you added the note. I couldn't figure this one out at all! Maybe you could post a less OS dependant version? Dingus `Enter any 47-digit prime number to continue.`	[reply]