Сколько слогов в этом числе?

15

Я хотел бы взять число и знать, сколько слогов в нем, когда говорят на английском языке.

Давайте ограничим это положительными целыми числами, которые меньше одной тысячи.

Я британец, поэтому мы будем следовать за колонкой сотен со знаком «и», если после него есть ненулевые цифры.

Соревнование

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

Тестовые случаи

|  N  | In words                             | Syllables |
|   1 | one                                  |         1 |
|   2 | two                                  |         1 |
|   3 | three                                |         1 |
|   4 | four                                 |         1 |
|   5 | five                                 |         1 |
|   6 | six                                  |         1 |
|   7 | sev-en                               |         2 |
|   8 | eight                                |         1 |
|   9 | nine                                 |         1 |
|  10 | ten                                  |         1 |
|  11 | el-ev-en                             |         3 |
|  12 | twelve                               |         1 |
|  13 | thir-teen                            |         2 |
|  14 | four-teen                            |         2 |
|  17 | se-ven-teen                          |         3 |
|  20 | twen-ty                              |         2 |
|  21 | twen-ty one                          |         3 |
|  42 | four-ty two                          |         3 |
|  73 | sev-en-ty three                      |         4 |
|  77 | sev-en-ty sev-en                     |         5 |
| 100 | one hund-red                         |         3 |
| 110 | one hund-red and ten                 |         5 |
| 111 | one hund-red and el-ev-en            |         7 |
| 555 | five hund-red and fif-ty five        |         7 |
| 700 | sev-en hund-red                      |         4 |
| 770 | sev-en hund-red and sev-en-ty        |         8 |
| 777 | sev-en hund-red and sev-en-ty sev-en |        10 |
| 999 | nine hund-red and nine-ty nine       |         7 |
AJFaraday
источник
1
Можем ли мы принять ввод как строку или массив цифр?
Деннис

Ответы:

11

Python 2 , 84 83 74 67 байт

lambda n:4*(n>99)+2-n%~9/9-0x55561aaaab/4**(n%100)%4+`n`.count('7')

Спасибо @xnor за 9 16 байтов!

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


Python 2 , 79 байт

lambda n:4*(n>99)+([-1]+10*[1]+[3,1]+7*[2]+8*([2]+9*[3]))[n%100]+`n`.count('7')

Прямо, но дольше.

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

Деннис
источник
Для вашего решения 83-байтового, вы можете вырезать 3 байта, изменяя -10к ~9и переключение вокруг последнего бита к +(0<n%100!=12)-(n%100!=11), но это еще больше , чем новое решение.
xnor
@xnor Это действительно умно! min(n%100,13)%12/~9может на самом деле помочь с подходом, который я пробовал для моего ответа желе, а также.
Деннис
На самом деле, просто засунуть вещи в жестко запрограммированную константу, получается короче.
xnor
@xnor Еще раз спасибо!
Деннис
8

Perl 5 -p , 53 байта

$_=4*/.../+2*/[^0].$/+!/0$/+y/7//-/1[^1]$/-/12$/-/00/

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

Как

-p commandline flag reads input into $_

$_=4*/.../     # Hundreds place has minimum of 4 sylables (__ HUN-DRED AND),
               # match fails on number <100, and would add 0 here
  +2*/[^0].$/  # Tens place has two syllables if not 0 (__-TY or __TEEN),
               # match fails on numbers <10, and would add 0
  +!/0$/       # Ones place has one syllable if not 0 (__)
               # -- Now adjust for special cases --
  +y/7//       # add a syllable for every 7 present
  -/1[^1]$/    # remove a syllable for 10-19, except 11
  -/12$/       # remove another syllable for 12
  -/00/        # remove the syllable for AND if it's an even hundred

-p commandline flag outputs contents of $_
Xcali
источник
7

Python 2 , 112 108 байт

f=lambda n:n>99and f(n/100)+3+f(n%100)-(n%100<1)or n>19and f(n/10)-~f(n%10)or int("01111112111312222322"[n])

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

-4 байта, спасибо Шегги

TFeld
источник
2
Кроме того, ваша [2]*7часть потерпит неудачу 17, так как это должно быть 3 вместо 2 ( sev-en-teen).
Кевин Круйссен
2
-4 байта , включая исправление для 17.
Лохматый
@ Shaggy Спасибо :)
TFeld
@KevinCruijssen Исправлено сейчас (спасибо Шегги)
TFeld
6

Wolfram Language 101 115 байт

