ফোন নম্বরগুলিতে চিঠিগুলি

Question

সমস্যা:

আপনি একটি নতুন ফোন তৈরি করছেন যেখানে লোকেদের বিশেষায়িত ফোন নম্বর টাইপ 1-800-programকরতে পারে, উদাহরণস্বরূপ , এবং সেগুলি স্বয়ংক্রিয়ভাবে ব্যবহারযোগ্য ফোন নম্বরতে রূপান্তরিত হবে 1-800-7764726(যেমন আগের উদাহরণের জন্য)।

সংখ্যা, অক্ষর এবং ড্যাশগুলির সাথে কোনও দৈর্ঘ্য থাকলে আপনার প্রোগ্রামটি একটি স্ট্রিং পাবে এবং সমস্ত অক্ষরকে তাদের সংশ্লিষ্ট সংখ্যায় রূপান্তর করবে।

রেফারেন্সের জন্য এখানে একটি কীপ্যাড রয়েছে:

নিয়মাবলী:

• আপনার প্রোগ্রামটি একটি স্ট্রিং পাবেন
• এটি এটিকে প্রক্রিয়া করবে এবং অন্য স্ট্রিংটি ফেরত / মুদ্রণ করবে
• যে কোনও ভাষা গ্রহণ করা হয়
• যেহেতু এটি কোড-গল্ফ , তাই সংক্ষিপ্ততম কোডটি জয়ী

Comments

প্রোগ্রামটি কি ইনপুটটিতে উপরের এবং নিম্ন উভয় অক্ষরগুলি পরিচালনা করতে হবে?

— mattnewport

@ ম্যাটনিউপোর্ট - না, ধরে নিন ভেরিয়েবলটি ইতিমধ্যে ছোট হাতের অক্ষরে পরিণত হয়েছে

— থিডক্টর

Answer 1

গল্ফস্ক্রিপ্ট, 24 টি অক্ষর

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

পরীক্ষার ইনপুট:

0123456789-abcdefghijklmnopqrstuvwxyz

পরীক্ষার আউটপুট:

0123456789-22233344455566677778889999

ব্যাখ্যা:

• { }% ইনপুটটির প্রতিটি অক্ষরে ব্রেসগুলির মধ্যে কোড প্রয়োগ করে।

• .96>{ }* কেবলমাত্র যদি অক্ষরের ASCII কোড 96 এর চেয়ে বেশি হয় (তবে এটি একটি ছোট হাতের অক্ষর) তবে অভ্যন্তরীণ ধনুর্বন্ধনীগুলির মধ্যে কোডটি কার্যকর করে।

• প্রথম ,পালাক্রমে নিম্ন হওয়া ASCII কোড সঙ্গে সব অক্ষরের একটি তালিকায় অক্ষর, এবং 91,'qx'+-ASCII কোড 91 এর চেয়ে কম সঙ্গে সমস্ত অক্ষর আউট ফিল্টার, সেইসাথে অক্ষর qএবং xতালিকা থেকে। সুতরাং, উদাহরণস্বরূপ, চরিত্রটি a6-চরিত্রের তালিকায় পরিণত হয় [\]^_`, যখন z29-চরিত্রের তালিকায় পরিণত হয় [\]^_`abcdefghijklmnoprstuvwy।

