Учитывая 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.

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

принимает char [] и float и выводит в 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>

Витси, 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, если разрешены встроенные повторения строк :(

Рубин, 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 есть как оператор повторения строк, так xи оператор повторения списка xx.

Так как правила запрещают повторение строк, мы повторяем это, как если бы это был список из одного элемента. Затем список объединяется вместе и возвращается его подстрока.

Использование:

# 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 ".

Как это работает: cобъединяет бесконечные копии строки x. Он ведет себя как встроенный cycle. sum[1|a<-s]является пользовательской функцией длины, которая работает со строгой системой типов Haskell, поскольку она возвращает a Double(встроенная функция возвращает a, lengthна Intкоторый невозможно умножить n). #берет floor (n * length(s))символы из циклической строки s.

PHP 5, 96 87

9 байтов сохранено благодаря @manatwork

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

Довольно прямой ответ зацикливания.

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 для разделения строки на вектор необработанных. Он заполняется в массив длиной * l, преобразуется обратно в char и выводится.
Я собирался использовать 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

с (макрос препроцессора), 71

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

Не очень сложно здесь. Просто нужно убедитьсяl*m приведен к intперед сравнением с j.

Попробуйте онлайн.

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;

Un-golfed

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 байт

V*Elzp@zN

В основном просто делаю

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