Nereden arıyorlar?


19

Uluslararası telefon görüşmeleri yaparken, telefon numaralarına numaranın hangi ülkede bulunduğunu belirten bir kod gelir. Bu kodlar önek kodlarıdır , yani hiçbir kod diğerinin öneki değildir.

Şimdi, bugün erken bir çağrıyı kaçırdınız ve bu çağrının nereden gelebileceğini merak ediyorsunuz. Yani arama kodunu aramak istiyorsunuz. Ancak, bir önek kodu olarak, nerede biteceğinden emin değilsiniz, bu nedenle arama kodunu numaranın geri kalanından ayırmak için bir program yazmaya karar verirsiniz.

Giriş

Giriş olarak, rakamlardan oluşan bir dize alırsınız 0-9. İlk birkaç rakam, aşağıda listelenen ülke kodlarından biri olacaktır (bu, ilk rakamın asla olmayacağı anlamına gelir 0). Ülke kodundan sonra, girişin geri kalanı herhangi bir sırayla sıfır veya daha fazla basamak içerecektir - geçerli bir telefon numarası olduğu garanti edilmez . Programınız en az 15 basamak içeren girdileri işleyebilmelidir

Çıktı

Programınız, numaranın öneki olan benzersiz ülke arama kodunu çıkarmalıdır. Geçerli çıktılar aşağıdaki gibidir:

1
20
211
212
213
216
218
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
260
261
262
263
264
265
266
267
268
269
27
290
291
297
298
299
30
31
32
33
34
350
351
352
353
354
355
356
357
358
359
36
370
371
372
373
374
375
376
377
378
379
380
381
382
383
385
386
387
389
39
40
41
420
421
423
43
44
45
46
47
48
49
500
501
502
503
504
505
506
507
508
509
51
52
53
54
55
56
57
58
590
591
592
593
594
595
596
597
598
5993
5994
5997
5999
60
61
62
63
64
65
66
670
672
673
674
675
676
677
678
679
680
681
682
683
685
686
687
688
689
690
691
692
7
800
808
81
82
84
850
852
853
855
856
86
870
875
876
877
878
879
880
881
882
883
886
888
90
91
92
93
94
95
960
961
962
963
964
965
966
967
968
970
971
972
973
974
975
976
977
979
98
991
992
993
994
995
996
998

Bu liste, birkaç değişiklikle Wikipedia'nın ülke kodları listesi 915410826 revizyonundan itibaren listelenen kodlara dayanmaktadır.

  • Atanmamış veya durdurulmuş olarak listelenen tüm kodlar ve ileride kullanılmak üzere ayrılmış olarak listelenen bazı kodlar atlandı
  • Wikipedia'da listelenen bir kod başka bir önekse, ikincisi atlanmıştır
  • Tek bir ülke veya bölgenin birden fazla kodu varsa ve bu kodların ortak bir öneki varsa, bu kodlar ortak öneklerinin lehine çıkarılır.

Bu, bağımsız ülkelerin bir araya gelmesine veya tartışmalı bölgelerin belirli bir davacıya katılmasına neden olabilir. Bu politik bir ifade olarak tasarlanmamıştır ve bölgelerin ve devletlerin dahil edilmesi veya ihmal edilmesine ilişkin kararlar, kodları temel alarak verilmiştir; bunları kullanan kuruluşların mülkiyeti veya egemenliğine ilişkin inançlarım yoktur.

Bu kodlardan herhangi biriyle başlamayan bir giriş verilirse, programınızın davranışı tanımsızdır.

Ve sonunda:

Test senaryoları

input -> output
5292649259 -> 52
3264296721 -> 32
1550 -> 1
33121394 -> 33
7 -> 7
2542112543 -> 254
2005992972 -> 20
350 -> 350
360 -> 36
8505234469 -> 850
9795586334 -> 979
148985513598795 -> 1
222222 -> 222
5999995 -> 5999

input | outputBunun yerine, inputçevrilmek istemediğiniz sürece alt çizgi ile yapmanız gerekir output.
JL2210

Yanıtlar:


10

JavaScript (ES6),  75 73  71 bayt

@Shaggy sayesinde 1 bayt kaydedildi @Neil
sayesinde 2 bayt kaydedildi

s=>/1|7|(2[^07]|3[578]|42|599?|50|6[789]|8[0578]|9[679]|.)./.exec(s)[0]

Çevrimiçi deneyin!


