รับ 2 อินพุตสตริงและเลขทศนิยมส่งออกสตริงที่คูณด้วยตัวเลขนั้น

การจับคือจำนวนสามารถเป็นจำนวนลอยหรือจำนวนเต็ม

คุณควรเอาท์พุตfloor(n)เวลาสตริงและจากนั้นfloor((n-floor(n))*len(string))ตัวอักษรแรกอีกครั้ง

หมายเหตุอื่น ๆ :

• อินพุตจะไม่ลอยตัวเสมอไปอาจเป็น int ดังนั้น 1.5, 1 และ 1.0 จึงเป็นไปได้ทั้งหมด มันจะอยู่ในฐาน 10 เสมอและหากคุณต้องการข้อยกเว้นโปรดแสดงความคิดเห็น
• อินพุตสตริงอาจมีช่องว่างคำพูดและอักขระอื่น ๆ ไม่มีการขึ้นบรรทัดใหม่หรือตัวอักษรควบคุม
• ไม่มีบิวด์อินสำหรับการทำซ้ำสายโดยตรงแม้'a'*5จะอนุญาตให้ใช้การคูณสตริงเช่น python อย่างไรก็ตามอนุญาตให้เพิ่มสตริงได้

กรณีทดสอบ:

เครื่องหมายจุลภาคและช่องว่างแยกอินพุต

test case, 1 -> test case

case, 2.5 -> casecaseca

(will add more later), 0.3333 -> (will(space)

cats >= dogs, 0.5 -> cats >

หมายเหตุสุดท้าย:

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

เยลลี่ 5 ไบต์

×L}Rị

ไม่ใช้การซ้ำซ้อนในตัว ลองออนไลน์!

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

×L}Rị  Main link. Left input: n (multiplier). Right input: S (string)

 L}    Yield the length of S.
×      Multiply it with n.
   R   Range; turn n×len(S) into [1, ... floor(n×len(S))].
    ị  Retrieve the elements of S at those indices.
       Indices are 1-based and modular in Jelly, so this begins with the first and
       jump back after reaching the last.

Java 7, 89

void g(char[]a,float b){for(int i=0,l=a.length;i<(int)(l*b);)System.out.print(a[i++%l]);}

ใช้ถ่าน [] และลอยและส่งออกไปยัง STDOUT การวนลูปแบบพื้นฐาน

Pyth, 9 8

s@Lz*lzQ

บันทึก 1 ไบต์ขอบคุณ Pietu1998

ใช้floor(n * len(string))ตัวอักษรจากสตริงโดยใช้การจัดทำดัชนีตามวัฏจักร ฉันเชื่อว่าสิ่งนี้จะเทียบเท่าสูตรที่กำหนดไว้เสมอ

ชุดทดสอบ

JavaScript (ES6), 50 ไบต์

แก้ไข 2 fไบต์มากขึ้นที่จะรวมความหมายของฟังก์ชั่น น้อยกว่า 1 ไบต์โดยใช้คำแนะนำ @manatwork หมายเหตุ: การใช้~เรามีการวนซ้ำมากกว่าที่จำเป็น แต่นี่เป็นโค้ดกอล์ฟและนับ 1 ไบต์

f=(s,n,l=s.length*n)=>~n?f(s+s,n-1,l):s.slice(0,l)

ทดสอบ

f=(s,n,l=s.length*n)=>~n?f(s+s,n-1,l):s.slice(0,l)

//TEST
console.log=x=>O.textContent+=x+'\n'
;[
 ['test case', 1, 'test case'],
 ['case', 3.5, 'casecasecaseca'],
 ['(will add more later)', 0.3333, '(will '],
 ['cats >= dogs', 0.5, 'cats >']]
.forEach(t=>{
  var s=t[0],n=t[1],x=t[2],r=f(s,n);
  console.log("«"+s+"» "+n+' => «'+r+'» '+(x==r?'OK':'FAIL expected '+x));
 })

<pre id=O></pre>

Vitsy, 9 ไบต์

คาดหวังคำว่าเป็นอาร์กิวเมนต์และจำนวนที่จะคูณด้วยผ่าน STDIN

