มีเรื่องที่ท้าทายมานานแล้วเกี่ยวกับการคูณสตริง มันแสดงให้เราเห็นว่าเราสามารถคูณตัวเลขได้ไม่เพียง แต่ยังรวมถึงสตริงด้วย อย่างไรก็ตามเรายังไม่สามารถคูณจำนวนด้วยสตริงได้อย่างถูกต้อง มีความพยายามครั้งหนึ่งที่จะทำเช่นนั้น แต่สิ่งนี้ผิดอย่างเห็นได้ชัด เราจำเป็นต้องแก้ไขมัน!

งานของคุณ:

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

การป้อนข้อมูล:

สตริงที่ประกอบด้วยตัวอักษร ASCII ที่พิมพ์ได้และการขึ้นบรรทัดใหม่และเลขจำนวนเต็ม (ค่าลบที่เป็นไปได้)

เอาท์พุท:

สตริงคูณด้วยจำนวนเต็ม

ตัวอย่าง:

Hello World!, 3            --> HHHeeellllllooo   WWWooorrrlllddd!!!
foo, 12                    --> ffffffffffffoooooooooooooooooooooooo
String, -3                 --> gggnnniiirrrtttSSS
This is a fun challenge, 0 --> 
Hello
World!, 2                  --> HHeelllloo

                               WWoorrlldd!!

เกณฑ์การให้คะแนน:

นี่คือcode-golf , จำนวนไบต์ต่ำสุดที่ชนะ!

เยลลี่ , 6 5 4 ไบต์

²Ɠxm

ลองออนไลน์!

มันทำงานอย่างไร

²Ɠxm  Main link. Argument: n (integer)

²     Yield n².
 Ɠ    Read and eval one line of input. This yields a string s.
  x   Repeat the characters of s in-place, each one n² times.
   m  Takes each |n|-th character of the result, starting with the first if n > 0, 
      the last if n < 0.

JavaScript (ES6), 63 ไบต์

(s)(n)จะเข้าในไวยากรณ์ currying

s=>n=>[...s].reduce((s,c)=>n<0?c.repeat(-n)+s:s+c.repeat(n),'')

กรณีทดสอบ

let f =

s=>n=>[...s].reduce((s,c)=>n<0?c.repeat(-n)+s:s+c.repeat(n),'')

console.log(f(`Hello World!`)(3))
console.log(f(`foo`)(12))
console.log(f(`String`)(-3))
console.log(f(`This is a fun challenge`)(0))
console.log(f(`Hello
World!`)(2))

Python 3 , 44 ไบต์

f=lambda s,n:s and s[0]*n+f(s[1:],n)+s[0]*-n

ลองออนไลน์!

Python 2 , 59 57 50 46 ไบต์

-2 ไบต์ขอบคุณ Anders Kaseorg -4 ไบต์ขอบคุณเดนนิส

lambda s,n:''.join(i*n**2for i in s)[::n or 1]

ลองออนไลน์!

05AB1E , 10 ไบต์

S²Ä×J²0‹iR

ลองออนไลน์!

S          # Split the string into characters
 ²Ä×       # Repeat each character abs(integer) times
    J      # Join into a string
     ²0‹i  # If the integer is less than 0...
         R #   Reverse the string

MATL , 9 ไบต์

y|Y"w0<?P

อินพุตคือ: number จากนั้นสตริง

สตริงที่มีการขึ้นบรรทัดใหม่มีการป้อนข้อมูลโดยใช้ถ่านดังต่อไปนี้:10['first line' 10 'second line']

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย

พิจารณาปัจจัยการผลิตและ-3'String'

y      % Implicitly take two inputs. Duplicate from below
       % STACK: -3, 'String', -3
|      % Absolute value
       % STACK: -3, 'String', 3
Y"     % Run-length decoding
       % STACK: -3, 'SSStttrrriiinnnggg'
w      % Swap
       % STACK: 'SSStttrrriiinnnggg', -3
0<     % Less than 0?
       % STACK: 'SSStttrrriiinnnggg', 1
?      % If so
  P    %   Flip
       %   STACK: 'gggnnniiirrrtttSSS'
       % End (implicit). Display (implicit)

Haskell , 41 36 ไบต์

f n|n<0=reverse.f(-n)|1<3=(<*[1..n])

ลองออนไลน์!

ตัวอย่างการใช้งาน: อัตราผลตอบแทนf (-3) "abc""cccbbbaaa"

แก้ไข: -5 ไบต์ขอบคุณ xnor!

V , 29, 23, 18 , 17 ไบต์

æ_ñÀuñÓ./&ò
ÀäëÍî

ลองออนไลน์!

hexdump:

00000000: e65f f1c0 75f1 d32e 2f26 f20a c0e4 ebcd  ._..u.../&......
00000010: ee                                       .

ขอบคุณ @ nmjcman101 สำหรับการบันทึก 6 ไบต์ซึ่งสนับสนุนให้ฉันบันทึกอีก 5!

การแก้ไขดั้งเดิมนั้นแย่มาก แต่ตอนนี้ฉันภูมิใจในคำตอบนี้มากเพราะมันจัดการกับจำนวนลบได้อย่างน่าประหลาดใจ (V ไม่มีการสนับสนุนตัวเลขและไม่สนับสนุนตัวเลขติดลบ)

คำอธิบาย:

æ_          " Reverse the input
  ñ  ñ      " In a macro:
   À        "   Run the arg input. If it's positive it'll give a count. If it's negative
            "   running the '-' will cause V to go up a line which will fail since we're
            "   on the first line, which will break out of this macro
    u       "   (if arg is positive) Undo the last command (un-reverse the line)
      Ó./&ò " Put every character on it's own line

ณ จุดนี้บัฟเฟอร์จะมีลักษณะดังนี้:

H
e
l
l
o

w
o
r
l
d
!
<cursor>

เป็นสิ่งสำคัญที่จะไม่ขึ้นบรรทัดใหม่และเคอร์เซอร์อยู่บนนั้น

À           " Run arg again. If it's negative, we will move up a line, and then give the 
            " absolute value of the count. If it's positive (or 0) it'll just give the
            " count directly (staying on the last line)
 ä          " Duplicate... (count times)
  ë         "   This column. 
   Íî       " Remove all newlines.

R, 83 78 76 ไบต์

function(s,i)cat('if'(i<0,rev,`(`)(rep(el(strsplit(s,'')),e=abs(i))),sep='')

ฟังก์ชั่นไม่ระบุชื่อ

Frederic บันทึก 3 ไบต์ Giuseppe บันทึก2 4

คำอธิบาย:

     el(strsplit(s,''))                      # split string into list characters
 rep(                  ,e=abs(i)))           # repeat each character abs(i) times


    'if'(i<0,rev,   ){...}                 # if i>0, reverse character list
                 `(`                       # otherwise leave it alone: `(` is the identity function
cat(                      ,sep='')         # print the result

แบบทดสอบ:

> f('Hello World!', 3 )
HHHeeellllllooo   WWWooorrrlllddd!!!
> f('foo', 12)
ffffffffffffoooooooooooooooooooooooo
> f('String', -3)
gggnnniiirrrtttSSS
> f('This is a fun challenge', 0)
> f('Hello
+ World!', 2)
HHeelllloo

WWoorrlldd!!

05AB1E , 10 ไบต์

0‹FR}ʒ¹Ä×?

ลองออนไลน์!

คำอธิบาย

0‹F         # input_1 < 0 times do:
   R        # reverse input_2
    }       # end loop
     ʒ      # filter
      ¹Ä×   # repeat current char abs(input_1) times
         ?  # print without newline

PHP> = 7.1, 65 ไบต์

for([,$s,$n]=$argv;$i<strlen($s)*abs($n);)echo$s[$i++/$n-($n<0)];

PHP Sandbox ออนไลน์

Brain-Flak (BrainHack) , 154 152 ไบต์

([(({})(<()>))]<>)<>{({}()<([{}]()<([{}])>)<>({}<>)<>>)<>}{}<>{}<>({}<([][()]){{}({<({}<(({}<>)<>)>())>[()]}<{}{}>)([][()])}{}{}<>>){{}{({}<>)<>}(<>)}{}

ลองออนไลน์!

มาที่นี่เพื่อให้การแข่งขัน DJMcMayhem ;)

คำอธิบาย

นี่คือคำอธิบายของ DJMcMayhem ที่แก้ไขแล้ว

#Compute the sign and negative absolute value 
([(({})<(())>)]<>)<>{({}()<([{}]()<([{}])>)<>({}<>)<>>)<>}{}<>{}<>

#Keep track of the sign
({}<

    #For each char in the input string:
    ([][()])
    {
        {}

        #Push n copies to the alternate stack
        ({<({}<(({}<>)<>)>())>[()]}<{}{}>)

        #Endwhile
        ([][()])
    }{}{}<>

#Push the sign back on
>)

#If so...
{{}

    #Reverse the whole stack
    {({}<>)<>}

    #And toggle over, ending the loop
    (<>)
}

#Pop the counter off
{}

J , 19 15 13 ไบต์

(#~|)A.~0-@>]

ลองออนไลน์!

คำอธิบาย

        0-@>]      NB. first or last index depending on sign of right arg
     A.~           NB. get first or last Anagram of left arg
