Откуда они звонят?

19

При международных телефонных звонках к телефонным номерам добавляется код, указывающий, в какой стране находится номер. Эти коды являются префиксными кодами , то есть ни один код не является префиксом другого.

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

вход

В качестве ввода вы получите строку, состоящую из цифр 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
code-golf string kolmogorov-complexity subsequence Сара Дж
источник
Возможно, вы должны сделать input | outputвместо этого пунктирную линию внизу, если вы не хотите inputпереводиться output.
JL2210

Ответы:

10

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]

Попробуйте онлайн!

Arnauld
источник
Я думаю 599?|50можно заменить 599|5[09].
Нил
@Neil Действительно. Благодарность!
Арно
Работает ли s=>/(2[^07]|3[578]|42|599?|50|6[789]|8[0578]|9[679]|[^17]|)./.exec(s)[0]на 72 байта?
Ов
1
@ovs Да, но текущая версия на самом деле составляет 71 байт - количество байтов устарело.
Арно
9

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
Grimmy
источник
6

Сетчатка 0.8.2 , 60 байт

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

Попробуйте онлайн!

Нил
источник
Ваш вклад в TIO уже включает ответ;) Я знаю, что ваш код не использует их, но это выглядит немного запутанно.
Кевин Круйссен
4

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

Попробуйте онлайн!

овс
источник
4

Баш , 328 341 410 байт

Не очень конкурентоспособен для игры в гольф, но каждый из них помогает мне в игре!

Сохранено 13 байтов за счет исключения обработки 2-байтовых значений длины пробега; хранение только 3 байтов добавляет 8 байтов к T, но значительно упрощает инструкцию case.

Сохранено 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 - это «сортированная» строка в кодировке длины серии, показывающая дельту из предыдущего значения. Каждый персонаж является одним из следующих:
    • Значение base36, показывающее увеличение по сравнению с предыдущим значением
    • «r»: указывает, что следующий символ указывает закодированное в base36 количество повторных значений дельты 1.
    • '-': указывает, что следующие 3 символа являются следующим значением дельты

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

Можно было бы сэкономить на 2-3 байта больше, используя более высокое основание, чем 36 (например, 62-64), но Excel поддерживает только до 36, и это то, что использовалось для составления списка дельт и их преобразований.

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

Расширяя T, S становится: «1 7 20 27 30 31 32 33 34 36 [...] 5993 5994 5997 5999»

Попробуйте онлайн!

spuck
источник
2

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

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

Попробуйте онлайн!

И TIO, и SO имеют проблемы с непечатаемыми символами, поэтому программа показана с escape-последовательностями. Вот hexdump фактических 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
Grimmy
источник
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];

Попробуйте онлайн!

XMark
источник
1

Java 8, 84 байта

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

Port of @Arnauld 's JavaScript regex , так что убедитесь, что поддержали его!

Попробуйте онлайн.

Объяснение:

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 `.*`)
Кевин Круйссен
источник
0

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

Попробуйте онлайн!

jkeatley
источник