문자열 s과 양의 정수가 주어지면 N, 복제 될 때까지 각 문자를 점점 더 많이 N복제 한 다음 문자가 끝에서 멀어 N질 때까지 복제본 을 유지 N한 다음 다시 내려갑니다.

예를 들어 given abalone및 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

결과는입니다 abbaaalllooonne.

문자열의 길이는 ~보다 길고 ~의 2N문자 만 보장 a됩니다 z.

더 많은 테스트 사례 :

N string       output
2 aaaaa        aaaaaaaa
3 abcdabcdabcd abbcccdddaaabbbcccdddaaabbbccd

이것은 code-golf 입니다. 바이트 단위의 최단 답변이 이깁니다. 표준 허점이 적용됩니다.

젤리 , 6 바이트

JṡFṢị⁸

온라인으로 사용해보십시오!

작동 원리

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.

샘플 런

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"

파이썬 2 , 57 바이트

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

온라인으로 사용해보십시오!

또한 57 :

파이썬 2 , 57 바이트

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

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 67 65 바이트

-2 덕분 바이트 의 Chas 브라운의 짧은 방법을 사용하여 min().

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

카레 구문으로 입력을 f("abalone")(3)받습니다 : .

테스트 스 니펫

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>

젤리 , 8 7 바이트

J««U$⁸x

온라인으로 사용해보십시오!

작동 원리

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

@LeakyNun 덕분에 -1 바이트

하스켈 , 61 60 바이트

1 바이트를 줄이는 데 도움을 준 @Laikoni에게 감사드립니다.

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

온라인으로 사용해보십시오!

언 골프 드 :

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

하스켈 (Lambdabot), 74 바이트

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

온라인으로 사용해보십시오!

J, 24 바이트

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

parens의 비트-- 다음과 같이 배열을 (<.&n<./(|.,:[)>:i.#s)만듭니다 1 2 ... n n n ... 2 1.

                   #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

일단 우리가 그것을 얻으면 J의 #연산자는 자동으로 요청한 것을 자동으로 수행하여 지정된 횟수만큼 각 요소를 복제합니다.

J 전문가의 개선 사항이 궁금합니다.

PHP> = 7.1, 75 바이트

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

PHP 샌드 박스 온라인

PHP> = 7.1, 78 바이트

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

PHP 샌드 박스 온라인

PHP> = 7.1, 80 바이트

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

PHP 샌드 박스 온라인

Japt , 11 10 바이트

ËpVm°TEnUÊ

그것을 테스트

설명

문자열의 암시 적 입력 U및 정수 V.

Ë

U모든 캐릭터를 매핑 하고 교체하십시오.

Vm

의 최소값을 얻으십시오 V...

°T

T(초기 0) 1 씩 증가 ...

EnUÊ

그리고 현재 문자의 색인 ( E)에서 ( n)의 길이 ( Ê)를 뺍니다 U.

p

현재 문자를 여러 번 반복하십시오.

최종 문자열을 내재적으로 출력합니다.

R , 87 바이트

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

온라인으로 사용해보십시오!

파이썬 2 68 바이트

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

껍질 , 10 9 바이트

₁₁ṀR
↔z↑N

온라인으로 사용해보십시오!

첫 번째 줄은 주요 기능이며 각 문자를 n 번 반복 한 다음 두 번째 줄을 두 번 호출합니다.

두 번째 줄은 반복되는 각 문자 그룹에서 최대 N 개의 문자를 가져옵니다. 여기서 N은 그룹의 1 기반 인덱스이며 목록을 반대로합니다.

하스켈 , 68 바이트

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

온라인으로 사용해보십시오!

APL (Dyalog) , 15 바이트

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

{… } 왼쪽 인수 (cap)가 ⍺ 이고 오른쪽 인수 (string)가 ⍵ 인 함수 :

 ≢⍵ 문자열의 문자 수를 센다

 ⍳ 많은 생성 ɩ의 ntegers을

 i←내가  저장

 ⌽ 역

 i⌊i  와의 쌍별 최소

 ⍺⌊ 캡과 최소 한쌍

 ⍵/⍨ 이 숫자를 사용하여 문자열의 글자를 복제하십시오

온라인으로 사용해보십시오!

F # , 96 바이트

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

온라인으로 사용해보십시오!

Justin Mariners 포트 자바 스크립트 답변

자바 (OpenJDK 8) , 101 97 바이트

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

온라인으로 사용해보십시오!

지수를 가지고 노는 것 ...

전복은 일종의 물고기 (물론 조개류)입니다.

> <> , 79 바이트

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

온라인으로 시도 하거나 물고기 놀이터 에서 시청하십시오 !

STDIN에서 문자열을 읽고 숫자가 이미 스택에 있다고 가정합니다.

설명 : 두 번째, 네 번째 및 여섯 번째 라인이 기본 루프입니다. 세부 사항은 추악한 스택 조작이지만 넓은 스트로크에서는 먼저 두 번째 줄이 입력 문자와 최소 문자 ( i ,  n )를 번갈아 가며 스택을 채 웁니다. 여기서 n 은 길이 캡이고 i 는 문자 색인 입력 : "전복", 3의 경우 스택은 다음과 같습니다.

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

다음으로, 라인 4는 같은 방식으로 스택을 거꾸로 진행하여 오른손 끝이 올바르게 캡핑되도록합니다.

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

그런 다음 여섯 번째 줄은 각 문자-숫자 쌍을 취하여 숫자만큼 문자를 인쇄합니다.