Ada tantangan beberapa waktu lalu tentang mengalikan string. Ini menunjukkan kepada kita bagaimana kita dapat mengalikan bukan hanya angka, tetapi juga string. Namun, kami masih tidak dapat mengalikan angka dengan string dengan benar. Ada satu upaya untuk melakukannya tetapi ini jelas salah. Kita harus memperbaikinya!

Tugas Anda:

Tulis fungsi atau program yang mengalikan dua input, string dan integer. Untuk (dengan benar) mengalikan string dengan integer, Anda membagi string menjadi karakter, ulangi setiap karakter beberapa kali sama dengan integer, dan kemudian menempelkan kembali karakter tersebut. Jika bilangan bulat negatif, kami menggunakan nilai absolutnya di langkah pertama, dan kemudian membalikkan string. Jika inputnya 0, tidak menghasilkan apa-apa (apa pun yang dikalikan dengan 0 sama dengan tidak sama sekali).

Memasukkan:

String yang hanya terdiri dari karakter dan baris ASCII yang dapat dicetak, dan integer (mungkin negatif).

Keluaran:

String dikalikan dengan integer.

Contoh:

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

                               WWoorrlldd!!

Mencetak:

Ini adalah kode-golf , kemenangan jumlah byte terendah!

Jelly , 6 5 4 byte

²Ɠxm

Cobalah online!

Bagaimana itu bekerja

²Ɠ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 byte

Mengambil input dalam sintaks currying (s)(n).

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

Uji kasus

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 byte

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

Cobalah online!

Python 2 , 59 57 50 46 byte

-2 byte berkat Anders Kaseorg. -4 byte terima kasih kepada Dennis.

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

Cobalah online!

05AB1E , 10 byte

S²Ä×J²0‹iR

Cobalah online!

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 byte

y|Y"w0<?P

Inputnya adalah: angka, lalu string.

String dengan baris baru adalah input menggunakan arang 10sebagai berikut: ['first line' 10 'second line'].

Cobalah online! Atau verifikasi semua kasus uji .

Penjelasan

Pertimbangkan input -3dan '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 byte

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

Cobalah online!

Contoh penggunaan: f (-3) "abc"hasil "cccbbbaaa".

Edit: -5 byte terima kasih kepada xnor!

V , 29, 23, 18 , 17 byte

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

Cobalah online!

Hexdump:

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

Terima kasih kepada @ nmjcman101 untuk menghemat 6 byte, yang mendorong saya untuk menyimpan 5 byte lagi!

Revisi asli cukup mengerikan, tetapi sekarang saya sangat bangga dengan jawaban ini karena ternyata angka negatifnya sangat baik. (V tidak memiliki dukungan numerik dan tidak ada dukungan untuk angka negatif)

Penjelasan:

æ_          " 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

Pada titik ini, buffer terlihat seperti ini:

H
e
l
l
o

w
o
r
l
d
!
<cursor>

Penting untuk tidak mengikuti baris baru, dan bahwa kursor ada di sana.

À           " 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 byte

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

Fungsi anonim.

Frederic menyelamatkan 3 byte, Giuseppe menyelamatkan 2 4.

Penjelasan:

     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

Tes:

> 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 byte

0‹FR}ʒ¹Ä×?

Cobalah online!

Penjelasan

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 byte

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

PHP Sandbox Online

Brain-Flak (BrainHack) , 154 152 byte

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

Cobalah online!

Hanya di sini untuk memberikan beberapa kompetisi DJMcMayhem. ;)

Penjelasan

Inilah versi modifikasi dari penjelasan 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 byte

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

Cobalah online!

Penjelasan

        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 byte

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

String sebagai argumen kiri, angka sebagai argumen kanan.

Cobalah online!

Bagaimana?

⍺/⍨ - ulangi string

|⍵ - abs (jumlah) kali

⌽⍣ - balikkan jika

(⍵<0) - jumlahnya di bawah 0

MATLAB, 37 byte

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

Ini mendefinisikan dan fungsi anonim dengan input s: string dan n: nomor.

Contoh berjalan:

>> @(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 byte

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

Cobalah online!

Ini mungkin bahasa yang paling buruk untuk melakukannya, tapi sudah selesai. Terima kasih kepada @Wheatwizard karena menyediakan juru bahasa Haskell, yang memungkinkan format input campuran. Ini akan menjadi sekitar 150 byte lebih lama tanpanya.

Penjelasan:

#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 byte

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

Cobalah online!

• -2 byte terima kasih kepada @Xanderhall
• -2 byte berkat @Nevay

Oktaf , 49 byte

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

Cobalah online!

Saya akan memberikan penjelasan besok.

Ruby , 59 +1 = 60 byte

Menggunakan -nbendera

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

Cobalah online!

Arang , 16 byte

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

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan:

Ｆθ              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 byte

q~__*@e*%

Cobalah online!

Japt , 12 byte

®pVaìr!+sVg

Cobalah online!

Penjelasan

Input string Udan integer tersirat V.

®pVaÃ

Peta ( ®) setiap huruf U(secara implisit) ke dirinya sendiri berulang ( p) abs(V)( Va) kali.

¬r

Ubah string menjadi array karakter ( ¬) dan kurangi ( r) dengan ...

!+sVg

"!+".slice(sign(V))- ini dikurangi dengan +→ a + b, atau dengan !+→ b + a.
Terima kasih @Arnauld untuk ide pengurangan-mundur!

WendyScript , 46 byte

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

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

Cobalah online!

Penjelasan (Tidak Diikat):

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 byte

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

Saya melihat versi Ben Perlin dan bertanya-tanya apakah Anda masih bisa lebih pendek dan juga memiliki program lengkap; pasti, atoi()dan putchar()bukankah itu mahal dalam hal byte? Sepertinya saya benar!

Pyth, 13 11 byte

*sm*.aQdz._

Cobalah!

-2 byte terima kasih kepada @jacoblaw

penjelasan

*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 

pendekatan lama, 13 byte

_W<Q0sm*.aQdz

Cobalah!

Python 3 , 68 byte

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

Cobalah online!

QBIC , 32 byte

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

Penjelasan

            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 byte

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

memasukkan

["Hello World!", 3]

Braingolf , 22 byte

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

Cobalah online!

Eeh, tidak buruk.

Mengambil input sebagai integer dan array karakter.

Kalau tidak:

Braingolf , 31 byte

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

Cobalah online!

Mengambil input sebagai integer dan string

C, 109 byte

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

Dimulai dengan deklarasi fungsi yang mengambil int dan string dan menghasilkan string (tampaknya tersirat bahwa memori tidak dialokasikan dan harus dibuat) tampaknya pendekatan lurus ke depan lebih pendek daripada upaya untuk menjadi golok yang telah saya coba .

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;

}