พวกคุณหลายคนอาจมีปฏิสัมพันธ์กับผู้คนจากรัสเซียบนอินเทอร์เน็ตในบางจุดและบางส่วนของคุณอาจสังเกตเห็นวิธีแปลก ๆ เล็กน้อยที่พวกเขาแสดงออก

เช่น удали игру нуб)))

ที่)))มีการเพิ่มเพื่อเน้นข้อความก่อนหน้านี้ฉันได้ทำงานในทฤษฎีที่อัตราส่วนของ)ต่อส่วนที่เหลือของสตริงเป็นสัดส่วนโดยตรงกับจำนวนการเน้นนัย แต่ฉันมักจะคิดว่ามันยากที่จะคำนวณอัตราส่วน ในขณะที่ฉันพยายามจัดการกับการใช้งานที่ไม่เหมาะสมดังนั้นฉันต้องการรหัสสั้นที่สุดที่เป็นไปได้เพื่อช่วยฉันคำนวณสิ่งที่สตริงผลลัพธ์ควรเป็นเพราะค่าความกระตือรือร้นระหว่าง 0 ถึง 500% ตามต้นฉบับ สตริง unenthusiastic นี้จะช่วยการวิจัยของฉันอย่างมากเพราะฉันจะไม่ต้องพิมพ์สคริปต์ขนาดใหญ่ทุกครั้งที่ฉันต้องการทดสอบสมมติฐานของฉัน

ดังนั้นความท้าทาย:

เขียนโปรแกรมหรือฟังก์ชั่นเต็มรูปแบบซึ่งให้สองข้อโต้แย้งสตริงที่ไม่รู้จักความยาวและตัวเลขในรูปแบบจำนวนเต็ม (ระหว่าง 0 และ 500) หรือในรูปแบบทศนิยม (ระหว่าง 0 และ 5 ด้วยความแม่นยำ 2 คะแนน)

• ผลตอบแทน / แสดงสายเดิม, suffixed กับจำนวนของ)'s
• จำนวนจะถูกคำนวณเป็นอัตราส่วนของจำนวนอินพุตต่อความยาวสตริง
• ดังนั้นถ้าจำนวน 200 หรือ 2.00 ถูกจัดให้ 200% ของสตริงจะต้องเป็น suffixed )'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 ซึ่งก็คือจำนวนของวงเล็บที่จะพิมพ์

แก้ไข: ขอบคุณ 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พิมพ์เอาต์พุตไปที่ 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)}

(Number คือ arg แรก, สตริงเป็นวินาที)

ลองออนไลน์!

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

คอมไพเลอร์รุ่นนี้เขียนเมื่อ 1/27/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)

Rebol ขนาด 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 โดยมีทศนิยม 2 ตำแหน่ง

{@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 # Interactive, 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) อ่าน float ( 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;
}

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