Phone Multi-tap Spelling

Question

The Latin alphabet contains 26 characters and telephones only have ten digits on the keypad. We would like to make it easier to write a message to your friend using a sequence of keypresses to indicate the desired characters. The letters are mapped onto the digits as shown below. To insert the character B for instance, the program would press 22. In order to insert two characters in sequence from the same key, the user must pause before pressing the key a second time. The space character ' ' should be printed to indicate a pause. For example, 2 2 indicates AA whereas 22 indicates B.

Each message will consist of only lowercase characters a-z and space characters ' '. Pressing zero emits a space.

enter image description here

Your challenge is to write the smallest function which takes the input string, and returns the sequence of keypresses necessary to produce the input as string or output it to stdout. The function which is the least amount of bytes wins.

Example Input/Output

phone("hi")
44 444
phone("hello world")
4433555 555666096667775553

Other clarifications

Pauses must only be added when necessary and must be a space ' '.
Each message will consist of only lowercase characters a-z and space characters ' '. Print 0 to signify spaces.
No external libraries.
Only the input string may be passed to your function.
To make other languages competitive, the primary function declaration doesn't count, and nor does importing other standard libraries. #includes, imports, and usings don't count. Everything else does. This does include #defines and helper functions. See rule 2 in this question if you are confused.
Multiple spaces can be denoted as 00 or 0 0 since you don't really have to pause between a space

Related with this: codegolf.stackexchange.com/questions/21327/… — Victor Stafusa, Commented Mar 4, 2014 at 17:26
@PhilH "lowercase characters a-z and space characters ' '" — Danny, Commented Mar 4, 2014 at 17:28
Do you consider brackets {} a part of the function signature? For example, if my code is function f(){alert('hi');}, should I count the characters of alert('hi'); or {alert('hi');}? — ProgramFOX, Commented Mar 4, 2014 at 17:28
As far as I remember t9 works differently: you have to click each key once to get a word. — VisioN, Commented Mar 4, 2014 at 18:07

David Herrmann · Accepted Answer · 2014-03-05 09:08:45Z

8

Ruby, 129 122 115 111 108 107 105

Done with golfing...

Oops, completely forgot to remove unnecessary spaces - fixed...

Saved 2 chars thanks to Peter Taylor.

Online version

def t9(t)
(t.tr(" ",?`).bytes.map{|c|"09998887777666555444333222"[96-c..-1][/(.)\1*/]}*' ').gsub /(\d) (?!\1)/,'\1'
end

Explanation:

space is translated to the char with the ordinal 96

(t.tr(" ",?`).bytes

characters are first mapped to series of numbers: - a to 2 - b to 22 - d to 3222 - h to 444333222

a regex expression then matches the first group of equal digits

map{|c|"09998887777666555444333222"[96-c..-1][/(.)\1*/]}

the array is joined

*' ')

all spaces in the occurences of "digit space different_digit" are removed

gsub /(\d) (?!\1)/,'\1'

edited Mar 5, 2014 at 9:08

answered Mar 4, 2014 at 18:31

David Herrmann

1,55410 silver badges14 bronze badges

1

\$\begingroup\$ Doesn't look to work 100% right. I see 6666 6 shouldn't ever need to be press 4 times in a row. \$\endgroup\$
– Danny
Commented Mar 4, 2014 at 18:47
1

\$\begingroup\$ What's the point of \2 in that final regex? Surely the second group is a zero-width assertion? \$\endgroup\$
– Peter Taylor
Commented Mar 4, 2014 at 22:27
\$\begingroup\$ You're absolutely right! \$\endgroup\$
– David Herrmann
Commented Mar 5, 2014 at 9:06

Add a comment |

Kendall Frey · Accepted Answer · 2014-03-04 21:03:19Z

6

REBEL - 154 110 103

;0 2abc3def4ghi5jkl6mno7pqrs8tuv9wxyz/^;/$<;/([^\d-])(?=\D.*(\d)(\w)*\1)/$2$3-/(\d)-+\1/$1 $1/-//;/$>$`

This 'function' accepts input from stdin and sends results to stdout.