Bence 599?|50yerini alabilir 599|5[09].
Neil

@Neil Gerçekten. Teşekkürler!
Arnauld

s=>/(2[^07]|3[578]|42|599?|50|6[789]|8[0578]|9[679]|[^17]|)./.exec(s)[0]72 bayt için çalışıyor mu ?
ovs

1
@ovs Öyle, ama geçerli sürüm aslında 71 bayt - bayt sayısı modası geçmiş.
Arnauld

9

05AB1E , 28 25 24 bayt

η•A󾫸tEΓ∞ζ∊u½d•.¥¤ØªKн

Çevrimiçi deneyin!

η                            # prefixes of the input
 •A󾫸tEΓ∞ζ∊u½d•            # compressed integer 211112166111113621489811655218129
                 .¥          # undelta: [0, 2, 3, 4, 5, 6, 8, 9, 15, 21, 22, 23, 24, 25, 26, 29, 35, 37, 38, 42, 50, 59, 67, 68, 69, 75, 80, 85, 87, 88, 96, 97, 99, 108]
                   ¤         # last element of that list: 108
                    Ø        # nth prime: 599
                     ª       # append it to the list
                      K      # remove all those values from the list of prefixes
                       н     # get the first prefix left


4

Python 3 , 120 78 bayt

f=lambda n:{n//10+3}-{*b'	 &()-5>FGHSXZ[cdf',602}and f(n//10)or n

Çevrimiçi deneyin!

Bazı yazdırılamazlar içerir:

00000000: 663d 6c61 6d62 6461 206e 3a7b 6e2f 2f31  f=lambda n:{n//1
00000010: 302b 337d 2d7b 2a62 2705 0306 0708 090b  0+3}-{*b'.......
00000020: 0c18 191a 1b1c 1d20 2628 292d 353e 4647  ....... &()-5>FG
00000030: 4853 585a 5b63 6466 272c 3630 327d 616e  HSXZ[cdf',602}an
00000040: 6420 6628 6e2f 2f31 3029 6f72 206e       d f(n//10)or n

Biraz ungolfed (önceki) sürüm:

f=lambda n:{n/10}-{0,2,3,4,5,6,8,9,21,22,23,24,25,26,29,35,37,38,42,50,59,599,67,68,69,80,85,87,88,96,97,99}and f(n/10)or n

Çevrimiçi deneyin!


4

Bash , 328 341 410 bayt

Bir golf skoru için çok rekabetçi değil, ama bunların her biri bash becerilerime yardımcı oluyor!

2 bayt çalışma uzunluğu değerlerinin işlenmesini ortadan kaldırarak 13 bayt kaydedildi; yalnızca 3 bayt depolamak T'ye 8 bayt ekler, ancak vaka ifadesini çok daha basit hale getirir.

Yaklaşmayı bash genişlemesinden depolama deltalarına değiştirerek 69 bayt kurtardı. Önceki TIO bağlantısı cevabımın altında.

T='16D73r423112r62r72r6F1224r53-03511322rZr32r9L1611-01Fr9BrD2112V12-025r9-029r8-0202rB2r7-0308-162121E5r832-02082r72Cr52-3UR132'
A(){
V=$[V+36#$1]
S="$S $V"
}
R(){
read -n$1 d
}
while read -n1 c;do
case $c in -)R 3;A $d;;r)R 1;for((i=1;$i<=36#$d;i++)){ A 1;};;*)A $c;;esac;done<<<$T
for s in $S;do [[ $1 =~ ^$s ]]&&echo $s;done

Çevrimiçi deneyin!

  • Ön ekler listesini sayısal olarak sıraladı
  • T, önceki değerdeki deltayı gösteren "tür" çalışma uzunluğu kodlu dizedir. Her karakter aşağıdakilerden biridir:
    • Önceki değerden artışı gösteren bir base36 değeri
    • 'r': sonraki karakterin base36 kodlu tekrarlanan delta değeri 1 olduğunu gösterir.
    • '-': sonraki 3 karakterin bir sonraki delta değeri olduğunu gösterir

Yukarıdaki kuralları izleyen T = "16D73r42 [...] -3UR132" dizesi bir deltalar listesi haline gelir: "1 6 D 7 3 r4 2 [...] 4995 1 3 2"

36'dan (62-64 gibi) daha yüksek bir yarıçap kullanarak 2-3 bayt daha kaydedebilir, ancak Excel yalnızca yerel olarak 36'ya kadar destekler ve deltalar ve dönüşümleri listesini yapmak için kullanılır.

  • Çalışırken, T ayrıştırılır ve komut satırı argümanı 1'de verilen telefon numarasının karşılaştırılması için kullanılan S dizesine genişletilir.

T'yi genişletmek S şöyle olur: "1 7 20 27 30 31 32 33 34 36 [...] 5993 5994 5997 5999"

Çevrimiçi deneyin!


2

Perl 5 (-p), 44 bayt

$\=chop until/^599$/+vec"\x7D\x03\xE0\x27\x68\x04\x04\x08\x38\x00\xA1\x01\x0B",$_,1

Çevrimiçi deneyin!

Hem TIO hem de SO yazdırılamaz karakterlerle ilgili sorunlara sahiptir, bu nedenle program kaçış dizileriyle gösterilir. İşte gerçek 44 baytlık bir hexdump:

0000000: 245c 3d63 686f 7020 756e 7469 6c2f 5e35  $\=chop until/^5
0000010: 3939 242f 2b76 6563 227d 03e0 2768 0404  99$/+vec"}..'h..
0000020: 0838 00a1 010b 222c 245f 2c31            .8....",$_,1

1

PHP , 219 bayt

Regex geliştirmek için çok fazla yer var gibi hissediyorum - ben gidebildiğim kadar golf ama çok daha kısa olabilir bahis ....

preg_match('/(1|7|2(0|1[12368]|[2346].|5[^9]|7|9[01789])|3[578]?.|42?[013]|5([1-8]|0.|99?[3479])|6([0-6]|7[^1]|8[^4]|9[012])|8(0[08]|[1246]|5[02356]|7[05-9]|8[0-368])|9([0-58]|6[^9]|7[^8]|9[1-8]))/',$argn,$r);echo$r[0];

Çevrimiçi deneyin!


1

Java 8, 84 bayt

s->s.replaceAll("(1|7|(2[^07]|3[578]|42|599?|50|6[789]|8[0578]|9[679]|.).).*","$1");

Port of @Arnauld 's JavaScript normal ifadesi , bu yüzden onu oyladığınızdan emin olun!

Çevrimiçi deneyin.

Açıklama:

s->                    // Method with String as both parameter and return-type
  s.replaceAll("(1|7|(2[^07]|3[578]|42|599?|50|6[789]|8[0578]|9[679]|.).).*",
                       //  Replace this regex-match
               "$1");  //  With this replacement

Normal ifade açıklaması:

(1|7|(2[^07]|3[578]|42|599?|50|6[789]|8[0578]|9[679]|.).).*  // MATCH:
 1                                                           //  a 1
  |7                                                         //  or a 7
    |(                                                )      //  or:
      2[^07]                                                 //   a 2 not followed 0 nor 7
            |3[578]                                          //   or a 3 followed by 5, 7, or 8
                   |42                                       //   or a 42
                      |599?                                  //   or a 59 or a 599
                           |50                               //   or a 50
                              |6[789]                        //   or a 6 followed by 7, 8, or 9
                                     |8[0578]                //   or an 8 followed by 0, 5, 7, or 8
                                             |9[679]         //   or a 9 followed by 6, 7, or 9
                                                    |.       //   or any single digit
                                                       .     //  followed by any single digit
(                                                       )    //  All captured in capture group 1
                                                         .*  //  With 0 or more digits following

$1                                                           // REPLACEMENT:
$1                                                           //  The match of capture group 1,
                                                             //  (effectively removing the
                                                             //   remaining digits of `.*`)


0

Scala , 411 402 330 bayt

Bu, argümanın yalnızca rakam içerdiğini varsayar.

"(1|(2(0|(1[12368])|([2346]\\d)|(5[^9])|7|(9[^2-6])))|(3(([0-4])|([57]\\d)|6|(8[^48])|9))|(4([^2]|(2[013])))|(5((0\\d)|[^09]|(9([^9]|(9[3479])))))|(6([0-6]|(7[^1])|(8[^4])|(9[0-2])))|7|(8((0[08])|[1246]|(5[02356])|(7[05-9])|(8[^4579])))|(9([0-58]|(6[^9])|(7[^8])|(9[^079]))))(.*)".r.unapplySeq(args(0)).foreach(l=>println(l.head))

Çevrimiçi deneyin!

Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.