Многие из вас, возможно, когда-то общались с людьми из России через Интернет, и некоторые из вас, возможно, заметили немного странный способ выражения себя.

например удали игру нуб)))

где )))добавлены акценты для предыдущего утверждения, я работаю над теорией, согласно которой отношение )«s» к остальной части строки прямо пропорционально количеству подразумеваемого акцента, однако мне часто бывает трудно вычислить отношение на лету, так как я также пытаюсь справиться с целым рядом злоупотреблений, поэтому я хотел бы, чтобы кратчайший код помог мне вычислить, какой должна быть полученная строка, для значения энтузиазма от 0 до 500%, учитывая исходный не вызывающая энтузиазма строка, это очень поможет моему исследованию, так как мне не придется печатать громоздкие сценарии каждый раз, когда я хочу проверить свою гипотезу.

Итак, задача:

написать полную программу или функцию, которая при условии двух аргументов, строки неизвестной длины и числа в целочисленном формате (от 0 до 500) или в десятичном формате (от 0 до 5 с 2 точками точности) будет

• Возвращение / отобразить исходную строку с буквой ряда )«с
• число будет вычислено как отношение числа ввода к длине строки.
• поэтому, если было указано число 200 или 2,00, к 200% строки следует добавить суффикс )«s».
• количество скобок, округленное до десятичного числа, не имеет значения.
• Сценарий необходим для поддержки печатных символов ASCII.
• должен поддерживать только один формат ввода номера, на ваш выбор.

Примеры:

"codegolf" 125      = codegolf))))))))))
"codegolf" 75       = codegolf))))))
"noob team omg" 0.5 = noob team omg))))))
"hi!" 4.99          = hi!)))))))))))))))

Пример кода (PowerShell) (с десятичным вводом):

Function Get-RussianString ([string]$InputStr,[decimal]$Ratio){
    $StrLen = $InputStr.Length
    $SuffixCount = $StrLen * $Ratio
    $Suffix = [string]::New(")",$SuffixCount)
    return $InputStr + $Suffix
}

Get-RussianString "codegolf" 0.5
codegolf))))

Это код-гольф, поэтому выигрывает самый короткий код!

Желе , 7 байт

ȮL×Ċ”)x

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

Использует десятичный формат.

Как?

ȮL×Ċ”)x - Main link: string, decimal
Ȯ       - print string
 L      - length(string)
  ×     - multiply by the decimal
   Ċ    - ceiling (since rounding method is flexible)
    ”)  - a ')' character
      x - repeated that many times
        - implicit print

Perl 6, 21 байт

{$^a~")"x$^b*$a.comb}

Обыкновенный Лисп, 59 52 50

Скобки? Я нахожусь в.

(lambda(s n)(format()"~a~v@{)~}"s(*(length s)n)0))

подробности

(lambda(s n)               ; two arguments (string and ratio)
  (format ()               ; format as string
          "~a~v@{)~}"      ; control string (see below)
          s                ; first argument (string)
          (* (length s) n) ; second argument (number of parens)
          0))              ; one more element, the value does not matter

Строка управления форматом

• ~a : довольно печатный аргумент (здесь данная строка)
• ~v@{...~}: блок итерации, ограниченный V итерацией, где V берется в качестве аргумента, а именно (* ...)выражения. Предполагается, что итерация выполняет итерацию по списку, но когда вы добавляете @модификатор, список является оставшимся списком аргументов функции форматирования. В итерированном списке должен быть хотя бы один элемент (в противном случае мы завершаем работу, игнорируя V). Вот почему есть дополнительный аргумент для формата (0).

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

Edit: спасибо Michael Vehrs за указание на то, что нет необходимости округлять числовой аргумент (вопрос позволяет урезать / округлить, как мы хотим, поэтому здесь работает стандартное поведение).

JavaScript ES6, 38 31 30 байт

s=>n=>s+')'.repeat(s.length*n)

f=s=>n=>s+')'.repeat(s.length*n)

console.log(f("hi!")(4.99))

Python 2 , 29 байт

lambda s,p:s+len(s)*p/100*')'

s в строке, p - это процент (целое число).

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

05AB1E , 9 8 байт

g*ï')×¹ì

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

g*       # Length, multiplied by emphasis.
  ï')×   # Covnerted to an integer, push that many parenthesis.
      ¹ì # Prepend original string.

Работает как для целых, так и для десятичных чисел, порядок аргументов: f(String, Double)

