Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: (Golf) mobile phone numbers - words

by jmcnamara (Monsignor)
on May 29, 2001 at 21:05 UTC ( #84001=note: print w/replies, xml ) Need Help??

in reply to (Golf) mobile phone numbers -> words

This is a program rather than a sub. It is 160 chars without unnecessary whitespace. I don't know what you are supposed to do with 1 and 0. Get another phone number I guess. ;-)
#!/usr/bin/perl -snl BEGIN{ for ($N) { s/[10]//g; s/2/[abc]/g; s/3/[def]/g; s/4/[ghi]/g; s/5/[jkl]/g; s/6/[mno]/g; s/7/[pqrs]/g; s/8/[tuv]/g; s/9/[wxyz]/g } } /^$N$/oi&&print
You can run it like this:     phonenum -N=7375 /usr/dict/words

I tried this with most of my friends' and family's phone numbers and none of them generated any words. :-(


Replies are listed 'Best First'.
Re: Re: (Golf) mobile phone numbers - words
by MeowChow (Vicar) on May 29, 2001 at 22:00 UTC
    I really like this "inverted" regex method. As a sub, it can be brought down to 105 characters:
    sub n{ $n=shift;@l=('','',qw([abc] [def] [ghi] [jkl] [mno] [pqrs] [tuv] [wxyz +]));$n=~s/./$l[$&]/ge;grep/^$n$/,@_ }
                   s aamecha.s a..a\u$&owag.print

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2019-09-20 19:11 GMT
Find Nodes?
    Voting Booth?
    The room is dark, and your next move is ...

    Results (268 votes). Check out past polls.