zlW*\[DO{]
z          Grab all string argument input.
 l         Get the length of the stack.
  W        Parse STDIN.
   *       Multiply the top two items (length of string and the number of repetitions)
    \[   ] Do the stuff in the loop.
      DO{  Output one char at a time, making sure to duplicate first.

ลองออนไลน์!

CJam, 10 ไบต์

l_,l~*,\f=

สตริงจะถูกส่งไปที่บรรทัดแรกของ STDIN ซึ่งเป็นทศนิยมบนบรรทัดที่สอง

ทดสอบที่นี่

คำอธิบาย

l    e# Read string.
_,   e# Duplicate and get its length.
l~   e# Read second line and evaluate.
*    e# Multiply them. If the result, N, was floored it would give us the number of
     e# characters in the required output.
,    e# Get range [0 1 ... ⌊N⌋-1].
\f=  e# For each character in that range, fetch the corresponding character from the
     e# string using cyclic indexing.

Python 2, 71 ไบต์

lambda s,x:"".join(s for i in range(int(x)))+s[:int(len(s)*(x-int(x)))]

ลองที่นี่!

สร้างแลมบ์ดาที่ไม่มีชื่อซึ่งรับค่าสตริงเป็นอาร์กิวเมนต์แรกและลอยเป็นวินาที ส่งคืนสตริงซ้ำ

นี่อาจเป็น 46 ถ้าอนุญาตการสร้างสายอักขระซ้ำภายใน :(

Ruby, 49 48 ตัวอักษร

->s,n{(0...(n*l=s.size).to_i).map{|i|s[i%l]}*''}

วิ่งตัวอย่าง:

2.1.5 :001 > ->s,n{(0...(n*l=s.size).to_i).map{|i|s[i%l]}*''}['case', 2.5]
 => "casecaseca" 

Perl 6 ,  46 41   39 ไบต์

{([~] $^a xx$^b)~$a.substr(0,$a.chars*($b%1))}    # 46 bytes
{substr ([~] $^a xx$^b+1),0,$a.chars*$^b}         # 41 bytes
{substr ([~] $^a xx$^b+1),0,$a.comb*$b}           # 39 bytes

Perl 6 มีทั้งผู้ประกอบการสตริงซ้ำและผู้ประกอบการรายชื่อซ้ำxxx

เนื่องจากกฎไม่อนุญาตการทำซ้ำสตริงเราจึงทำซ้ำราวกับว่ามันเป็นรายการองค์ประกอบเดียวแทน จากนั้นรายการจะถูกรวมเข้าด้วยกันและสตริงย่อยของมันจะถูกส่งกลับ

การใช้งาน:

# give it a lexical name
my &code = {substr ([~] $^a xx$^b+1),0,$a.chars*$^b}
#          {substr ($^a x$^b+1),0,$a.chars*$^b}

say code('test case', 1).perl;                  # "test case"
say code('case', 2.5).perl;                     # "casecaseca"
say code('(will add more later)', 0.3333).perl; # "(will "
say code('cats >= dogs', 0.5).perl;             # "cats >"

osascript, 173 ไบต์

โอ้วันนี้มันแย่กว่าที่ฉันคิด

on run a
set x to a's item 1's characters
set y to a's item 2
set o to""
set i to 1
set z to x's items's number
repeat y*z
set o to o&x's item i
set i to i mod z+1
end
o
end

ส่งคืนค่าของสตริงซึ่งเป็นอีกคำตอบหนึ่งที่ใช้การจัดทำดัชนีตามวัฏจักร "string" "repetitions"คาดว่าการป้อนข้อมูลเป็น

Haskell, 44 ไบต์

c x=x++c x
s#n=take(floor$n*sum[1|a<-s])$c s

ตัวอย่างการใช้: "(will add more later)" # 0.3333->"(will " ->

How it works: c concatenates infinite copies of the string x. It behaves like the built-in cycle. sum[1|a<-s] is a custom length function that works with Haskell's strict type system as it returns a Double (the built-in length returns an Int which cannot be multiplied with n). # takes floor (n * length(s)) characters from the cycled string s.

PHP 5, 96 87

9 bytes saved thanks to @manatwork

<?for($i=$z=0;$i++<floor(strlen($a=$argv[1])*$argv[2]);$z++)echo$a[$z]?:$a[$z=0‌​];

Pretty straight forward looping answer.

Ungolfed

<?
$a=$argv[1];
$z=0;
for($i=0; $i < floor(strlen($a)*$argv[2]); $i++) {
    // if the string offset is not set
    // then reset $z back to 0 so we can
    // echo the beginning of ths string again
    @$a[$z] ?: $z=0;
    echo $a[$z];
    $z++;
}

R, 59 ไบต์

function(s,l)cat(rawToChar(array(charToRaw(s),nchar(s)*l)))

เป็นฟังก์ชั่นที่ไม่มีชื่อ สิ่งนี้ใช้ charToRaw เพื่อแยกสตริงเป็นเวกเตอร์ของ raws สิ่งนี้ถูกเติมลงในอาร์เรย์ที่มีความยาว * l แปลงกลับเป็นอักขระถ่านและเอาต์พุต
ฉันกำลังจะใช้ strsplit แต่ท้ายที่สุดมันก็นานขึ้น

ทดสอบ

> f=
+ function(s,l)cat(rawToChar(array(charToRaw(s),nchar(s)*l)))
> f('test case', 1) # -> test case
test case
> f('case', 2.5) # -> casecaseca
casecaseca
> f('(will add more later)', 0.3333) # -> (will(space)
(will 
> f('cats >= dogs', 0.5) # -> cats >
cats >
> 

Perl, 51 + 3 = 54 ไบต์

$l=<>*y///c;for$i(1..$l){push@a,/./g}say@a[0..$l-1]

ต้องการ: -n, -lและ-M5.010| -E:

 $ perl -nlE'$l=<>*y///c;for$i(1..$l){push@a,/./g}say@a[0..$l-1]' <<< $'test case\n1'
 test case
 $ perl -nlE'$l=<>*y///c;for$i(1..$l){push@a,/./g}say@a[0..$l-1]' <<< $'case\n2.5'
 casecaseca
 $ perl -nlE'$l=<>*y///c;for$i(1..$l){push@a,/./g}say@a[0..$l-1]' <<< $'(will add more later)\n0.3333'
 (will 
 $ perl -nlE'$l=<>*y///c;for$i(1..$l){push@a,/./g}say@a[0..$l-1]' <<< $'cats >= dogs\n0.5'
 cats >

คำอธิบาย:

$l=<>*y///c;              # Calculate output length (eg. 2.5 * input length)
for$i(1..$l){push@a,/./g} # Push a lot of chars from input into @a
say@a[0..$l-1]            # Slice @a according to output length

c (มาโครตัวประมวลผลล่วงหน้า), 71

j,l;
#define f(s,m) l=strlen(s);for(j=0;j<(int)(l*m);)putchar(s[j++%l])

ไม่ยุ่งยากมากที่นี่ เพียงแค่ต้องให้แน่ใจว่าl*mถูกโยนไปยังก่อนที่จะเปรียบเทียบกับintj

ลองออนไลน์

Oracle SQL 11.2 154 152 ไบต์

WITH v(s,i)AS(SELECT SUBSTR(:1,1,FLOOR(FLOOR((:2-FLOOR(:2))*LENGTH(:1)))),1 FROM DUAL UNION ALL SELECT :1||s,i+1 FROM v WHERE i<=:2)SELECT MAX(s)FROM v;

ยกเลิกแข็งแรงเล่นกอล์ฟ

WITH v(s,i) AS
(
  SELECT SUBSTR(:1,1,FLOOR(FLOOR((:2-FLOOR(:2))*LENGTH(:1)))),1 FROM DUAL 
  UNION ALL 
  SELECT :1||s,i+1 FROM v WHERE i<=:2
)
SELECT MAX(s) FROM v;

ฉันไปวนซ้ำด้วยการเริ่มต้นเลือกการดูแลส่วนทศนิยม

บันทึก 2 ไบต์ด้วย @MickyT

อย่างจริงจัง 24 ไบต์

,╗,mi@≈╜n╜l(*≈r`╜E`MΣ)kΣ

ลองออนไลน์!

คำอธิบาย:

,╗,mi@≈╜n╜l(*≈r`╜E`MΣ)kΣ
,╗                        get first input (string) and push it to register 0
  ,mi@≈                   get input 2 (x), push frac(x) (f), int(x) (n)
       ╜n                 push n copies of the string
         ╜l(*≈            push length of string, multiply by f, floor (substring length) (z)
              r`╜E`MΣ     push s[:z]
                     )kΣ  move fractional part of string to bottom, concat entire stack

Pyth, 9 bytes

V*Elzp@zN

Basically just doing

             z = input()
V*Elz        for N in range(evaluatedInput()*len(z)):    # flooring is automatic
     p@zN        print(z[N], end="")                     # modular indexing