Étant donné une chaîne set un entier positif N, dupliquez progressivement chaque caractère de plus en plus jusqu'à ce que des Ndoublons, puis restez en Ndouble jusqu'à ce que les Ncaractères soient éloignés de la fin, puis redescendez.

Par exemple, étant donné abaloneet 3:

a    we start with 1 copy
bb   then 2 copies
aaa  then 3 copies, which is our second parameter
lll  so we continue using 3 copies
ooo  until we reach the end
nn   where we use 2 copies
e    and then finally 1 copy

et le résultat serait abbaaalllooonne.

Il est garanti que la chaîne a une longueur supérieure à 2Net ne contient que des caractères de aà z.

Plus de tests:

N string       output
2 aaaaa        aaaaaaaa
3 abcdabcdabcd abbcccdddaaabbbcccdddaaabbbccd

C'est du code-golf . La réponse la plus courte en octets l'emporte. Des échappatoires standard s'appliquent.

Gelée , 6 octets

JṡFṢị⁸

Essayez-le en ligne!

Comment ça fonctionne

JṡFṢị⁸  Main link. Arguments: s (string), n (integer)

J       Get the indices of s.
 ṡ      Split the indices into overlapping chunks of length n.
  F     Flatten the array of chunks.
   Ṣ    Sort the resulting array of indices.
    ị⁸   Get the characters of s at these indices.

Exemple d'exécution

JṡFṢị⁸  "abalone", 3

J       [1, 2, 3, 4, 5, 6, 7].
 ṡ      [[1, 2, 3], [2, 3, 4], [3, 4, 5], [4, 5, 6], [5, 6, 7]]
  F     [1, 2, 3, 2, 3, 4, 3, 4, 5, 4, 5, 6, 5, 6, 7]
   Ṣ    [1, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 7]
    ị⁸  "abbaaalllooonne"

Python 2 , 57 octets

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

Essayez-le en ligne!

Aussi 57:

Python 2 , 57 octets

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

Essayez-le en ligne!

JavaScript (ES6), 67 65 octets

-2 octets grâce à la méthode plus courte de Chas Brown à l' aide min().

s=>n=>s.replace(/./g,(c,i)=>c.repeat(Math.min(i+1,s.length-i,n)))

Prend entrée dans la syntaxe corroyage: f("abalone")(3).

Extrait de test

f=
s=>n=>s.replace(/./g,(c,i)=>c.repeat(Math.min(i+1,s.length-i,n)))

<div oninput="O.value=f(S.value)(+N.value)">String: <input id=S> N: <input id=N size=3></div>Out: <input id=O size=50 disabled>

Gelée , 8 7 octets

J««U$⁸x

Essayez-le en ligne!

Comment ça fonctionne

J««U$⁸x - main link, input e.g. abalone
J        - range of length of letters: [1,2,3,4,5,6,7]
 «       - minimum of each term with second input: [1,2,3,3,3,3,3]
  «U$    - termwise minimum with the reverse: 
                    min([1,2,3,3,3,3,3],[3,3,3,3,3,2,1])=[1,2,3,3,3,2,1]
     ⁸x  - repeat each character of the input a number of times corresponding to elements:
                    a*1;b*2;a*3...e*1 = abbaaalllooonne

-1 octet grâce à @LeakyNun

Haskell , 61 60 octets

Merci à @Laikoni d'avoir aidé à raser 1 octet

n#s=do(i,c)<-zip[1..]s;replicate(minimum[n,i,length s-i+1])c

Essayez-le en ligne!

Non golfé:

