Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Using the olde times internet

by choroba (Bishop)
on Feb 14, 2016 at 16:20 UTC ( #1155210=note: print w/replies, xml ) Need Help??


in reply to Using the olde times internet

It seems a { is missing after the for(...).

After adding it, ABCD gets transformed into

.- ---- ---- ---

which doesn't seem quite right.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

Replies are listed 'Best First'.
Re^2: Using the olde times internet
by lemonCurd (Novice) on Feb 15, 2016 at 07:17 UTC

    Yes, that's still wrong. In addition to the curly bracket, a slash was also missing. I think this happened while I was writing the post, changing the text and where to break the code a couple of times. Sorry for the confusion, and thanks for pointing it out.

    If you are still having trouble with the lesser used letters (q,x,v,p,c,f,z,l,b,h), then it's probably an encoding problem with the umlauts ,,. If you don't care about them, you can use these lines:

    print"@ARGV"=~s|.|$_=2+index'temaniowkugrdsXjy_q_xv_pcfzlbh',lc$&;$Q= 1.45*log;$_-=1<<$Q;for($O='';--$Q>0;$_/=2){$O.=chr$_%2+45}"$O "|ger

    So, removing the first curly bracket or the slash is obviously not an option to shorten the code :-).

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1155210]
help
Chatterbox?
and the sunlight beams...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2018-01-24 10:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How did you see in the new year?










    Results (257 votes). Check out past polls.

    Notices?