s=StringSplit;Length[Join@@(WordData[#,"Hyphenation"]&/@Join@@s/@
s[IntegerName@#,"-"])]+Boole[#>100&&#~Mod~100!=0]&

объяснение

( с заменой StringSplitдля s)

Length[Join@@(WordData[#,"Hyphenation"]&/@Join@@
StringSplit/@ StringSplit[IntegerName@#,"-"])]+Boole[#>100&&#~Mod~100!=0]&

IntegerName отображает число в американском английском (т.е. без «и», включенное в числа больше 100). Например, 777-> "seven hundred seventy-seven .

StringSplit[IntegerName@#,"-"] удаляет все дефисы при рендеринге.

StringSplit/@ разбивает рендеринг на слова.

Join@@ оставляет простой список слов без встроенного списка (в случае появления дефиса).

WordData[#,"Hyphenation"] разбивает одно слово на его слоги.

Join@@ оставляет простой список слогов во всех словах.

Length считает слоги

+Boole[#>100&&#~Mod~100!=0]добавляет 1к числу слогов те числа, которые больше 100 (из-за дополнительных «и», используемых в британском английском рендеринге), исключая целые кратные 100.

DavidC
источник
6

Java 11, 105 102 байта

n->(""+"".repeat(8)).charAt(n%100)+(n+"").split("7",9).length-(n>99?2:6)

Содержит множество непечатных символов.

-3 байта спасибо @ OlivierGrégoire .

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

Объяснение:


n->               // Method with integer as both parameter and return-type
  (""
                  //  Push string with ASCII-value digits 46666666666867777777
 +"".repeat(8))
                  //  Appended with 8 times a string with ASCII-value digits 7888888888
   .charAt(n%100) //  Take the (input modulo-100)'th character of this string (as integer)
  +(n+"").split("7",9).length
                  //  Count the amount of 7s in the input + 1
  -(n>99?         //  And if the input is larger than 99:
     2            //   Subtract 2 (-1 for the 7s+1 count; -5 to map the ASCII-digits to:
                  //               4 → -1; 6 → 1; 7 → 2; 8 → 3;
                  //               and +4 for the inputs above 99)
    :             //  Else:
     6)           //   Subtract 6 (-1 for the 7s+1 count and -5 to map the ASCII-digits to:
                  //               4 → -1; 6 → 1; 7 → 2; 8 → 3)
Кевин Круйссен
источник
1
102 байт путем изменения .split("7",-1)в .split("7",9)и -6+(n>99?4:0)к -(n>99?2:6).
Оливье Грегуар
1
@ OlivierGrégoire Спасибо. Полностью пропущено -(n>99?2:6), но теперь это так очевидно, что вы на это указали. И -1в 9связи с ограниченным вводом размером я не подумал бы, так что спасибо!
Кевин Круйссен
5

05AB1E , 34 31 байт

т%U7¢I€Ā`Iт@3*X_(X20@X12Q(X11QO

Попробуйте онлайн или проверьте все [1,999]контрольные примеры .

Объяснение:

Со всеми упомянутыми проверками это приведет к 1 для истины и 0 для фальси.

т%         # Take modulo-100 of the (implicit) input
           #  i.e. 710 → 10
  U        # Pop and store it in variable `X`
7¢         # Count the amount of 7s in the (implicit) input
           #  i.e. 710 → 1
I€Ā        # Trutify each digit in the input (0 if 0; 1 otherwise)
   `       # And push all of the mapped values to the stack
           #  i.e. 710 → [1,1,0]
Iт@        # Check if the input is larger than or equal to 100
           #  i.e. 710 → 1 (truthy)
   3*      # Multiply that result by 3 (for 'hund-red and')
           #  i.e. 1 → 3
X_         # Check if variable `X` is 0
           #  i.e. 10 → 0 (falsey)
  (        # And negate that (to remove 'and' when #00)
           #  i.e. 0 → 0
X20@       # Check if variable `X` is larger than or equal to 20 (for '-ty')
           #  i.e. 10 → 0 (falsey)
X12Q       # Check if variable `X` is exactly 12
           #  i.e. 10 → 0 (falsey)
    (      # And negate that (to remove 'teen')
           #  i.e. 0 → 0
X11Q       # Check if variable `X` is exactly 11 (for 'el-ev-en' minus 'one one')
           #  i.e. 10 → 0 (falsey)
O          # Sum everything on the stack (and output implicitly)
           #  i.e. [1,1,1,0,3,0,0,0,0] → 6
Кевин Круйссен
источник
Это не проходит 700 контрольных примеров. «Семьсот» имеет 4 слога, это возвращает 5.
AJFaraday
@AJFaraday Должно быть исправлено сейчас. Случайно имел I(input) вместо X(input mod 100) при проверке, больше ли это 20 для +1 ty.
Кевин Круйссен
Мне очень жаль, он возвращает 0 за «сто»
AJFaraday
@AJFaraday Исправлено снова .. > (проверьте, если вход больше 100) было заменено на @(проверьте, если вход больше или равен 100). Может быть, я должен был бы сам проверить еще несколько тестовых случаев перед публикацией .. Извините за это ..
Кевин Круйссен
4
Кстати, любить цилиндр на кубике рубикса!
AJFaraday
5

Древесный уголь , 39 31 байт

I⁻⁺↨E謬Iι²№θ7I§⁺”)∨∧⌈a¡↶”×0⁸⁰N

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

I⁻⁺

Рассчитайте корректировку количества слогов и выведите результат в виде строки.

↨E謬Iι²

Начните с изменения каждой ненулевой цифры на 1, а затем декодируйте как основание 2. Это дает правильный ответ для большинства входных данных.

№θ7

Добавьте 1 для каждого 7.

I§⁺”)∨∧⌈a¡↶”×0⁸⁰N

Возьмите буквенную строку 10000000001021111111и добавьте 80 нулей, затем циклически индексируйте входные данные и вычтите эту цифру.

Нил
источник
4

Желе , 28 25 23 байта

9ḊŻ;2+⁵Żċ%ȷ2$ạDṠḄƊ+Dċ7Ɗ

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

Как это устроено

9ḊŻ;2+⁵Żċ%ȷ2$ạDṠḄƊ+Dċ7Ɗ  Main link. Argument: n (integer in [1, ..., 999])

9                        Set the return value to 9.
 Ḋ                       Dequeue; yield [2, 3, 4, 5, 6, 7, 8, 9].
  Ż                      Zero; yield [0, 2, 3, 4, 5, 6, 7, 8, 9].
   ;2                    Concat 2, yield [0, 2, 3, 4, 5, 6, 7, 8, 9, 2].
     +⁵                  Add 10; yield [10, 12, 13, 14, 15, 16, 17, 18, 19, 12].
       Ż                 Zero; yield [0, 10, 12, 13, 14, 15, 16, 17, 18, 19, 12].
         %ȷ2$            Yield n % 1e2.
        ċ                Count the occurrences of the modulus in the array.
                 Ɗ       Combine the three links to the left into a monadic chain.
              D            Decimal; convert n to its array of digits in base 10.
               Ṡ             Take the sign of each decimal digit (0 or 1).
                Ḅ            Convert the array of signs from base 2 to integer.
             ạ           Compute the abs. difference of the results to both sides.
                      Ɗ  Combine the three links to the left into a monadic chain.
                   D       Decimal; convert n to its array of digits in base 10.
                    ċ7     Count the number of 7's.
Деннис
источник
3

PHP , 190 158 145 141 137 байт

<?for($j=$p=0;$p<strlen($i=$argv[1]);)$j+=str_split($i)[$p++]>0;echo$j+substr_count($i,7)+3*($i>99)-!($i%=100)+($i>19)-($i==12)+($i==11);

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

Порт решения Кевина Круйссена (к сожалению, он не имеет такой же краткости в PHP :))

- 32 45 благодаря Шегги!

-3 спасибо Кевину Круйссену!

NK1406
источник
Так много сбережений будет сделано здесь! Вот только несколько очень быстрых
Shaggy
1
145 байтов . Вы можете сохранить еще несколько байтов, используя короткие теги, но я не могу вспомнить, как их использовать на TIO. (Примечание: я разговариваю по телефону, поэтому не проверил все входные данные.)
Лохматый
1
@ Shaggy Еще 2 байта могут быть изменены при использовании >99и >19вместо >=100и >=20.
Кевин Круйссен
1
@KevinCruijssen на самом деле, что экономит 3 байта, потому что он идет от 100 до 99 :)
NK1406
Мне также удалось сохранить еще один байт, поместив переменную в начало эха.
NK1406
2

05AB1E , 24 байта

Желе порт Деннис

8L>Ć¾šT+¾šsт%¢sSĀJCαs7¢+

Попробуйте онлайн! или как тестовый набор

объяснение

8L>                       # push range [2 ... 9]
   Ć                      # enclose, append head
    ¾š                    # prepend 0
      T+                  # add 10 to each
        ¾š                # prepend 0
          sт%¢            # count occurrences of input % 100 in this list
              sS          # push input split into a list of digits
                Ā         # truthify, check each if greater than 0
                 JC       # convert from base-2 to base-10
                   α      # absolute difference
                    s7¢+  # add the amount of 7's in the input
Эминья
источник
1

05AB1E , 26 байт

€ĀJCI7¢•Ž¢Γ}Þ±6u•¾80׫Iè(O

Порт ответа @Neil 's Charcoal , так что не забудьте также поддержать его, если вам нравится этот ответ!

Попробуйте онлайн или проверьте все контрольные примеры .

Сжатое целое число •Ž¢Γ}Þ±6u•может альтернативно быть •8JA•b2TÌǝдля того же самого количества байтов.

Объяснение:

€Ā                   # Trutify every digit in the (implicit) input
                     # (0 remains 0; everything else becomes 1)
  J                  # Join it together to a single string
   C                 # Convert from binary to integer
I7¢                  # Count the amount of 7s in the input
•Ž¢Γ}Þ±6u           # Push compressed integer 10000000001021111111
          ¾80׫      # Append 80 "0"s
               Iè    # Index the integer (with automatic wraparound) into it
                 (   # Negate the result
O                    # Sum all values on the stack (and output implicitly)

Смотрите этот 05AB1E ответ моего (раздел Как сжать большие целые числа? ) , Чтобы понять , почему •Ž¢Γ}Þ±6u•это 10000000001021111111.

Кевин Круйссен
источник