Проблема:

Например, вы создаете новый телефон, в котором люди могут вводить специальные телефонные номера, 1-800-programи они будут автоматически преобразованы в используемый телефонный номер, например 1-800-7764726(в предыдущем примере).

Ваша программа получит строку любой длины с цифрами, буквами и тире, и преобразует все буквы в соответствующие им числа.

Вот клавиатура, для справки:

Правила:

• Ваша программа получит строку
• Это обработает это и возвратит / напечатает другую строку
• Любой язык принят
• Поскольку это код-гольф , выигрывает самый короткий код

GolfScript, 24 символа

{.96>{,91,'qx'+-,3/`}*}%

Тестовый ввод:

0123456789-abcdefghijklmnopqrstuvwxyz

Тестовый вывод:

0123456789-22233344455566677778889999

Объяснение:

• { }% применяет код в фигурных скобках к каждому символу ввода.

• .96>{ }* выполняет код между внутренними фигурными скобками, если и только если ASCII-код символа больше 96 (т. е. это строчная буква).

• Первый ,превращает символ в список всех символов с более низкими кодами ASCII и 91,'qx'+-отфильтровывает все символы с кодами ASCII менее 91, а также буквы qи xиз списка. Так, например, персонаж aпревращается в список из 6 символов [\]^_`, а персонаж - в список zиз 29 символов [\]^_`abcdefghijklmnoprstuvwy.

• Вторая ,подсчитывает количество элементов, оставшихся в списке, и 3/делит это число на три (округление вниз). Наконец, `превращает полученное число (в диапазоне 2 - 9) в строку.

Таким образом, согласно спецификации, дефисы и цифры остаются без изменений, а строчные буквы отображаются в числа в соответствии со схемой клавиатуры. Код будет фактически проходить через все печатаемые символы ASCII, за исключением строчных букв (которые отображаются так, как описано) и символов {, |и }(которые отображаются в двухсимвольную строку 10). Не-ASCII 8-битный ввод будет производить всевозможные странные числовые результаты.

После всего этого немного разочаровывает, что это тривиальное решение bash превосходит всего шесть символов.

Баш, 30

Изменить: Спасибо Doorknob за устранение 3 символов

tr a-z 22233344455566677778889

Пример:

С 83 78 77 65 63 62

main(c){for(;~(c=getchar());putchar(c>96?20-c/122+5*c/16:c));}

http://ideone.com/qMsIFQ

Javascript - 103 символа

alert(prompt().replace(/[a-z]/g,function(y){y=y.charCodeAt(0)-91;return y>27?9:y>24?8:y>20?7:~~(y/3)}))

Рубин, 75 символов

gets.chars{|c|$><<"22233344455566677778889999#{c}"[[*?a..?z].index(c)||-1]}

Использует устаревший charsс блоком, и печатает каждую букву индивидуально с $><<. Мне тоже нравится [[*?a..?z].index(c)||-1]; он захватывает символ, соответствующий этой букве алфавита, если это буква, и последний символ (который оказывается тестовым символом без изменений), если нет.

Рубин, 43 (или 35) символов

Откровенно воровал у @ace;)

puts gets.tr'a-z','22233344455566677778889'

Побрей 8 символов, если я смогу работать в IRB с переменной sв качестве строки:

s.tr'a-z','22233344455566677778889'

C ++ - 222 символа

Самое длинное решение на данный момент:

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

Фринк, 92

Я знаю довольно многословный язык. Это проверяет 8 значений вместо 26 без необходимости вводить сравнения. Может ли какое-либо из приведенных выше решений "222333444 .." быть сокращено аналогичным образом?

Используя встроенные конструкции, 107

co=new OrderedList
co.insertAll[charList["cfilosv{"]]
println[input[""]=~%s/([a-z])/co.binarySearch[$1]+2/eg]

Используя пользовательскую рекурсивную функцию, 92

fn[x,a]:=x<=(charList["cfilosv{"])@a?a+2:fn[x,a+1]
println[input[""]=~%s/([a-z])/fn[$1,0]/eg]

Smalltalk, 79 70

ввод s:

s collect:[:c|' 22233344455566677778889999'at:1put:c;at:(($ato:$z)indexOf:c)+1]

вероятно, не является кандидатом на то, чтобы быть самым коротким - но может представлять интерес для старого трюка, чтобы избежать проверки для условия not-found (indexOf: возвращает 0 в этом случае). Таким образом, специальный тест для писем не требуется. Однако некоторые Smalltalks имеют неизменяемые строки, и нам нужно еще 4 символа («copy»).

О, лучшая версия, которая даже имеет дело с неизменяемыми строками в 70 символов:

s collect:[:c|c,'22233344455566677778889999'at:(($ato:$z)indexOf:c)+1]

Mathematica 90

Это следует логике решения @ ace:

StringReplace[#,Thread[CharacterRange["A","Z"]->Characters@"22233344455566677778889999"]]&

пример

StringReplace[#1,Thread[CharacterRange["A","Z"]-> 
Characters@"22233344455566677778889999"]]&["VI37889"]

8437889

Perl, 50

Еще одна очевидная копия ответа Эйса

($_)=@ARGV;y/a-z/22233344455566677778889999/;print

R, очень долго, но весело

foo <- '1-800-splurghazquieaobuer57'
oof <- unlist(strsplit(foo,''))
#don't count that part - it's input formatting :-) 
digout <- unlist(strsplit('22233344455566677778889999','')) 
oof[oof%in%letters[1:26]] <- unlist(sapply(oof[oof%in%letters[1:26]], function(j) digout[which(letters[1:26]==j)] ))

к [32 символа]

{(.Q.a!|,/(4 3 4,5#3)#'|$2+!8)x}

использование

{(.Q.a!|,/(4 3 4,5#3)#'|$2+!8)x}"stack exchange"
"78225 39242643"

JavaScript, 85

JavaScript никогда не победит в гольф-войнах, но мне это нравится, и я хотел сделать что-то другое, чем прыгнуть на фургон @ace.

alert(prompt().replace(/[a-z]/g,function(a){for(i=7;a<"dgjmptw{"[i--];);return i+4}))

PHP, 141

Не самое короткое, но веселее

<?php foreach(str_split($argv[1])as$c){$v=ord($c);if($v>114){$v--;}if($v==121){$v--;}if($v<123&$v>96){echo chr(ceil($v/3+17));}else{echo$c;}}

Более читабельно:

<?php 
foreach (str_split($argv[1]) as $c) {
  $v=ord($c);
  if ($v>114) {$v--;}
  if ($v==121){$v--;}
  if ($v<123 & $v>96){
    echo chr(ceil($v/3+17));
    } else {echo $c;}
}

Python 2.7, 80

for c in raw_input():print'\b'+(`(ord(c)-97)/3+2-(c in('svyz'))`if c>'`'else c),

Я новичок в Python, так что я уверен, что должен быть способ играть в гольф еще дальше , это другой подход, надеюсь, вам, ребята, нравится, мой бог, Python довольно!

Пример запуска:

• вход: 01-800-abcdefghijklmnopqrstuvwxyz
• выход: 01-800-22233344455566677778889999

T-SQL, 216 байт

За последние пару ночей я потратил довольно много времени на тщательное создание математической функции последовательности, которая бы правильно округлялась, чтобы генерировать правильные коды ASCII для чисел из алфавитных кодов ASCII. У него было смешное количество десятичных разрядов в коэффициентах, но это работало.

Тем не менее, рациональный подход mattnewport работает и в SQL, при гораздо меньших затратах в байтах, поэтому я бесстыдно отказываюсь от собственной математики в пользу его. Пойди проголосуй за него, это элегантное решение!

Вот мой:

DECLARE @p VARCHAR(MAX)='';WITH t AS(SELECT ASCII(LEFT(@s,1))c,2 i UNION ALL SELECT ASCII(SUBSTRING(@s,i,1)),i+1FROM t WHERE i<=LEN(@s))SELECT @p=@p+CHAR(CASE WHEN c>96THEN 20-c/122+5*c/16 ELSE c END)FROM t;SELECT @p

При этом используется рекурсивный CTE для создания импровизированной стопки символов в телефонном номере и преобразования букв на лету, а затем немного хитрости SQL (SELECT @ p = @ p ​​+ columnValue) для перекомпоновки строки из CTE без необходимости другая рекурсивная конструкция.

Выход:

DECLARE @s VARCHAR(MAX)='1-800-abcdefghijklmnopqrstuvwxyz'
--above code runs here
1-800-22233344455566677778889999

Python 2.7, 66 65

Оригинал Анакаты

for c in raw_input():print'\b'+(`(ord(c)-97)/3+2-(c in('svyz'))`if c>'`'else c),

Дальше в гольф

for c in input():print(ord(c)-91)/3-(c in('svyz'))if c>'`'else c,

У меня недостаточно репутации, чтобы комментировать ответ @ anakata, поэтому я сделал здесь отдельный пост. У меня была та же идея (принимая модуль 3 постановления), но я не мог понять, как напечатать правильные числа для s - z .

В любом случае, улучшения в гольф я сделал:

• изменился raw_inputнаinput

• удалены посторонние '\b'и скобки и одинарные кавычки

• убрал +2смещение и поместил его в исходное вычитание (97 - (3 * 2) = 91)

Протестировано с интерпретатором Python 2.7.6. Предполагается, согласно правилам, ввод строки.

PHP, 87

echo str_ireplace(range('a','z'),str_split('22233344455566677778889999'),fgets(STDIN));

q [38 символов]

{(.Q.a!"22233344455566677778889999")x}

Вдохновленный решением @ ace

пример

{(.Q.a!"22233344455566677778889999")x}"stack exchange"
"78225 39242643"

XQuery, 71

BaseX использовался в качестве процессора XQuery. $iэто вход.

translate($i,"abcdefghijklmnopqrstuvwxyz","22233344455566677778889999")

Не самый короткий ответ, но довольно короткий и очень читаемый.

Питон, очень безликий

Поскольку все копируют туз, я решил опубликовать код, который я придумал, прежде чем задавать вопрос:

def phonekeypad(text):
    c = ['','','abc','def','ghi','jkl','mno','pqrs','tuv','wxyz']
    st = ""
    for i in list(text):
        a = False
        for t in range(len(c)):
            if i in c[t]:
                st += str(t)
                a=True
        if a == False:
            st += str(i)
    return st

EcmaScript 6 (103 байта):

i.replace(/[a-z]/g,x=>keys(a='00abc0def0ghi0jkl0mno0pqrs0tuv0wxyz'.split(0)).find(X=>a[X].contains(x)))

Ожидается, iчтобы содержать строку.

Попробуйте это в любой последней версии Firefox. Я не пробовал Google Chrome.

Питон 3, 121

print("".join((lambda x:"22233344455566677778889999"[ord(x)-97] if ord(x)>96 and ord(x)<123 else x)(i) for i in input()))

Haskell, 93C

t[]_ a=a
t(b:c)(d:e)a
 |a==b=d
 |True=t c e a
y=map(t['a'..'z']"22233344455566677778889999")

использование

y "1-800-program"

C # 140

using System.Linq;class P{static void Main(string[]a){System.Console.Write(string.Concat(a[0].Select(d=>(char)(d>96?20-d/122+5*d/16:d))));}}

питон

import string          
trans = str.maketrans(string.ascii_lowercase,
                      '22233344455566677778889999')                                                                                         
print("1-800-ask-usps".translate(trans))

ECMASCRIPT, 101 (с входом)

"1-800-PROGRAM".replace(/./g,function(c){
return "22233344455566677778889999"[c.charCodeAt(0)-65]||c})

Новая строка добавлена ​​для ясности. 85 символов, если вход находится в переменной.

Perl, 54

print map{/[a-y]/?int(5/16*ord)-28:/z/?9:$_}<>=~/./gs

Стреляй, @RobHoare все еще бьет меня на 4 символа. :)

QBasic, 155

Ах, воспоминания ...

INPUT n$
FOR i=1 TO LEN(n$)
c$=MID$(n$,i,1)
a=ASC(c$)
IF 97>a THEN
PRINT c$;
ELSE IF 122>a THEN
PRINT STR$(a\3.2-28);
ELSE
PRINT 9;
END IF
NEXT i

Это должно было быть короче, но я тестировал с repl.it , который не допускает однострочных IFоператоров и ведет себя странно, если вы оставляете переменную выключенной NEXT i. Он также не распознает ASCфункцию, поэтому для запуска кода необходимо добавить этот обходной путь в начале:

DECLARE FUNCTION ASC(s$)
FUNCTION ASC(s$)
FOR j=1 TO 255
IF CHR$(j)=LEFT$(s$,1) THEN
ASC=j
END IF
NEXT j
END FUNCTION

(Во второй раз, когда вы запустите его, переводчик будет жаловаться, если вы не удалите DECLARE FUNCTIONстроку, иди к рисунку.)

R 110

s=strsplit(scan(,""),"")[[1]];i=grep("[a-z]",s);s[i]=sort(c(1:24%%8+2,7,9))[match(s[i],letters)];cat(s,sep="")

Пример:

> s=strsplit(scan(,""),"")[[1]];i=grep("[a-z]",s);s[i]=sort(c(1:24%%8+2,7,9))[match(s[i],letters)];cat(s,sep="")
1: 1-800-program
2: 
Read 1 item
1-800-7764726