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

Re: A little golfing challenge: Replacing letters with numbers

by vr (Curate)
on Feb 22, 2019 at 11:13 UTC ( #1230369=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $_ = 'NDDDDTSVCLGTRQCSWFAGCTNRTWNSSA 0';
    my @F = split '';
    
    @h{A..Z}=('27941492412912434962583369414978036693514585011981639390315
    +1901525290851349853'
    =~/.../g);say"@h{@F}";
    
  2. or download this
    @h{A..Z}=map 1023& Math::BigInt->from_base(D3PghSS0AZyLfhkL67kHFiuXWoB
    +6p9GUkgznoeEO1eNj,
    62)>>10*$_,0..25;say"@h{@F}";
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2020-11-29 22:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?