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. ;-)
You can run it like this: phonenum -N=7375 /usr/dict/words#!/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
I tried this with most of my friends' and family's phone numbers and none of them generated any words. :-(
John.
--
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: (Golf) mobile phone numbers - words
by MeowChow (Vicar) on May 29, 2001 at 22:00 UTC |
In Section
Meditations