Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Re: TIMTOWTDI/golf - counting backwards

by jynx (Priest)
on Feb 16, 2002 at 19:30 UTC ( #145889=note: print w/ replies, xml ) Need Help??


in reply to Re: TIMTOWTDI/golf - counting backwards
in thread TIMTOWTDI/golf - counting backwards


In order to free up my scratchpad, here's my entry for the no \w characters portion of this contest. There are numeric operators, but no underscores (which was a trick unto itself). The invocation of the script is not counted towards the "no \w character limit", or at least i didn't count it...

Well, ok, the first version uses 4 letters ('e', 'v', 'a', and 'l') and the second version reuires a special invocation. And no, neither of them are remotely strict or warning compliant. But hey, it's the best i could do. i'd be interested in seeing other's attempts (should they choose to go insane and try this as well :)

enjoy,
jynx

# 1 # requires no special invocation, uses 'e','v','a','l' %!=('!'=>$|+@{[$"]},'@'=>$|+@{[$",$"]});($;{'!'})=$::{'"'}=~/\*.(.)/ ;$;{'^'}=$;{'#'}=$;{'!'};$;{'~'}=++$;{'^'};$;{'='}=++$;{'^'};$;{'(' }=++$;{'^'};$;{'!'}=($;{'*'}=++$;{'^'}).$;{'!'};$;{'*'}++;$;{'*'}++ ;$;{'='}.=++$;{'*'};($;{'@'})=$::{'"'}=~/\*..(.)/;$;{'&'}=$;{'@'};$; {'&'}++;$;{'&'}++;$;{'!'}.=++$;{'&'};($;{'*'})=$::{'@'}=~/\*(.)/;$; {'#'}=$;{'*'}.$;{'#'};($;{'&'})=$::{'$'}=~/\*...(.)/;$;{'@'}.=$;{'&' };$;{'%'}=$;{'$'}=++$;{'&'};$;{'('}=$;{'%'}.$;{'('};$;{'*'}=++$;{'&' };$;{'@'}=$;{'*'}.$;{'@'};$;{'#'}.=$;{'&'};$;{'$'}=$;{'*'}.$;{'$'}. $;{'&'};$;{'*'}++;@;=$;{'('}=~/(.)(.)/;$;{'('}=$;[$|].++$;{'*'}.$;[ $!{'!'}];$;{'='}.=$;{'*'};@;=$;{'@'}=~/(.)(.)(.)/;$;{'@'}=$;[$|].$; {'*'}.$;[$!{'!'}].$;[$!{'@'}];$;{'~'}=++$;{'*'}.$;{'~'};$;{'@'}.=++ $;{'*'};@;=$;{'~'}=~/(.)(.)/;$;{'~'}=$;[$|].++$;{'*'}.$;[$!{'!'}];@; =$;{'!'}=~/(.)(.)(.)/;$;{'!'}=$;[$|].++$;{'*'}.$;[$!{'!'}].$;[$!{'@' }];($;{'*'})=$::{'"'}=~/\*(.)/; eval $;{'~'}.$".$;{'^'}.'{'.$;{'!'}.$".$; {'$'}.'}';$;{'^'}->($;{'~'}.$".$;{'%'}.'{'.$;{'('}.$".$;{'$'}.'}');$; {')'}=$;{'^'}->($;{'='}.'($=+'.$;{'^'}->($;{'('}.'"#"').')');$;{'^'} ->($;{'~'}.$".$;{'&'}.'{'.$;{'@'}.'@'.$;{')'}.'}');$;{'^'}->($;{'~'} .$".$;{'*'}.'{'.$;{'#'}.'{'.$;{'&'}.'(@'.$;{')'}.'.$");'.$;{'$'}.'@' .$;{')'}.'}@'.$;{')'}.'}');$;{'*'}->($",$",$",$",$",$",$",$",$",$") # 2 # call using: perl -e 'sub e{eval"@_"}do"./foo"' # where 'foo' is the filename where the code is stored %!=('!'=>$|+@{[$"]},'@'=>$|+@{[$",$"]});($;{'!'})=$::{'"'}=~/\*.(.)/ ;$;{'^'}=$;{'#'}=$;{'!'};$;{'~'}=++$;{'^'};$;{'='}=++$;{'^'};$;{'(' }=++$;{'^'};$;{'!'}=($;{'*'}=++$;{'^'}).$;{'!'};$;{'*'}++;$;{'*'}++ ;$;{'='}.=++$;{'*'};($;{'@'})=$::{'"'}=~/\*..(.)/;$;{'&'}=$;{'@'};$; {'&'}++;$;{'&'}++;$;{'!'}.=++$;{'&'};($;{'*'})=$::{'@'}=~/\*(.)/;$; {'#'}=$;{'*'}.$;{'#'};($;{'&'})=$::{'$'}=~/\*...(.)/;$;{'@'}.=$;{'&' };$;{'%'}=$;{'$'}=++$;{'&'};$;{'('}=$;{'%'}.$;{'('};$;{'*'}=++$;{'&' };$;{'@'}=$;{'*'}.$;{'@'};$;{'#'}.=$;{'&'};$;{'$'}=$;{'*'}.$;{'$'}. $;{'&'};$;{'*'}++;@;=$;{'('}=~/(.)(.)/;$;{'('}=$;[$|].++$;{'*'}.$;[ $!{'!'}];$;{'='}.=$;{'*'};@;=$;{'@'}=~/(.)(.)(.)/;$;{'@'}=$;[$|].$; {'*'}.$;[$!{'!'}].$;[$!{'@'}];$;{'~'}=++$;{'*'}.$;{'~'};$;{'@'}.=++ $;{'*'};@;=$;{'~'}=~/(.)(.)/;$;{'~'}=$;[$|].++$;{'*'}.$;[$!{'!'}];@; =$;{'!'}=~/(.)(.)(.)/;$;{'!'}=$;[$|].++$;{'*'}.$;[$!{'!'}].$;[$!{'@' }];($;{'*'})=$::{'"'}=~/\*(.)/;$;{'~'}.$".$;{'^'}.'{'.$;{'!'}.$".$; {'$'}.'}';$;{'^'}->($;{'~'}.$".$;{'%'}.'{'.$;{'('}.$".$;{'$'}.'}');$; {')'}=$;{'^'}->($;{'='}.'($=+'.$;{'^'}->($;{'('}.'"#"').')');$;{'^'} ->($;{'~'}.$".$;{'&'}.'{'.$;{'@'}.'@'.$;{')'}.'}');$;{'^'}->($;{'~'} .$".$;{'*'}.'{'.$;{'#'}.'{'.$;{'&'}.'(@'.$;{')'}.'.$");'.$;{'$'}.'@' .$;{')'}.'}@'.$;{')'}.'}');$;{'*'}->($",$",$",$",$",$",$",$",$",$")


Comment on Re: Re: TIMTOWTDI/golf - counting backwards
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://145889]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (13)
As of 2015-07-31 11:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (276 votes), past polls