good chemistry is complicated,and a little bit messy -LW PerlMonks

### First try

by orbital (Scribe)
 on Mar 17, 2001 at 04:43 UTC Need Help??

```
@s=qw(-9 15 -8);\$t='\$s+=abs(';t();@a=\$s*\$#s+(\$s/\$#s-(\$#s*(\$#s+1)));
\$t='push(@a,\$a[\$#a]+';t();@s=qw(25 5 10);\$s=\$a[0];\$t='push @t,
(\$s+=';t();@s=@t;\$t='\$a.=chr(';t();@s=@a;\$t='print '."\$a(";t();
sub t{for(@s){eval(\$t."\$_)");}}
I saw someone have a spoiler section, and I liked it enough to add it here, comments suggestions for next time are all welcomed.

 ```@s=qw(-9 15 -8); #J in ASCII = 74 - 9 = 65 letter A \$t='\$s+=abs('; t(); @a=\$s*\$#s+(\$s/\$#s-(\$#s*(\$#s+1))); #Where we get 74 \$t='push(@a,\$a[\$#a]+'; # Get our array of JAPH in ASCII t(); @s=qw(25 5 10); #chr(74 + 25)=c .... get chr \$s=\$a[0]; \$t='push @t,(\$s+='; t(); @s=@t; # where we translate ASCII values of chr \$t='\$a.=chr('; # to a string, not necessary at all. t(); @s=@a; \$t='print '."\$a("; t(); sub t{ for (@s){ eval(\$t."\$_)");} } [download]```

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://65086]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2023-09-26 07:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?