Python, 30 байт

lambda s,r:s+')'*int(len(s)*r)

Использует десятичный ввод.

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

Pyth, 8 байт

*\)s*lpz

Онлайн тест! Сначала берется коэффициент возбуждения, а затем струна, которая должна вызывать восторг.

Объяснение:

      pz  print out the enthused string
     l    ... and get its length
    *...Q multiply that by the ratio
   s      floor to get an integer, let's call this S
 \)       single-character string ")"
* ")" S   multiply that integer by the string, which gives a string of )s of length S.
          implicitly print that string of S )s.

PowerShell , 33 байта

$a,$b=$args;$a+')'*($b*$a.Length)

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

Поддерживает десятичный формат.

R, 62 46 42 байта

Анонимная функция, которая принимает строковые aи десятичные числа n, печатает вывод на стандартный вывод.

pryr::f(cat(a,rep(")",n*nchar(a)),sep=""))

Pyth, 9 байт

*s*lpzE")

Принимает две строки ввода: строка и соотношение (десятичное число).

Попробуйте это на pyth.herokuapp.com

объяснение

Aобозначает первый аргумент функции, Bее второй аргумент.

*s*lpzE")
    pz     # print the input string
   lAA     # take the length of the printed string
      E    # read the next line of input (the emphasis ratio)
  *AAAB    # multiply the length by the ratio
 sAAAAA    # floor the result
*AAAAAA")  # repeat ")" n times
           # implicit print

TI-Basic, 33 байта

Принимает десятичный ввод.