(#~|)              NB. copy left arg, absolute-value-of-right-arg times

Dyalog APL ขนาด 15 ไบต์

{⌽⍣(⍵<0)⊢⍺/⍨|⍵}

สตริงเป็นอาร์กิวเมนต์ซ้ายจำนวนเป็นอาร์กิวเมนต์ที่ถูกต้อง

ลองออนไลน์!

อย่างไร?

⍺/⍨ - ทำซ้ำสตริง

|⍵ - abs (จำนวน) ครั้ง

⌽⍣ - ย้อนกลับถ้า

(⍵<0) - ตัวเลขต่ำกว่า 0

MATLAB, 37 ไบต์

@(s,n)flip(repelem(s,abs(n)),(n<0)+1)

ฟังก์ชันนี้กำหนดและไม่ระบุชื่อพร้อมอินพุตs: string และn: number

ตัวอย่างการทำงาน:

>> @(s,n)flip(repelem(s,abs(n)),(n<0)+1)
ans = 
    @(s,n)flip(repelem(s,abs(n)),(n<0)+1)

>> f = ans;

>> f('String', 3)
ans =
SSStttrrriiinnnggg

>> f('String', -3)
ans =
gggnnniiirrrtttSSS

>> f('String', 0)
ans =
   Empty matrix: 1-by-0

Brain-Flak (Haskell) , 202 192 ไบต์

(({})<(([({})]<>)){({}()<([{}])<>({}<>)<>>)<>}{}([{}]<><{}>)([][()]){{}({<({}<(({}<>)<>)>[()])>()}<{}{}>)([][()])}{}{}<>>)([({}<(())>)](<>)){({}())<>}{}{((<{}>))<>{}}{}<>{}{{}{({}<>)<>}(<>)}{}

ลองออนไลน์!

นี่อาจเป็นภาษาที่แย่ที่สุดที่จะทำได้ แต่ก็เสร็จแล้ว ขอขอบคุณ @Wheatwizard ที่ให้บริการล่าม Haskell ซึ่งอนุญาตให้ใช้รูปแบบอินพุตแบบผสม นี่จะมีความยาวประมาณ 150 ไบต์หากไม่มีมัน

คำอธิบาย:

#Keep track of the first input (n)
(({})<

    #Push abs(n) (thanks WheatWizard!)
    (([({})]<>)){({}()<([{}])<>({}<>)<>>)<>}{}([{}]<><{}>)

    #For each char in the input string:
    ([][()])
    {
        {}

        #Push n copies to the alternate stack
        ({<({}<(({}<>)<>)>[()])>()}<{}{}>)

        #Endwhile
        ([][()])
    }{}{}<>

#Push the original n back on
>)

#Push n >= 0
([({}<(())>)](<>)){({}())<>}{}{((<{}>))<>{}}{}<>{}

#If so...
{{}

    #Reverse the whole stack
    {({}<>)<>}

    #And toggle over, ending the loop
    (<>)
}

#Pop the counter off
{}

Java (OpenJDK 8) , 99 98 89 87 85 ไบต์

s->n->{for(int i=s.length*(n<0?n:-n),r=n<0?0:~i;i++<0;)System.out.print(s[(i+r)/n]);}

ลองออนไลน์!

• -2 ไบต์ต้องขอบคุณ @Xanderhall
• -2 ไบต์ขอบคุณ @Nevay

อ็อกเทฟ 49 ไบต์

@(s,n){t=repmat(s,abs(n),1)(:)',flip(t)}{2-(n>0)}

ลองออนไลน์!

ฉันจะให้คำอธิบายในวันพรุ่งนี้

Ruby , 59 +1 = 60 ไบต์

ใช้-nธง

n=eval$_
a=$<.read
a.reverse!if n<0
a.chars{|i|$><<i*n.abs}

ลองออนไลน์!

ถ่าน 16 ไบต์

Ｆθ¿‹η0Ｆ±Ｉη←ιＦＩηι

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

Ｆθ              For each character in the input string
  ¿‹η0          If the input number is less than zero
      Ｆ±Ｉη      Repeat the negation of the input number times
          ←ι    Print the character leftwards (i.e. reversed)
      ＦＩη       Otherwise repeat the input number times
         ι      Print the character

CJam , 9 ไบต์

q~__*@e*%

ลองออนไลน์!

Japt , 12 ไบต์

®pVaìr!+sVg

ลองออนไลน์!

คำอธิบาย

การป้อนข้อมูลโดยนัยของสตริงและจำนวนเต็มUV

®pVaÃ

แผนที่ ( ®) จดหมายแต่ละฉบับของU(โดยนัย) ไปยังตัวเองซ้ำแล้วซ้ำอีก ( p) abs(V)( Va) ครั้ง

¬r

เปลี่ยนสตริงให้เป็นอาร์เรย์ของตัวอักษร ( ¬) และลด ( r) ที่มี ...

!+sVg

"!+".slice(sign(V))- นี้ทั้งช่วยลดด้วย+→ a + bหรือ→!+ ขอบคุณ @Arnauld สำหรับแนวคิดย้อนหลัง - ลด!b + a

WendyScriptขนาด 46 ไบต์

<<f=>(s,x){<<n=""#i:s#j:0->x?x>0n+=i:n=i+n/>n}

f("Hello World", -2) // returns ddllrrooWW  oolllleeHH

ลองออนไลน์!

คำอธิบาย (Ungolfed):

let f => (s, x) {
  let n = ""
  for i : s
    for j : 0->x
      if x > 0 n += i
      else n = i + n
  ret n
}

C89 ไบต์

main(int c,char**v){for(;*v[1];v[1]++)for(c=atoi(v[2]+(*v[2]=='-'));c--;)putchar(*v[1]);}

ฉันเห็นเวอร์ชันของ Ben Perlinและสงสัยว่าคุณจะสั้นลงหรือไม่และมีโปรแกรมเต็มรูปแบบ แน่นอนatoi()และputchar()ไม่แพงในแง่ของไบต์? ดูเหมือนว่าฉันถูก!

Pyth, 13 11 ไบต์

*sm*.aQdz._

ลองมัน!

-2 ไบต์ต้องขอบคุณ @jacoblaw

คำอธิบาย

*sm*.aQdz._   
  m     z     # map onto the input string (lambda var: d)
   *.aQd      # repeat the char d as often as the absolute value of the input number 
 s            # sum the list of strings into a single string
*        ._Q   # Multiply with the sign of the implicit input value: reverse for negative Q 

วิธีเก่า 13 ไบต์

_W<Q0sm*.aQdz

ลองมัน!

Python 3 , 68 ไบต์

h=lambda s,n:h(s[::-1],-n)if n<0 else s[0]*n+h(s[1:],n)if s else s*n

ลองออนไลน์!

QBICขนาด 32 ไบต์

g=sgn(c)[_l;||[:*g|?_sA,b*g,1|';

คำอธิบาย

            Takes inputs A$ ('Hello'), and c (-3) from the cmd line
g=sgn(c)    Save the sign of c          -1
[_l;||      FOR each char in A$
[:*g|       FOR the number of repetitions wanted    (ie: -3 * -1)
            Note that : reads a number from the cmd line, and c is the first 
            available variable to save it in after a and b got used as FOR counters.
            Also note that a negative value times the sign becomes positive.
?_s         PRINT a substring
  A         of A$
 ,b*g       startng at char n, where n is the first FOR loop counter times the sign
                That means that when c is negative, so is this. A negative starting index
                on Substring instructs QBIC to take from the right.
 ,1|        taking 1 char.
';          This bit injects a literal ; in the output QBasic, to suppress newlines om PRINT

Mathematica, 89 ไบต์

(T=Table;t=""<>T[s[[i]]~T~Abs@#2,{i,Length[s=Characters@#]}];If[#2>0,t,StringReverse@t])&

อินพุต

["Hello World!", 3]

Braingolf , 22 ไบต์

1-v{R.[v.R]v}R[v>R]v&@

ลองออนไลน์!

เอ๊ะไม่เลว

รับอินพุตเป็นจำนวนเต็มและอาร์เรย์ของอักขระ

อีกวิธีหนึ่งคือ:

Braingolf , 31 ไบต์

l1->[M]1-v&,{R.[v.R]v}R[v>R]v&@

ลองออนไลน์!

รับอินพุตเป็นจำนวนเต็มและสตริง

C, 109 ไบต์

char *f(int n, char *s){char *o=calloc(n,strlen(s)+1),*t=o;while(*s){for(int i=n;i--;)*t++=*s;s++;}return o;}

เริ่มต้นด้วยการประกาศฟังก์ชั่นที่ใช้ int และสตริงและสร้างสตริง (ดูเหมือนว่าโดยนัยว่าหน่วยความจำไม่ได้ถูกจัดสรรล่วงหน้าและจะต้องสร้างขึ้นมา) ดูเหมือนว่าวิธีการตรงไปข้างหน้านั้นสั้นกว่าความพยายามใด ๆ .

char *f(int n, char *s){
  char *o=calloc(n, strlen(s)+1),
    *t=o;

  while (*s) {
    for(int i=n; i--; )
      *t++=*s;
    s++;
  }

 return o;

}