Багато хто з вас, можливо, спілкувався з людьми з Росії в Інтернеті в якийсь момент, і підмножина з вас, можливо, помітила дещо дивний метод вираження себе.

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

де )))додано для наголосу на попередньому твердженні, я працюю над теорією, що відношення )'s до решти рядка прямо пропорційне кількості наголошених наголосів, однак мені часто важко обчислити коефіцієнт на ходу, тому що я також намагаюся впоратися з великою кількістю зловживань, тому я хотів би, щоб якомога коротший код міг допомогти мені обчислити, якою має бути результат, для рівня ентузіазму від 0 до 500%, враховуючи оригінал , не захоплений рядок, це значно допоможе моїм дослідженням, оскільки мені не доведеться друкувати об'ємні сценарії кожного разу, коли я хочу перевірити свою гіпотезу.

Отже, завдання:

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

• повернути / відобразити початковий рядок, суфікс із числом )s
• число буде обчислено як відношення вхідного числа до довжини рядка.
• тож якщо було вказано число 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, також числом круглих дужок для друку.

Редагувати: дякую Майклу транспортному засобу, який вказав, що немає необхідності округляти числовий аргумент (питання дозволяє усікати / кругляти, проте ми хочемо, тому поведінка за замовчуванням працює тут).

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)

Пітон, 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, друкує вихід у stdout.

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

sB ~, 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))) ... ). Element nthElement перетворює його в рядок і замінює всі відкриті дужки нічим.

Дивіться це в Інтернеті: https://ideone.com/C8JmaU

SimpleTemplate, 92 байти

Приймає рядок як перший параметр, а "співвідношення" - як другий.
Співвідношення між 0 і 5, з 2 знаками після коми.

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

Як бачите, це неоптимально.
2 {echo}там можна зменшити до 1.
Через помилку у компіляторі цей код не можна значно зменшити.

Безголівки:

{@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) натискаємо символ ")", що багато разів. Нарешті, переверніть стек ( r), виведіть його та зупиніть ( 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)) ")")))))

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

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

Хаскелл , 37 байт

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

Спробуйте в Інтернеті! Використання:"codegolf" ! 125

Версія з десятковою цифрою: (41 байт)

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

Спробуйте в Інтернеті! Використання:"codegolf" ! 1.25