Під час здійснення міжнародних телефонних дзвінків телефонні номери мають префікс із кодом, який вказує, у якій країні знаходиться номер. Ці коди є кодами префіксу , тобто жоден код не є префіксом іншого.

Тепер, раніше, ви пропустили дзвінок, і вам цікаво, звідки цей дзвінок міг взятися. Отже, ви хочете шукати код для виклику. Але, будучи кодом префікса, ви не зовсім впевнені, де він закінчується, тому ви вирішили написати програму, щоб відокремити викликовий код від решти числа.

Вхідні дані

В якості введення ви отримаєте рядок, що складається з цифр 0-9. Перші кілька цифр будуть одним із перелічених нижче кодів для країни (це означає, що першої цифри ніколи не буде 0). Після коду виклику країни, решта вводу буде містити нуль або більше цифр у будь-якому порядку - не гарантовано, що це дійсний номер телефону. Ваша програма повинна вміти обробляти входи, що містять щонайменше 15 цифр

Вихід

Ваша програма повинна вивести унікальний код виклику країни, який є префіксом номера. Дійсні виходи такі:

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

Цей список ґрунтується на кодах, перелічених у списку Вікіпедії на сторінці кодів країн за станом на версію 915410826, з кількома модифікаціями

• Усі коди, перелічені як непризначені або припинені, а деякі коди, перелічені як зарезервовані для подальшого використання, були опущені
• Якщо код, перелічений у Вікіпедії, є префіксом іншого, останній був опущений
• Якщо в одній країні чи території буде більше одного коду, і якщо ці коди мають загальний префікс, ці коди опускаються на користь їх загального префікса.

Це може призвести до згуртування незалежних країн або спорудження спірних територій з конкретним позивачем. Це не є політичною заявою, і рішення про включення чи бездіяльність територій та держав приймалися на основі кодексів, а не будь-яких переконань, які я маю щодо власності чи суверенітету суб'єктів, які ними користуються.

Якщо введено дані, які не починаються з жодного з цих кодів, поведінка вашої програми не визначена.

І, нарешті:

• Це код-гольф , тим менше байтів коду краще
• Ваше подання може бути або функцією, або повноцінною програмою
• Будь-який із методів вводу / виводу за замовчуванням є нормальним
• Стандартні лазівки заборонені

Тестові справи

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

JavaScript (ES6),  75 73  71 байт

Збережено 1 байт завдяки @Shaggy
Збережено 2 байти завдяки @Neil

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

Спробуйте в Інтернеті!

05AB1E , 28 25 24 байти

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

Спробуйте в Інтернеті!

η                            # 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

Сітківка 0,8,2 , 60 байт

!`^(2[1-69]?|3[578]?|42?|599?|50?|6[789]?|8[578]?|9[679]?)?.

Спробуйте в Інтернеті!

Python 3 , 120 78 байт

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

Спробуйте в Інтернеті!

Містить кілька недрукованих матеріалів:

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

Дещо незворушена (більш рання) версія:

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

Спробуйте в Інтернеті!

Bash , 328 341 410 байт

Не дуже конкурентоспроможний за рахунок гольфу, але кожен із них допомагає моїм баш-навичкам!

Збережено 13 байт, усунувши обробку 2-х байтних значень пробігу; зберігання всього 3 байт додає 8 байт до T, але робить випадок справи набагато простішим.

Збережено 69 байт, змінивши підхід від розширення bash до зберігання дельт. Попереднє посилання TIO знаходиться внизу моєї відповіді.

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

Спробуйте в Інтернеті!

• Сортування списку префіксів чисельно
• T - це "своєрідна" закодована рядок довжиною пробігу, що показує дельту від попереднього значення. Кожен символ є одним із наступних:
  • Базове значення 36, що показує збільшення від попереднього значення
  • 'r': вказує, що наступний символ вказує на базове36 закодоване число повторних значень дельти 1.
  • '-': означає, що наступні 3 символи - це наступне значення дельти

Рядок T = "16D73r42 [...] -3UR132", дотримуючись наведених вище правил, стає списком дельт: "1 6 D 7 3 r4 2 [...] 4995 1 3 2"

Можна врятувати ще 2-3 байти, використовуючи більший радіус 36 (наприклад, 62-64), але Excel підтримує до 36 лише 36, і саме це робило список дельт та їх перетворень.

• Під час запуску T аналізується і розширюється в рядок S, який використовується для порівняння номера телефону, вказаного в аргументі 1 командного рядка.

Розширюючись T, S стає: "1 7 20 27 30 31 32 33 34 36 [...] 5993 5994 5997 5999"

Спробуйте в Інтернеті!

Perl 5 (-p), 44 байти

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

Спробуйте в Інтернеті!

І TIO, і SO мають проблеми з недрукованими символами, тому програма показана з послідовностями втечі. Ось шестнадцять фактичних 44 байт:

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

PHP , 219 байт

Я відчуваю, що є багато місця для вдосконалення регексу - гольф його настільки, наскільки я можу піти, але я думаю, що це може бути набагато коротшим ....

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

Спробуйте в Інтернеті!

Java 8, 84 байти

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

Порт @Arnauld JavaScript- підсумок , тому не забудьте підтримати його!

Спробуйте в Інтернеті.

Пояснення:

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

Пояснення Regex:

(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 `.*`)

Python 3 , 96 байт

lambda s:re.sub('(1|7|(2[^07]|3[578]|42|599?|50|6[789]|8[0578]|9[679]|.).).*',r'\1',s)
import re

Спробуйте в Інтернеті!

Відповідь JavaScript на порт Арнальда.

Scala , 411 402 330 байт

Це припускаючи, що аргумент містить лише цифри.

"(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))

Спробуйте в Інтернеті!