• দ্বিতীয়টি ,তালিকায় থাকা উপাদানগুলিকে 3/গণনা করে এবং এই গণনাটিকে তিনটি দ্বারা বিভক্ত করে (গোল করে)। অবশেষে, `ফলাফল সংখ্যা (2 - 9 সীমাতে) একটি স্ট্রিতে পরিণত হয়।

সুতরাং, অনুমান অনুসারে হাইফেন এবং সংখ্যাগুলি অপরিবর্তিত রয়েছে, যখন ছোট হাতের অক্ষরগুলি রেফারেন্স কীপ্যাড ডায়াগ্রাম অনুসারে সংখ্যায় ম্যাপ করা হয়। কোড আসলে পরিচ্ছন্নভাবে ছোট হাতের অক্ষর (যা হিসাবে বর্ণনা অনুযায়ী ম্যাপ) এবং অক্ষরের জন্য ছাড়া সমস্ত মুদ্রণযোগ্য ASCII অক্ষর মাধ্যমে পাস হবে {, |এবং }(যা দুই-অক্ষর স্ট্রিং ম্যাপ করা হয় 10)। নন-এএসসিআইআই 8-বিট ইনপুট সমস্ত ধরণের অদ্ভুত সংখ্যার আউটপুট উত্পাদন করবে।

এত কিছুর পরেও এটি কিছুটা হতাশাব্যঞ্জক যে এটি কেবল ছয় অক্ষর দ্বারা তুচ্ছ বাশ সমাধানকে মারধর করে ।

Answer 2

বাশ, 30

সম্পাদনা: 3 টি অক্ষর মুছে ফেলার জন্য আপনাকে ডোরকনব ধন্যবাদ

tr a-z 22233344455566677778889

উদাহরণ:

Comments

আপনি শেষ 3 9টি সরাতে পারবেন না ?

— ডোরকনবব

Answer 3

সি, 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

Comments

চমৎকার গণিত। শুধু বলতে চাই যে আপনি ~(c=getchar())

— EF

আপনি ব্যবহার করা যায়নি getch()পরিবর্তে getchar()?

— স্টারস্প্লসপ্লস

কড়া কথায় বলতে গেলে, getch()স্ট্যান্ডার্ড সি নয়, ফলস্বরূপ আমার ধারণা এটি আদর্শের সাথে সংযুক্ত নয়। যদিও আমি এমএসভিসিতে এটি পরীক্ষা করেছি এবং এটি সত্যিই দুঃখজনকভাবে কাজ করে না - যেহেতু এটি সরাসরি কীবোর্ডের ইনপুট গ্রহণ করে প্রোগ্রামটি থেকে বেরিয়ে আসার কোনও উপায় নেই, যদিও এটি উড়তে আপনি কী টাইপ করেন তা পরিষ্কার করে তোলে।

— ম্যাটনিউপোর্ট

Answer 4

জাভাস্ক্রিপ্ট - 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)}))

Comments

আমি জানতাম না যে আপনি .রেলেস দিয়ে এটি করতে পারবেন। আপনার পক্ষে ভোট দিন!

— সুপারজেডি ২২৪

আপনি এর charCodeAt(0)সাথে প্রতিস্থাপন charCodeAt()করতে পারেন function(y)...এবং কয়েকটি বাইট সংরক্ষণ করতে আপনি তীর ফাংশনটি ব্যবহার করতে পারেন এবং ব্যবহার ~~(y/3)করতে পারেনy/3|0

— chau giang

Answer 5

রুবি, 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'

আমি sস্ট্রিং হিসাবে ভেরিয়েবলের সাথে আইআরবিতে চালাতে পারি তবে 8 টি অক্ষর শেভ করুন :

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

Answer 6

সি ++ - 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;}}

Comments

লোল, আমি মনে করি না যে দীর্ঘতম সমাধানটি এখানে লক্ষ্য

— ড্যানি

@ ড্যানি সি ++ কোড-গল্ফের জন্য নিজেকে ভাল ধার দেয় না । জাভা এবং সি # হ'ল একমাত্র ভাষাগুলি আরও খারাপ that

— হোস্ট 250

আমি জানি, আমি কেবল মজার বিষয় বলেছিলাম যে আপনি "দীর্ঘতম সমাধান" উল্লেখ করেছেন।

— ড্যানি

Answer 7

ভাজা, 92

আমি বরং জানি। এই তুলনাগুলি টাইপ না করে 26 এর পরিবর্তে 8 টি মান পরীক্ষা করে cks উপরের কোনও "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]

Comments

স্ট্রিং-অনুবাদ পদ্ধতিটি 8-অক্ষর অনুসন্ধানে হ্রাস করার জন্য +1। চমৎকার স্পর্শ.

— জোনাথন ভ্যান মাত্রে

Answer 8

স্মলটাক, 79 70 79

ইনপুটটি হ'ল:

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

সম্ভবত সবচেয়ে সংক্ষিপ্ত হওয়ার প্রার্থী নয় - তবে একটি সন্ধানের শর্তের জন্য পরীক্ষা এড়াতে কোনও পুরানো কৌতূহলের জন্য আগ্রহী হতে পারে (সূচিপত্র: এই ক্ষেত্রে 0 ফেরত দেয়)। সুতরাং চিঠির জন্য কোনও বিশেষ পরীক্ষার প্রয়োজন নেই। কিছু স্মলটালকের অবশ্য অপরিবর্তনীয় স্ট্রিং রয়েছে এবং আমাদের আরও চারটি অক্ষর ("অনুলিপি") প্রয়োজন।

ওহ, আরও ভাল সংস্করণ, যা 70 টি অক্ষরেও অপরিবর্তনীয় স্ট্রিংয়ের সাথে সম্পর্কিত:

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

Answer 9

গণিত 90

এটি @ এসের সমাধানের যুক্তি অনুসরণ করে:

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

উদাহরণ

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

8437889

Comments

আপনার তীর চরিত্রের প্রতিনিধিত্ব এমএমএ একটি অনুলিপি / পেস্টে স্বীকার করে নি

— ডঃ বেলিসারিয়াস

এছাড়াও, আপনি প্রয়োজন হবে না 1এ #1:)

— belisarius ডঃ

বেলিসারিয়াস, আমি ফিরে তীরটি পরিবর্তন করেছি এবং এটিকে সরিয়েছি 1। এখনও 90 চর তবে কাট এবং পেস্ট কাজ করবে। আপনি অবশ্যই একক চর তীর ব্যবহার করার অনুপ্রেরণা বুঝতে পারেন।

— ডেভিডসি

সেখানে এসেছেন, এটি করেছেন :)

— ডাঃ বেলিসেরিয়াস

Answer 10

পার্ল, 50

এসের বাশ উত্তরের আরও একটি স্পষ্ট অনুলিপি

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

Comments

এই কোডটি সঠিকভাবে কাজ করছে তবে উন্নতির অবকাশ রয়েছে। আসুন $ ARGV [0] থেকে মুক্তি পান এবং -pপরিবর্তে স্যুইচ ব্যবহার করুন যা আপনাকে স্ট্ডিনের প্রতিটি লাইনে সুন্দরভাবে যেতে দেয়। যখন আমরা এটিতে এসেছি, y /// এর ব্যাপ্তিটি বর্গাকার বন্ধনীতে লাগানোর দরকার নেই। আমরা তিনটি 9 জনকে কেবল একটি রেখে দিয়ে চূড়ান্ত আধা-কোলনটি সরিয়ে দিতে পারি: -p y/a-z/22233344455566677778889/ আপনি সেখানে যান, 30 + 1 এর জন্য -p। এন্টারপ্রাইজ চাইনিজ পার্ল গল্ফিং এবং অপটিমাইজেশন পরিষেবাদি ব্যবহার করার জন্য আপনাকে ধন্যবাদ এবং একটি সুন্দর দিন দিন।

— চাইনিজ পার্ল গোথ

Answer 11

আর, খুব দীর্ঘ কিন্তু মজা

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)] ))

Answer 12

কে [৩২ চর]

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

ব্যবহার

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

Answer 13

জাভাস্ক্রিপ্ট, 85

জাভাস্ক্রিপ্ট কখনই গল্ফ যুদ্ধগুলি জিততে পারে না, তবে আমি এটি পছন্দ করি এবং আমি @ace ব্যান্ডওয়্যাগনে ঝাঁপ দেওয়ার চেয়ে আলাদা কিছু করতে চেয়েছিলাম।

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

Answer 14

পিএইচপি, 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;}
}

Comments

ওপি বলেছে যে ইনপুটটি ইতিমধ্যে ছোট হাতের অক্ষরে রয়েছে, তাই আপনিstrtolower

— আইনাচিও

Answer 15

পাইথন 2.7, 80

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

আমি অজগরে নতুন, সুতরাং আমি নিশ্চিত যে আরও গল্ফ করার আরও একটি উপায় অবশ্যই আছে , এটি অন্যরকম, আশা করি আপনারা ছেলেরা এটি পছন্দ করবেন, আমার দেবতা, অজগরটি সুন্দর!

চালানোর উদাহরণ:

• ইনপুট: 01-800-abcdefghijklmnopqrstuvwxyz
• আউটপুট: 01-800-22233344455566677778889999

Answer 16

টি-এসকিউএল, 216 বাইট

আমি বর্ণা AS্য ASCII কোডগুলি থেকে সংখ্যার জন্য যথাযথ ASCII কোড উত্পন্ন করতে সঠিকভাবে গোল করে এমন একটি গাণিতিক ক্রম ক্রিয়াকলাপটি তৈরি করেছি, যা বেশ কয়েকটা রাত ব্যয় করে বেশ কয়েকটি সময় ব্যয় করেছি। এর সহগগুলিতে দশমিক জায়গাগুলির একটি হাস্যকর সংখ্যা ছিল তবে এটি কার্যকর হয়েছিল।

যাইহোক, ম্যাটনিউপোর্টের যৌক্তিক পদ্ধতি এসকিউএল-তেও বাইটের অনেক কম খরচে কাজ করে, তাই আমি নির্লজ্জভাবে তার পক্ষে আমার নিজের গণিতকে স্ক্র্যাপ করছি। তাকে ভোট দিন, এটি একটি মার্জিত সমাধান!

এখানে আমার:

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

এটি ফোন নম্বরটিতে অক্ষরের একটি অপ্রতুল স্ট্যাক তৈরি করতে এবং ফ্লাইতে বর্ণগুলি অনুবাদ করতে পুনরাবৃত্ত সিটিই ব্যবহার করে, তারপরে সিটিই থেকে স্ট্রিংটি পুনরায় সংশোধন করতে কিছুটা এসকিউএল ট্রিকারি (SELECT @ p = @ p ​​+ কলামওয়ালু) ব্যবহার করুন অন্য পুনরাবৃত্তি নির্মাণ।

আউটপুট:

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

Answer 17

পাইথন 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,

@ আনাকাটার উত্তরে মন্তব্য করার মতো যথেষ্ট খ্যাতি আমার নেই, তাই আমি এখানে একটি আলাদা পোস্ট করেছি। আমারও একই ধারণা ছিল (অধ্যাদেশের মডিউল 3 গ্রহণ করা) তবে কীভাবে এস - জেডের জন্য সঠিক সংখ্যাগুলি প্রিন্ট করা যায় তা বুঝতে পারি না ।

যাইহোক, আমি গল্ফ উন্নতি করেছি:

• পরিবর্তিত raw_inputহয়েছেinput

• বহিরাগত '\b'এবং প্রথম বন্ধনী এবং একক উদ্ধৃতি মুছে ফেলা হয়েছে

• +2অফসেটটি সরিয়ে এটিকে মূল বিয়োগফলে রেখেছেন (--৯ - (৩ * ২) = ৯১)

পাইথন ২.7..6 দোভাষীর সাথে পরীক্ষিত। নিয়ম অনুসারে ধরে নিন, একটি স্ট্রিং ইনপুট।

Comments

আপনি এবং) এর মধ্যে স্থানটি সরিয়ে

— উইলিয়াম

তুমি ঠিক বলছো. ভাল ক্যাচ উইলিম

— zheshishei

Answer 18

পিএইচপি, 87

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

Answer 19

প্রশ্ন [৩৮ অক্ষর]

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

@ এস এর সমাধান দ্বারা অনুপ্রাণিত

উদাহরণ

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

Answer 20

এক্সকিউরি, 71

বেসএক্স এক্সকিউয়ারি প্রসেসর হিসাবে ব্যবহৃত হয়েছিল। $iইনপুট হয়।

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

সংক্ষিপ্ত উত্তর নয়, তবে বেশ ছোট এবং খুব পাঠযোগ্য।

Answer 21

পাইথন, খুব অবারিত

যেহেতু সবাই টেক্কা দিচ্ছেন, তাই আমি প্রশ্ন জমা দেওয়ার আগেই আমি তৈরি করা কোডটি পোস্ট করার সিদ্ধান্ত নিয়েছি:

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

Answer 22

ইকামাস্ক্রিপ্ট 6 (103 বাইট):

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

iস্ট্রিংটি ধারণ করবে বলে আশা করি ।

ফায়ারফক্সের কোনও সাম্প্রতিক সংস্করণে এটি ব্যবহার করে দেখুন। আমি গুগল ক্রোম চেষ্টা করি নি।

Answer 23

পাইথন 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()))

Answer 24

হাস্কেল, 93 সি

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"

Answer 25

সি # 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))));}}

Answer 26

পাইথন

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

Answer 27

ECMAScriptT, 101 (ইনপুট সহ)

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

স্পষ্টতার জন্য নিউলাইন যুক্ত হয়েছে। ইনপুটটি যদি ভেরিয়েবলের হয় তবে 85 টি অক্ষর।

Answer 28

পার্ল, 54

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

শ্যুট করুন, @ রোবহরে এখনও আমাকে 4 টি চরিত্রে মারবে। :)

Answer 29

কিউব্যাসিক, 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ফাংশনটিও স্বীকৃতি দেয় না , তাই কোডটি চালানোর জন্য আপনাকে শুরুতে এই workaround যুক্ত করতে হবে:

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লাইনটি সরিয়ে না ফেলে , চিত্র না যান)

Answer 30

আর, 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