(#) n string = do
    (i, char) <- zip [1..] string
    replicate (minimum [n, i, length(string)-i+1]) char

Haskell (Lambdabot), 74 octets

r=replicate
f x n=join$zipWith r([1..n]++r(length x-2*n)n++reverse[1..n])x

Essayez-le en ligne!

J, 24 octets

(<.&n<./(|.,:[)>:i.#s)#s

Le bit entre parenthèses - (<.&n<./(|.,:[)>:i.#s)- crée le 1 2 ... n n n ... 2 1tableau, comme suit:

                   #s    length of s, call it L
                 i.      numbers 0 1 ... L-1
               >:        increment by 1, now 1 2 ... L
        (|.,:[)          fork: |. = reverse, ,: = stack, [ = identity
                         resulting in  L ... 2 1
                                       1 2 ... L 
     <./                 min of each element of the top and bottom row
 <.&n                    min of each resulting elm and n

une fois que nous avons cela, l' #opérateur de J fait automatiquement exactement ce qui est demandé, en dupliquant chaque élément le nombre de fois spécifié.

Curieux de voir l'amélioration d'un expert J sur ce ...

PHP> = 7.1, 75 octets

for([,$a,$n]=$argv;--$z?:($x=$a[$i]).$z=min($n,strlen($a)-$i,++$i);)echo$x;

PHP Sandbox Online

PHP> = 7.1, 78 octets

for([,$a,$n]=$argv;~$x=$a[$i];)for($z=min($n,strlen($a)-$i,++$i);$z--;)echo$x;

PHP Sandbox Online

PHP> = 7.1, 80 octets

for([,$a,$n]=$argv;$i<$l=strlen($a);)echo str_repeat($a[$i],min($n,$l-$i,++$i));

PHP Sandbox Online

Japt , 11 10 octets

ËpVm°TEnUÊ

Essaye-le

Explication

Saisie implicite de chaîne Uet d'entier V.

Ë

Mappez Uet remplacez chaque personnage.

Vm

Obtenez le minimum de V, ...

°T

T(initialement 0) incrémenté de 1, ...

EnUÊ

Et l'index du caractère actuel ( E) soustrait de ( n) la longueur ( Ê) de U.

p

Répétez le caractère actuel autant de fois.

Sortie implicite de la chaîne finale.

R , 87 octets

function(N,s)paste(rep(strsplit(s,"")[[1]],c(1:N,rep(N,nchar(s)-2*N),N:1)),collapse="")

Essayez-le en ligne!

Python 2 68 octets

f=lambda s,n:''.join(s[i]*min(i+1,len(s)-i,n)for i in range(len(s)))

Husk , 10 9 octets

₁₁ṀR
↔z↑N

Essayez-le en ligne!

La première ligne est la fonction principale, elle répète chaque lettre n fois et appelle ensuite la deuxième ligne deux fois.

La deuxième ligne prend au plus N lettres de chaque groupe de lettres répétées, où N est l'index basé sur 1 du groupe, puis inverse la liste.

Haskell , 68 octets

g 1
g _""_=""
g i(a:b)n=(a<$[1..min(length b+1)$min i n])++g(i+1)b n

Essayez-le en ligne!

APL (Dyalog) , 15 octets

{⍵/⍨⍺⌊i⌊⌽i←⍳≢⍵}

{… } Fonction où l'argument gauche (cap) est ⍺ et l'argument droit (string) est ⍵ :

 ≢⍵ compter le nombre de caractères dans la chaîne

 ⍳ générer que beaucoup ɩ ntegers

 i← stocker dans i

 ⌽ sens inverse

 i⌊ par paire minimum avec i

 ⍺⌊ par paire minimum avec le capuchon

 ⍵/⍨ utilisez ces chiffres pour répliquer les lettres de la chaîne

Essayez-le en ligne!

F # , 96 octets

let f(s:string)n=Seq.mapi(fun i c->System.String(c,Seq.min[i+1;s.Length-i;n]))s|>String.concat""

Essayez-le en ligne!

Un port de Justin Mariners réponse javascript

Java (OpenJDK 8) , 101 97 octets

n->s->{int i=0,j;for(char c:s)for(j=s.length-i++,j=j<i?j:i,j=j<n?j:n;j-->0;)System.out.print(c);}

Essayez-le en ligne!

Tellement jouer avec les indices ...

L'ormeau est un type de poisson (enfin un coquillage) donc…

> <> , 79 octets

&i1\
0(?\:1+:&::&@)?$~i:@
&~}\&~1
0(?\:&::1+&@)?$~}}:
 ~r\
?!v>l?!;:o$1-:@
~~<^

Essayez-le en ligne ou regardez-le au terrain de pêche !

Lit la chaîne dans STDIN et suppose que le numéro est déjà sur la pile.

Explication: Les deuxième, quatrième et sixième lignes sont les principales boucles. Les détails sont une mauvaise manipulation de la pile, mais à grands traits, d'abord, la deuxième ligne remplit la pile en alternant entre un caractère d'entrée et min ( i ,  n ), où n est la longueur maximale et i est l'index du caractère dans l'entrée: pour "ormeau", 3, la pile ressemble à

"a", 1, "b", 2, "a", 3, "l", 3, "o", 3, "n", 3, "e", 3, -1=EOF, 3

Ensuite, la ligne 4 parcourt la pile de la même manière en sens inverse, pour obtenir le bout droit correctement plafonné:

"a", 1, "b", 2, "a", 3, "l", 3, "o", 3, "n", 2, "e", 1, -1

Ensuite, la sixième ligne prend chaque paire caractère-numéro et imprime le caractère autant de fois que le nombre.