Prompt Str1,A
")
For(I,0,9
Ans+Ans
End
Str1+sub(Ans,1,AI

Perl 5, 29 байт

sub{($_=pop).')'x(y///c*pop)}

(Номер - первый аргумент, строка - второй.)

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

CJam , 9 байт

l_,ld*')*

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

Введите строку в первой строке, коэффициент выделения в диапазоне от 0 до 5 во второй.

объяснение

l    e# Read input string.
_,   e# Duplicate, get length.
ld   e# Read emphasis ratio.
*    e# Multiply by length.
')*  e# Get that many parentheses.

MATL, 11 10 8 байт

yn*:"41h

Это решение использует десятичную форму второго ввода

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

объяснение

        % Implicitly grab first input as a string
        % Implicitly grab the second input as a number
y       % Make a copy of the first input
n       % Compute the length of the string
*       % Multiply the decimal by the length to determine the # of )'s (N)
:       % Create the array [1...N]
"       % For each element in this array
  41    % Push 41 to the stack (ACSII for ")")
  h     % Horizontally concatenate this with the current string
        % Implicit end of for loop and display

сБ ~ 17 байт

i\,N?\;')'*(N*l(\

Разъяснение:

i\,N    input a string and a number
?\;     print the string
')'*    also print ) multiplied by...
(N*l(\  the number times the string length.

Скобки закрываются автоматически

Вот вывод компилятора, если вам интересно:

 INPUT  S$ ,N? S$ ;")"*(N* LEN(  S$ ))

Эта версия компилятора была написана 27.01.2017 в 23:12, что могло произойти через несколько минут после публикации этого вопроса. Итак, вот версия, которая работает на самой старой версии компилятора, написанной на час раньше: iS$,N?S$;')'*(N*l(S$))(22 байта)

PostgreSQL, 102 байта

create function q(text,int)returns text as $$select rpad($1,(100+$2)*length($1)/100,')')$$language sql

подробности

Использует целочисленный формат ввода.

Это просто добавляет правую строку ввода с паренсом к целевой длине.

create function q(text,int)
returns text as $$
    select rpad($1,             -- Pad the string input
        (100 + $2) *            -- to 100 + int input % ...
        length($1) / 100,       -- ...of the input string
        ')')                    -- with ) characters
$$ language sql

Вызывается с

select q('codegolf', 125), q('codegolf', 75);
select q('noob team omg', 50), q('hi!', 499);

Bash + coreutils, 45 байт

echo $1`seq -s\) $[${#1}*$2/100+1]|tr -cd \)`

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

Целочисленный ввод.

Groovy, 27 байт

Простое решение

{s,r->s+')'*(s.length()*r)}

Тестовая программа:

def f = {s,r->s+')'*(s.length()*r)}

println f("hi!", 4.99)
println f("noob team omg", 0.5)

Реболь, 39 байт

func[a b][append/dup a")"b * length? a]

Clojure, 40 байт

Довольно скучное решение:

#(reduce str %(repeat(*(count %)%2)")"))

Просто уменьшает strфункцию в списке закрывающих скобок со строкой в ​​качестве начального параметра.

Смотрите это онлайн: https://ideone.com/5jEgWS

Не очень скучное решение (64 байта):

#(.replace(str(nth(iterate list(symbol %))(*(count %)%2)))"(""")

Преобразует входной строки в символ (чтобы избавиться от кавычек) и повторно применяет функцию listна нем генерации бесконечной последовательности , как это: (a (a) ((a)) (((a))) ... ). Принимает nthэлемент преобразует его в строку и заменяет все открывающие скобки ничем.

Смотрите это онлайн: https://ideone.com/C8JmaU

SimpleTemplate, 92 байта

Принимает строку в качестве первого параметра и «коэффициент» в качестве второго.
Соотношение между 0 и 5, с двумя десятичными знаками.

{@echoargv.0}{@callstrlen intoL argv.0}{@set*Y argv.1,L}{@callstr_repeat intoO")",Y}{@echoO}

Как видите, это неоптимально.
Число 2 {echo}может быть уменьшено до 1.
Из-за ошибки в компиляторе этот код не может быть уменьшен намного дальше.

Ungolfed:

{@echo argv.0}
{@call strlen into length argv.0}
{@set* ratio argv.1, length}
{@call str_repeat into parenthesis ")", ratio}
{@echo parenthesis}

Если бы не было ошибки, код выглядел бы так: 86 байт:

{@callstrlen intoL argv.0}{@set*Y argv.1,L}{@callstr_repeat intoO")",Y}{@echoargv.0,O}

C # Интерактивный, 77 67 байт

string r(string s,int p)=>s+new string(')',(int)(s.Length*p/100d));

C # интерактив сладок.

SmileBASIC, 29 байт

INPUT S$,N?S$;")"*(LEN(S$)*N)

Gol> <> (Golfish), 17 байтов

i:a=?v
R*Il~/Hr)`

Попробуй это здесь .

Верхняя строка читает символы ( i) до тех пор, пока не найдет новую строку (ASCII 10, a), а затем идет вниз ( v).

Затем мы отбрасываем один символ (перевод строки) ~, нажимаем длину стека ( l), читаем число с плавающей точкой (I , увеличиваем ), умножаем два и многократно ( R) нажимаем символ ")" столько раз. Наконец, переверните stack ( r), выведите его и halt ( H).

PHP, 50 байт

<?=str_pad($s=$argv[1],strlen($s)*++$argv[2],")");

принимает в качестве аргументов командной строки строку и десятичное число; отрубы прокладки. Беги с -r;

сломать

<?=                     // print ...
str_pad(                    // pad
    $s=$argv[1],            // string=argument 1
    strlen($s)*++$argv[2],  // to string length*(1+argument 2) 
    ")"                     // using ")" as padding string
);

Рубин, 25 байт

->(s,n){s+')'*(s.size*n)}

Я использую лямбды . Тестовая программа будет выглядеть примерно так:

f=->(s,n){s+')'*(s.size*n)}
f.("codegolf", 1.5)        # => "codegolf))))))))))))"
f.("hi!", 4.99)            # => "hi!))))))))))))))"

Clojure, 68 байт

Анонимная функция, которая принимает десятичный ввод.

(fn [s n] (print (str s (reduce str (repeat (* n (count s)) ")")))))

Буквально первая программа на Лиспе, которую я когда-либо написал! Мне уже весело.

C ++ 14, 43 байта

Как и неназванная лямбда, изменяющая входные данные, предполагается, что sон похож на std::string(имеет .append(int,char)и предполагает pтип с плавающей запятой:

[](auto&s,auto p){s.append(s.size()*p,41);}

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

#include<string>
#include<iostream>

auto f=
[](auto&s,auto p){s.append(s.size()*p,41);}
;


int main() {
 std::string s = "abcdefghijk";
 f(s,0.75);
 std::cout << s << std::endl;
}

Haskell , 37 байт

s!n=s++([1..div(n*length s)100]>>")")

Попробуйте онлайн! Использование:"codegolf" ! 125

Версия, которая принимает десятичное число: (41 байт)

s!n=s++([1..n*toRational(length s)]>>")")

Попробуйте онлайн!Использование:"codegolf" ! 1.25