Test runs (so you don't have to install the interpreter):

hi
44 444

hello world
4433555 555666096667775553

yes
999337777

kthxbai
558449922 2444

edited Mar 4, 2014 at 21:03

answered Mar 4, 2014 at 18:28

Kendall Frey

2,4731 gold badge19 silver badges29 bronze badges

\$\begingroup\$ I can never get your links to load! :( \$\endgroup\$
– luser droog
Commented Mar 5, 2014 at 6:07

Add a comment |

FizzyTea · Accepted Answer · 2014-03-04 23:34:38Z

4

JavaScript (124)

Run in Firefox.

t9=s=>s.replace(/./g,c=>'099998887777666555444333222'.slice(36-parseInt(c,36)).match(/(.)\1*/)[0]+' ').replace(/(.) (?!\1)/g,'$1')

edited Mar 4, 2014 at 23:34

answered Mar 4, 2014 at 22:59

FizzyTea

1435 bronze badges

Add a comment |

Ilmari Karonen · Accepted Answer · 2014-03-05 00:27:15Z

4

GolfScript, 46 chars

{).," adgjmptw"&.,.1>*`@@)\;-*}/]{.2$^!" "*\}*

As usual, reads input from stdin, prints to stdout. See online demo (with canned input).

Note that this code relies on a very strict interpretation of the input spec (only lowercase letters and spaces): in particular, any newlines in the input will crash it! This issue can be fixed, at the cost of two extra chars, by prepending n- to the code to filter any newlines out.

answered Mar 5, 2014 at 0:27

Ilmari Karonen

20.8k4 gold badges53 silver badges100 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

3

C++ - 365 characters without `int main(){}`

#include<iostream>
#include<string>
#include<cmath>
#define o std::cout<<
int main(){std::string s;getline(std::cin,s);for(int i=0;i<s.size();i++){if(s[i]==32)o 0;int j=s[i]-97;if(i>0&&j/3==(s[i-1]-97)/3)o ' ';if(-1<j&j<15){for(int k=j-j%3-1;k<j;k++)o 2+j/3;}if(14<j&j<19){for(int k=14;k<j;k++)o 7;}if(18<j&j<22){for(int k=18;k<j;k++)o 8;}if(21<j&j<26){for(int k=21;k<j;k++)o 9;}}}

Uses the same reasoning as my answer here, only using for loops to output each letter the appropriate number of times.

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Mar 4, 2014 at 18:16

user10766

\$\begingroup\$ You can use s[i]==32 instead of s[i]==' '. The ASCII value of space is 32. \$\endgroup\$
– user12205
Commented Mar 4, 2014 at 19:41
\$\begingroup\$ @ace Sure thing. \$\endgroup\$
– user10766
Commented Mar 4, 2014 at 19:42

Add a comment |

mniip · Accepted Answer · 2014-03-04 22:51:06Z

3

Perl - 107 110

$_=<>;y/ /0/;$z='a';$==2;for$l((3)x5,4,3,4){for$q(1..$l){s/$z/$=x$q.$"/ge,$z++}$=++}s/(.) (?!\1)/\1/g;print

Here's my previous solution in 120 ~~128 130 155~~:

$_=<>;s//_/g;y/sz/79/;for$x(cfilorvy,behknqux,adgjmptw){s/(\d)_/\1\1_/g,eval"y/$x/2-9/"}y/ _/0 /;s/(.) (?!\1)/\1/g;print

Tests:

hi
 44 444

hello world
 4433555 555666096667775553

jackdaws loves my big sphinx
 52 222553297777055566688833777706999022444 407777 744 4446699

edited Mar 4, 2014 at 22:51

answered Mar 4, 2014 at 18:29

mniip

9,4924 gold badges31 silver badges57 bronze badges

Add a comment |

Gaffi · Accepted Answer · 2014-03-05 12:18:52Z

VBA 220 253/258/219

Not counting Function lines here:

With String, 253:

Function t(s)
For Each c In Split(StrConv(s,64),Chr(0))
If c<>""Then If c=" "Then t=t & 0 Else b=Asc(c)-91:n=String(IIf(b>27,(b-4)Mod 4+1,IIf(b>23,(b-1)Mod 4+1,b Mod 3+1)),Trim(Str(Int(b/3)-IIf(b=24Or b=27Or b>29,1,0)))):t=t &IIf(Right(t,1)=Left(n,1)," " &n,n)
Next
End Function

With a For loop 258:

Added corrections for 7/9 key (thanks, Danny), which added a lot of chars.

Function t(s)
For Each c In Split(StrConv(s,64),Chr(0))
If c<>""Then
n=""
b=Asc(c)-91
For i=1To IIf(b>27,(b-4)Mod 4+1,IIf(b>23,(b-1)Mod 4+1,b Mod 3+1))
n=n &Int(b/3)-IIf(b=24Or b=27Or b>29,1,0)
Next
t=t &IIf(c=" ",0,IIf(Right(t,1)=Left(n,1)," " &n,n))
End If
Next
End Function

Using Choose 219:

I didn't want to run with this one, since is more basic in functionality, but it is the shorter code...

Function t(s)
For Each c In Split(StrConv(s,64),Chr(0))
If c<>"" Then:b=Asc(c)-96:n=Choose(b,2,22,222,3,33,333,4,44,444,5,55,555,6,66,666,7,77,777,7777,8,88,888,9,99,999,9999):t=t &IIf(c=" ",0,IIf(Right(t,1)=Left(n,1)," " &n,n))
Next
End Function

yes should be 999337777. I get 10338 using your function. — Danny, Commented Mar 4, 2014 at 18:07

user18204 · Accepted Answer · 2014-03-05 15:18:04Z

3

C, 165 163 153 149 138 chars

k(char*s){char*m="`cfilosvz",l=0,i,c;while(*s^0){for(i=0;*s>m[i];i++);c=*s-m[i-1];i==0?i=-1,c=1:i==l?putchar(32):1;while(c--)putchar(i+49);l=i;s++;}}

My first attempt at code golfing, any suggestions are appreciated.

edited Mar 5, 2014 at 15:18

answered Mar 5, 2014 at 0:33

user18204

312 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

C++ - 170 168 160

Golfed:

#define t std::cout<< 
void g(char*s){char v,p,b,l=1;while(*s){v=*s++-97;p=(v==18)+(v==25)+(v-=v/18+v/25)%3;b=v<0?48:v/3+50;if(l==b)t' ';while(p--+1){t(l=b);}}}

Ungolfed

void numpresses(char* s)
{
char lastbutton = 1;
const char asciiOffset = 97;

while(*s)
{
    char val = *s++ - asciiOffset;

    char presses = 
        (val == 18) + (val == 25)           //Z and S are special cases. Check for their ascii codes.
        + (val -= val / 18 + val / 25) % 3; //Simple mod 3 for number of presses. Also apply offset for characters above s and z.

    char button =
        val < 0                             //If the character is a space...
        ? '0'                               //The button character needs to be 0
        : val / 3 + '2';                    //Buttons are offset by the ascii code for the number 2


    if (lastbutton == button)               //Add a space if we need to pause
    {
        std::cout << ' ';
    }

    while (presses-- + 1)                   //Print the button once for each press required
    {
        std::cout << button;
        lastbutton = button;            
    }
}
}

Fors · Accepted Answer · 2014-03-05 03:04:06Z

2

C: 136 characters

p(char*s){int i,c,l=1;while(c=*s%32,*s++)for(i=l!=(l=(c+149-c/18-c/25)/3-!c);i++<(c-!!c-c/18-c/25)%3+(c==19)+c/26+2;putchar(i^1?l:32));}

And slightly ungolfed (yes, that is how it was written):

p(char*s){
        int i,c,l=1;
        while(c=*s%32,*s++)for(
                i=l!=(l=(c+149-c/18-c/25)/3-!c);
                i++<(c-!!c-c/18-c/25)%3+(c==19)+c/26+2;
                putchar(i^1?l:32)
        );
}

I might be able to cut it down a little by applying some recursion, black magic and a fair amount of chili powder.

edited Mar 5, 2014 at 3:04

answered Mar 5, 2014 at 2:51

Fors

3,3261 gold badge20 silver badges29 bronze badges

Add a comment |

wildcard · Accepted Answer · 2014-03-05 03:17:01Z

2

Java - 243

Pretty naive java solution. Thanks to commenters for suggestions.

Fixed a bug that sometimes inserted unnecessary spaces, e.g. for the input "hello worlds sup".

    private static void t9(String s) {
        String[]t=",,abc,def,ghi,jkl,mno,pqrs,tuv,wxyz".split(",");String o="";int i,j,k,l=0;for(char c:s.toCharArray()){if(c==32){o+='0';l=0;}else for(j=0;j<10;j++){int n=t[j].indexOf(c);if(n>=0){if(j==l)o+=' ';for(k=0;k<n+1;k++)o+=j;l=j;}}}return o;
    }

edited Mar 5, 2014 at 3:17

answered Mar 4, 2014 at 18:23

wildcard

513 bronze badges

4

\$\begingroup\$ Pretty good, but you need to golf it and provide the score. \$\endgroup\$
– user10766
Commented Mar 4, 2014 at 18:24
1

\$\begingroup\$ I assume this is java. Can you put that in your heading, like the other answers do? \$\endgroup\$
– Digital Trauma
Commented Mar 4, 2014 at 18:37
1

\$\begingroup\$ One golf: replace t.length with 10 \$\endgroup\$
– Justin
Commented Mar 4, 2014 at 18:49
\$\begingroup\$ Also, considering that i is used only for iterating through the String, remove it and do a foreach loop: for(char c:s.toCharArray()) \$\endgroup\$
– Justin
Commented Mar 4, 2014 at 18:51
\$\begingroup\$ Also, change if(c==' '){o+='0';continue;} to if(c==' ')o+='0';else{ and add the appropriate }. \$\endgroup\$
– Justin
Commented Mar 4, 2014 at 18:55

| Show 1 more comment

TimWolla · Accepted Answer · 2014-03-04 18:52:47Z

1

CoffeeScript - 202 (210 - 8)

t9=(s)->
    t=[3,3,3,3,3,4,3,4];l=-1;r=""
    for c in s
        n="";d=c.charCodeAt(0)-96
        if c is ' '
            n=0
        else((n+=k+2 for x in[0...d];break)if d<=v;d-=v)for v,k in t
        r+=if n[0]is l[0] then " "+n else n
        l=n
    r

edited Mar 4, 2014 at 18:52

answered Mar 4, 2014 at 18:32

TimWolla

1,95015 silver badges30 bronze badges

Add a comment |

Tobia · Accepted Answer · 2014-03-04 23:23:46Z

APL, 77 chars

{{⍵,⍨⍺,''↑⍨=/↑¨⍺⍵}/('0',⍨(⌈3.1×y-⌊y)/¨⍕¨2+⌊y←7.99,⍨.315×⍳25)[⍵⍳⍨⎕UCS 96+⍳26]}

Explanation

2+⌊y←7.99,⍨.315×⍳25 or, ungolfed, y←(0.315×⍳25),7.99 ◇ 2+⌊y samples a suitably tilted line (y = 0.315 x) on the points from 1 to 25; the line is tilted in such a way that the floor of these y values follows the repeating pattern 000111...777 except for the sixth group of digits 5555; a number is appended at the end to get the fourth 7, so that the final array plus 2 is 22233344455566677778889999;
⌈3.1×y-⌊y amplifies the difference between those y values and their floors, so that the ceilings of the differences give the pattern 123123... with a 4 on the last digits of the two groups of 4 digits;
'0',⍨( ... )/¨⍕¨ ... or (( ... ) /¨ ⍕¨ ...),'0' uses the latter result to duplicate digits from the former, so that the output is the array of strings "2" "22" "222" "3" "33" "333"... with the correct "7777" and "9999" in place, and a "0" appended to the end;
⍵⍳⍨⎕UCS 96+⍳26 or (⎕UCS 96+⍳26)⍳⍵ computes the index of each input char, where "a" is 1, "z" is 26, and space (and every other char) is 27;
{ ... }/( ... )[ ... ] takes the latter result, the index for each input char, to translate each char into the respective string of digits, then concatenates the strings using the function in braces;
{⍵,⍨⍺,''↑⍨=/↑¨⍺⍵} or {(⍺,(=/↑¨⍺,⍵)↑''),⍵} appends each new string ⍺ to the accumulator ⍵, interposing a single space only if both arguments start with the same char.

Examples

      {{⍵,⍨⍺,''↑⍨=/↑¨⍺⍵}/('0',⍨(⌈3.1×y-⌊y)/¨⍕¨2+⌊y←7.99,⍨.315×⍳25)[⍵⍳⍨⎕UCS 96+⍳26]} 'hello world'
 4433555 555666096667775553 
      {{⍵,⍨⍺,''↑⍨=/↑¨⍺⍵}/('0',⍨(⌈3.1×y-⌊y)/¨⍕¨2+⌊y←7.99,⍨.315×⍳25)[⍵⍳⍨⎕UCS 96+⍳26]} 'the quick brown fox jumped over the lazy dog'
 84433077884442225502277766696603336669905886733 3066688833777084433055529999 999036664

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

Python 155 150

I wish i was better at this XD. Function definition not counted. First indentation level is a space, second is a tab, and third 2 tabs.

def p(s,l=None):
 for c in s:
    for i,g in enumerate(" ,,abc,def,ghi,jkl,mno,pqrs,tuv,wxyz".split(",")):
        if c in g:print"\b"+[""," "][l==i]+str(i)*(g.index(c)+1),;l=i

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Mar 4, 2014 at 21:22

gcq

2512 silver badges5 bronze badges

Add a comment |

Eliseo D'Annunzio · Accepted Answer · 2014-03-05 05:04:24Z

0

JavaScript 234

for(l=-1,r="",I=0,y=(s=prompt()).length;I<y;I++){c=s[I];n="";d=c.charCodeAt(0)-96;if(0>d)n=0;else for(k=J=0;J<8;k=++J){v="33333434"[k];if(d<=v){for(x=K=0;0<=d?K<d:K>d;x=0<=d?++K:--K)n+=k+2;break}d-=v}r+=n[0]==l[0]?" "+n:n;l=n}alert(r)

answered Mar 5, 2014 at 5:04

Eliseo D'Annunzio

7,5311 gold badge36 silver badges73 bronze badges

Add a comment |

Gaffi · Accepted Answer · 2014-03-06 20:36:57Z

0

R 224

I'm sure there's a better way to do this, so I'm going to keep working on it.

a=strtoi(charToRaw(scan(,'',sep='\n')),16L)-95;a[a<0]=1;b=c(0,2,22,222,3,33,333,4,44,444,5,55,555,6,66,666,7,77,777,7777,8,88,888,9,99,999,9999)[a];c=append(b[-1],0)%%10;d=b%%10;b[c==d]=paste(b[c==d],'');paste(b,collapse='')

edited Mar 6, 2014 at 20:36

answered Mar 6, 2014 at 19:30

Gaffi

3,7072 gold badges23 silver badges54 bronze badges

Add a comment |

Stack Exchange Network

Phone Multi-tap Spelling

16 Answers 16

Ruby, 129 122 115 111 108 107 105

REBEL - 154 110 103

JavaScript (124)

GolfScript, 46 chars

C++ - 365 characters without `int main(){}`

Perl - 107 110

VBA 220 253/258/219

C, 165 163 153 149 138 chars

C++ - 170 168 160

C: 136 characters

Java - 243

CoffeeScript - 202 (210 - 8)

APL, 77 chars

Python 155 150

JavaScript 234

R 224

Your Answer

Not the answer you're looking for? Browse other questions tagged
code-golf
or ask your own question.

Linked

Hot Network Questions

Phone Multi-tap Spelling

16 Answers 16

Ruby, 129 122 115 111 108 107 105

REBEL - 154 110 103

JavaScript (124)

GolfScript, 46 chars

C++ - 365 characters without int main(){}

Perl - 107 110

VBA 220 253/258/219

C, 165 163 153 149 138 chars

C++ - 170 168 160

C: 136 characters

Java - 243

CoffeeScript - 202 (210 - 8)

APL, 77 chars

Python 155 150

JavaScript 234

R 224

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golf or ask your own question.

Linked

Related

Hot Network Questions

C++ - 365 characters without `int main(){}`

Not the answer you're looking for? Browse other questions tagged
code-golf
or ask your own question.