Codegolf - Определить «Удачу» Струны

Учитывая строку, верните «удачу» этой строки.

Удача строки, как я только что придумал для этой задачи, представляет собой целое число, определяемое следующим образом:

• Базовая удача для строки равна 1.
• Для каждой последовательной буквы, которая совпадает со словом «счастливый» (без учета регистра), умножьте удачу на 2. Например, если ваша строка была «Луберджек" или "смаск" вы бы умножили на 4. (Более конкретно, 2^количество общих последовательных символов.)
  • Общие буквы должны располагаться в том же последовательном порядке, что и в слове «lucky», но могут начинаться в любом месте слова с тем же значением («luc» имеет тот же множитель 8*, что и «cky»).
  • Если слово встречается несколько раз, где оно разделяет последовательные символы со словом «счастливчик», используйте самую длинную последовательную строку символов.
• За ЛЮБУЮ букву, которая совпадает со словом «предзнаменование», из удачи вычитают 2.
  • Он может соответствовать символу любое количество раз и в любом порядке. Например, строка «nnnnnomemenn» теряет 24 удачи (12 совпадающих букв).

Пример:

 
 
 Number 
 
 

2^5 (5 букв подряд) = 32

2^3 - 2 (3 буквы подряд из ок, е поделился с предзнаменованием)

1–8 (базовое количество, 4 совместно с «предзнаменованием»)

Это код-гольф, поэтому побеждает ответ с наименьшим количеством байтов.

Вы можете вводить и выводить данные любым способом — написать функцию, использовать стандартный ввод и т. д.

Для функций предположите, что тип данных имеет смысл для этого языка. (Например, в JavaScript вам будет передано luck("firetruck") >>6 and return a luck("lucky") >>32 )

Изменить: вы можете предположить, что любой ввод имеет нижний регистр.

#код-гольф #строка

05AB1E, 36 32 28 26 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 n=>(1<<Matches(n,"l?u?c?k?y?").OrderBy(x=>x.Value).Last().Length)-n.Count(x=>"omen".Any(c=>c==x))*2
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Объяснение

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

Сэкономлено 2 байта благодаря Аднан

JavaScript (ES7), 123 112 107 байт

Изменить: сохранено 11 байт благодаря @Titus, если предположить, что буква echo '<table border=1><tr><th>input</th><th>output</th><th>expected</th><th>ok?</th></tr>'; foreach([ 'lumberjack'=>0, 'smack'=>2, 'nnnnnomemenn'=>-23, 'lucky'=>32, 'omen'=>-7, 'firetruck'=>6, 'memes'=>-7, 'determine the “luck” of a string'=>0, 'amazing'=>-3, 'wicked'=>2, 'chucky'=>16, 'uckyuke'=>14, 'ugly'=>2, 'lucy'=>8, 'lukelucky'=>30 ] as $x=>$e){ $y=f($x); echo"$h<tr><td>",$x,'</td><td>',$y,'</td><td>',$e,'</td><td>',$e==$y?'Y':'N',"</td></tr>"; }echo '</table>'; does not appear in the input. Saved 5 bytes thanks to @Oriol. ES6 version for 125 114 109 bytes:

Пиф, 27 26 28 байт

1 байт сэкономлен благодаря ОП :-)

Объяснение:

Проверьте это здесь.

Рубин, 91 87 байт

g "firetruck" 's finnicky usage strikes again! (When passed a String, it counts all occurrences of each letter in the function argument instead of all occurrences of the entire string.)

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

Версия, которая принимает строки из STDIN и печатает их: 89 байт (86 +3 из DECLARE @t varchar(99)='oluck' ,@z INT=0 ,@a INT=0 ,@ INT=1 ,@c INT=0 WHILE @a<LEN(@t) SELECT @a+=IIF(@=1,1,0), @z=IIF('LUCKY'LIKE'%'+x+'%'and @>@z,@,@z), @c+=IIF(x IN('O','M','E','N'),2,0), @=IIF(@+@a-1=LEN(@t),1,@+1) FROM(SELECT SUBSTRING(@t,@a,@)x)x PRINT POWER(2,@z)-@c flag)

Рубин: 100 байт

Javascript — 206 байт

Рубин, 57 байт

StringLength sets "lucky" до 1 в качестве побочного эффекта, затем мы увеличиваем его до тех пор, пока регулярное выражение не будет соответствовать LongestCommonSubsequence consecutive lucky characters no longer matches.

Хаскелл, 99

Другой подход... Я только что узнал о псевдонимах функций.

Использование

Математика, 86 байт

Код:

Объяснение:

$. returns the longest contiguous substring common to the input and $. . gets gives its length. b=gets.count'omen' $.+=1while/[lucky]{#$.}/ p 2**$./2-2*b подсчитывает количество вхождений символов r=>{var a="lucky";r:for(var e=5;e>0;e--)for(var n=0;6>n+e;n++){var o=a.substring(n,e+n);if(r.includes(o))break r}for(var t=0,e=0;e<r.length;e++)('omen'.indexOf(r[e])+1)&&t++;return Math.pow(2,o.length)-2*t} in the input.

Питон (139 байт)

TSQL, 233 байта

Гольф:

Не в гольфе:

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

Хаскелл (134 132 байта)

Я не игрок в гольф и не программист на Haskell, поэтому хотел бы получить несколько советов по этому поводу.

(Пример: String#count )

Python 3, 168 157 152 139 144 136 байт

РЕДАКТИРОВАТЬ: действительно очевидные вещи, которые мне следовало бы видеть проще, были изменены, а некоторые немного менее очевидны.

Редактировать 2: тупой (˚n˚). Программа выдавала ошибки. Я это исправил. не совсем 153 :(

Спасибо Leaky Nun за экономию 5 байт и jmilloy за экономию 13 8 байт.

Программа перебирает все возможные подстроки на входе (возможно, потому что она вычисляет и невозможные подстроки, например, от 8 до 7), проверяет, находится ли подстрока в «счастливом» состоянии, затем устанавливает показатель степени 2 равным длине подстрока должна быть больше текущего значения. Возможно, можно улучшить, используя только один цикл while. Возможно, можно было бы улучшить ситуацию; Я все еще разбираюсь в этом.

Программа PHP, 139 135 108 байт

квантовый скачок невозможен для нескольких подстрок, первое из которых короче. :(

^{на самом деле я мог бы сэкономить еще 7 байт в PHP<5.4 с включенным Register_globals}

использование: <input oninput=o.textContent=f(this.value)><pre id=o></pre>

+5 за функцию:

тесты (по функции)

Скала, 155 байт

C# (интерактивный компилятор Visual C#) с флагом Œv } # for each substring of input '¸éyåi } # if substring is part of "lucky" yˆ # add it to global array ¯é¤ # get the longest such substring go # raise 2 to its length ¹'ƒÖ¦Ã # remove all chars from input that isn't in "omen" g· # get length and multiply by 2 - # subtract # implicitly display , 99 bytes

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