Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (9)
As of 2017-10-20 18:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (266 votes). Check out past polls.

    Notices?