이 과제에서는 다음과 같은 여러 줄 ASCII 아트를 입력으로 사용해야합니다.

 OOOOOO  OOOOOO  OOOOOO  OOOOOOO      OOOOOO   OOOOOO  OO      OOOOOOO 
OO      OO    OO OO   OO OO          OO       OO    OO OO      OO      
OO      OO    OO OO   OO OOOOO       OO   OOO OO    OO OO      OOOOO   
OO      OO    OO OO   OO OO          OO    OO OO    OO OO      OO      
 OOOOOO  OOOOOO  OOOOOO  OOOOOOO      OOOOOO   OOOOOO  OOOOOOO OO      

또한 입력으로 정수를 가져옵니다. 정수로 지정된 양만큼 ASCII 아트를 출력해야합니다. 예를 들어의 두 번째 인수를 사용한 경우 3출력은

   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO                  OOOOOOOOOOOOOOOOOO         OOOOOOOOOOOOOOOOOO      OOOOOO                  OOOOOOOOOOOOOOOOOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO                  OOOOOOOOOOOOOOOOOO         OOOOOOOOOOOOOOOOOO      OOOOOO                  OOOOOOOOOOOOOOOOOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO                  OOOOOOOOOOOOOOOOOO         OOOOOOOOOOOOOOOOOO      OOOOOO                  OOOOOOOOOOOOOOOOOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO                              OOOOOO                     OOOOOO            OOOOOO   OOOOOO                  OOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO                              OOOOOO                     OOOOOO            OOOOOO   OOOOOO                  OOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO                              OOOOOO                     OOOOOO            OOOOOO   OOOOOO                  OOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOOOOOOOOOOO                     OOOOOO         OOOOOOOOO   OOOOOO            OOOOOO   OOOOOO                  OOOOOOOOOOOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOOOOOOOOOOO                     OOOOOO         OOOOOOOOO   OOOOOO            OOOOOO   OOOOOO                  OOOOOOOOOOOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOOOOOOOOOOO                     OOOOOO         OOOOOOOOO   OOOOOO            OOOOOO   OOOOOO                  OOOOOOOOOOOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO                              OOOOOO            OOOOOO   OOOOOO            OOOOOO   OOOOOO                  OOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO                              OOOOOO            OOOOOO   OOOOOO            OOOOOO   OOOOOO                  OOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO                              OOOOOO            OOOOOO   OOOOOO            OOOOOO   OOOOOO                  OOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO                  OOOOOOOOOOOOOOOOOO         OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO   OOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO                  OOOOOOOOOOOOOOOOOO         OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO   OOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO                  OOOOOOOOOOOOOOOOOO         OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO   OOOOOO

특히, 각 문자는로 설정해야합니다 n의해 n해당 문자의 상자 n정수의 인수이다. 예를 들어,

ab
cd

3은

aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다.

APL, 7 자 / 바이트 *

{⍺/⍺⌿⍵}

숫자와 입력 문자열을 매개 변수로 사용하고 결과를 반환하는 함수 :

      a
abcde
fghij
      2 {⍺/⍺⌿⍵} a
aabbccddee
aabbccddee
ffgghhiijj
ffgghhiijj
      3 {⍺/⍺⌿⍵} a
aaabbbcccdddeee
aaabbbcccdddeee
aaabbbcccdddeee
fffggghhhiiijjj
fffggghhhiiijjj
fffggghhhiiijjj

^{* : APL 기호를 상위 128 바이트 값에 매핑하는 자체 (레거시) 단일 바이트 문자} 집합으로
^{APL을 작성할 수 있습니다. 따라서 스코어링을 위해 ASCII 문자와 APL 기호 만 사용하는 N 문자 프로그램은 N 바이트 길이로 간주 될 수 있습니다.}

GolfScript, 20 자

n%(~{.{*}+@1/%n+*}+/

STDIN에서 모든 입력을 가져옵니다. 첫 번째 라인은 스케일링 계수이고 나머지는 멀티 라인 입력입니다. 온라인 에서 예제를 시도 할 수 있습니다 .

입력

3
ab
cd

산출

aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

암호

n%            # Split the input into separate lines
(~            # Take the first line and evaluate (factor)
{             # {...}+/ adds the factor to the code block and loops over
              # the remaining lines (i.e. the factor will be the top of stack
              # for each line of input
   .{         # Same thing, duplicate factor and add it to code block and
              # loop over each character (1/ splits the string into chars)
     *        # multiply single-char string with factor
   }+@1/%
   n+         # Join string by adding a newline
   *          # Multiply the line by the factor (left from the . operation)
}+/

J, 20 17 자

f=.([#&.|:#)];._2

f필요한 것을 수행 하는 동사 를 정의 합니다. 용법:

   3 f a
aaaccc
aaaccc
aaaccc
bbbddd
bbbddd
bbbddd

a입력 문자열은 어디에 있습니까 ?
Windows에서 \r다음 을 제거하려면 추가 문자가 필요합니다 .

f=.([#&.|:#)}:;._2

설명 :

];._2문자열의 마지막 문자를 기반으로 입력 문자열을 청크로 잘라냅니다 (이 경우에는) \n. 윈도우있다 \r\n그래서 우리는 사용할 필요가 }:여분의 캐릭터를 잘게 : }:;._2. 동사 문서 컷

나머지 코드 (할당 제외 f=.)는 포크 입니다.
다음과 같이 분류됩니다.[ #&.|: #

경우 a계산이 될 것입니다 우리의 입력 문자열은 3 # a(우리는이 결과를 부를 것이다 x, 다음) 3 [ a(우리는이 결과를 부를 것이다 y다음) y #&.|: x.

3 # a의 모든 회원의 사본을 3 개만 만듭니다 a. 복사 동사 문서는
이 켜집니다

ab
cd

으로

aaabbb
cccddd

3 [ a그냥 3을 반환 합니다.

마지막 y #&.|: x입니다 y전치 아래에 복사합니다 x. #이전처럼 작동하지만이 &.|:J를 알려줍니다 먼저 입력을 바꾸어 다음이 완료 때 그것을 다시 트랜스합니다. 공동 문서 에서 동사 문서를 바꿉니다 .

조옮김

aaabbb
cccddd

으로

ac
ac
ac
bd
bd
bd

그런 다음 사본이

aaaccc
aaaccc
aaaccc
bbbddd
bbbddd
bbbddd

다시 바꾸면

aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

하스켈, 49 바이트

x=(=<<).replicate
e n=unlines.x n.map(x n).lines

확대 함수는입니다 e. 카운트와 문자열을 받아서 문자열을 반환합니다.

λ: putStrLn $ e 3 "ab\ncd\n"
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

APL, 11 자

J에서 @Gareth는 본질적으로 똑같은 일을 먼저 했으므로이 APL 항목은 경쟁이 아닌 전시회를위한 것입니다-그는 승자입니다.

      E←{⍉⍺/⍉⍺/⍵}

사용법 : 왼쪽 arg (⍺)의 배율, 오른쪽 arg (⍵)의 2d 문자 행렬 형태의 아트입니다.
⍺ / ⍵는 벡터 또는 행렬의 각 행에 걸쳐 요소를 복제합니다 (2 / 'OO'는 'OO OO'가 됨).
⍉⍺ / ⍉는 그것을 바꾸고, 요소를 복제하고, 그것을 바꿉니다.

(프로그램 길이 대신 명확성을 위해 코드가 E ← {⍺ / [1] ⍺ / ⍵} 일 수 있음)

      I←5 32⍴' OOOOOO  OOOOOO  OOOOOO  OOOOOOOOO      OO    OO OO   OO OO     OO      OO    OO OO   OO OOOOO  OO      OO    OO OO   OO OO      OOOOOO  OOOOOO  OOOOOO  OOOOOOO'
      I
 OOOOOO  OOOOOO  OOOOOO  OOOOOOO
OO      OO    OO OO   OO OO     
OO      OO    OO OO   OO OOOOO  
OO      OO    OO OO   OO OO     
 OOOOOO  OOOOOO  OOOOOO  OOOOOOO

      3 E I
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO               
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO               
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO               
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOOOOOOOOOOO      
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOOOOOOOOOOO      
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOOOOOOOOOOO      
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO               
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO               
OOOOOO                  OOOOOO            OOOOOO   OOOOOO         OOOOOO   OOOOOO               
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO
   OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOO      OOOOOOOOOOOOOOOOOOOOO

배쉬 / sed 스크립트, 48 자

printf -vr %$1s
sed -n s/./${r// /&}/g${r// /;p}

스크립트로 저장 chmod +x하고 다음을 실행하십시오.

$ ./asciiexpand 3 <<< $'ab\ncd'
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd
$ 

어떻게 작동합니까?

그것의 고기는 sed명령에 있습니다. 예를 들어, n = 3이면 sed 명령이 다음과 같이 확장됩니다.

sed -n 's/./&&&/g;p;p;p'

이 복합 sed명령은 다음과 같이 나눌 수 있습니다.

• s/./&&&/g -이 대체 명령은 각 문자를 일치시키고 3 번 반복되는 문자로 바꿉니다.
• 3x p명령-전체 패턴 공간 (즉, 현재 줄)을 3 번 인쇄합니다.

우리는 -n명시 적으로 지시하지 않는 한 아무 것도 인쇄하지 말라고 sed에 전달 하므로 인쇄되는 내용과 몇 번을 완벽하게 제어 할 수 있습니다.

에서 임의 길이의 반복 문자열을 직접 생성하는 빠른 방법을 알 수 없으므로 대신 sed몇 가지 bash트릭을 사용했습니다.

printf -vr "%3s"

이렇게하면 3 개의 선행 공백이있는 문자열 (지정되지 않음, 즉 비어 있음)이 인쇄되고 결과가 bash변수에 지정 r됩니다.

그런 다음 bash매개 변수 확장을 사용 하여이 공백 문자열을 sed표현식으로 대체해야하는 것으로 변환합니다 .

$ echo ${r// /&}
&&&
$ echo ${r// /;p}
;p;p;p
$ 

셸 에서 이스케이프 처리 할 필요가 없으므로 printf형식 지정자와 sed표현식 주위에 따옴표를 제거 할 수있었습니다 bash.

문자 수 :

$ submission='r=`printf %$1s`
> sed -n s/./${r// /&}/g${r// /;p}'
$ echo ${#submission}
48
$ 

PERL,  41 39 25   22 자

간단하고 효과적인 PERL-작업에 맞게 생성되었습니다. 호출 할 때 -pi3, 어디 3매개 변수입니다 n:

s/./$&x$^I/ge;$_ x=$^I

클래식 솔루션 (39 자) :

$n=<>;print map{s/./$&x$n/ge;"$_"x$n}<>

고전적인 솔루션 n은 입력이 첫 번째 입력 라인에 지정되어 있어야합니다 . 예 :

3
ab
cd

$&트릭에 대한 @manatwork 감사합니다 .

루비 :  64  49 자

STDIN에 수신 된 모든 데이터 : 먼저 스케일링 계수에 이어 ASCII 아트를 표시합니다.

BEGIN{n=gets.to_i}
$_=[$_.gsub(/./){$&*n}]*n*$/

샘플 실행 :

bash-4.2$ ruby -lpe 'BEGIN{n=gets.to_i};$_=[$_.gsub(/./){$&*n}]*n*$/' <<< '3
> ab
> cd'
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

루비 :  44  41 자

모든 입력 라인이 라인 분리 자로 종료되었다고 가정하십시오. @Ventero에게 감사합니다.

$.<2?n=$_.to_i: $><<$_.gsub(/./){$&*n}*n

샘플 실행 :

bash-4.2$ ruby -ne '$.<2?n=$_.to_i: $><<$_.gsub(/./){$&*n}*n' <<< '3
> ab
> cd'
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

파이썬 3-84

그럼에도 불구하고 가장 짧지는 않지만 다른 대답입니다. 흥미로운 원 라이너.

n=int(input())
for i in eval(input()):print(((''.join(j*n for j in i)+'\n')*n)[:-1])

숫자를 먼저 입력 한 다음 ASCII 아트를 Python 목록으로 입력하십시오. 예 :

C:\Users\User4\Desktop>c:/python33/python.exe golf.py
3
["aabb","bbcc","ccdd"]
aaaaaabbbbbb
aaaaaabbbbbb
aaaaaabbbbbb
bbbbbbcccccc
bbbbbbcccccc
bbbbbbcccccc
ccccccdddddd
ccccccdddddd
ccccccdddddd

GolfScript, 29 자

{:i;n/{1/:c;{c{i*}/n}i*}/}:f;

이것은 f호출 될 때 원하는 출력을 생성 하는 블록을 정의합니다 . 인수가 스택에 있다고 가정합니다 (기본적으로 GolfScript에서 인수가 전달되는 방식이기 때문에).

Ungolfed (그 말이 이해가 되나요? : P) :

{:i;n/{ # for each line...
  1/:c; # save characters of string in c
  {     # i times...
    c{  # for each character...
      i*
    }/
    n
  }i*
}/}:f;


# Test run
"ab
cd" 3 f

골프 스크립트, 23 자

~(:i;n/{{{.}i*}:c%c}%n*

익명 함수보다 오버 헤드가 적기 때문에 전체 프로그램을 작성하기로 결정했습니다.

• ~(:i;-입력을 평가 한 다음 승수를 줄인 후 그대로 저장 i하고 버립니다.
• n/{...}%n* -줄 바꿈으로 나누고, 각 줄을 매핑하고, 줄 바꿈으로 결합하십시오.
  • {...}:c%c,-블록을 가져 와서 각 요소에 적용 한 다음 전체 라인에 적용하십시오.
    • {.}i*-이 요소 i시간을 복제

라이브 데모 : http://golfscript.apphb.com/?c=OyciYWJjCmRlZiIzJwp%2BKDppO24ve3t7Ln1pKn06YyVjfSVuKg%3D%3D

사용법 예 :

;'"abc
def"3'
~(:i;n/{{{.}i*}:c%c}%n*

파이썬 3 - 109 107 93

i=input;n,s,a=int(i()),i(),[]
while s:a+=[''.join(c*n for c in s)]*n;s=i()
print('\n'.join(a))

먼저 숫자를 입력 한 다음 문자열을 입력하십시오. 설명이 필요하다 ...

제거를 제안한 Waleed Khan에게 감사합니다. []

a목록 을 제안한 변동성에 감사 합니다.

자바-217

먼저 골프를 봅니다. Java가 언어가 아닌 것 같습니다.

enum M{;public static void main(String[]a){int f=new Integer(a[0]),i=0,j,k;a=a[1].split("\n");for(;++i<a.length*f;System.out.println())for(j=0;++j<a[i/f].length();)for(k=0;k++<f;)System.out.print(a[i/f].charAt(j));}}

Windows에서는 "\ n"을 "\ r \ n"으로 바꿔야합니다.

java M 3 "ab
cd"
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

(편집 : 銻명령 의 의미 가 변경 되었으므로이 솔루션은 이제 유효 하지 않습니다. 명령을 변경할 때 이미 명령을 사용했음을 알지 못했지만 프로그램을 간단히 변경하여 수정할 수는 있습니다. 최신 지침 壹.)

클리핑 , 19 자

입력이 \n(no \r)와 곱하기 인수를 포함하는 첫 번째 줄로 분리 될 것으로 예상합니다 .

겠坼銻標⑴가殲各標⓶各①復終겠併①復終

설명

겠坼 | split everything at \n
銻 | get first element (the factor)
標 | mark
⑴가殲 | bring list to front; remove first element (the factor)
各 | for each line...
    標⓶ | mark
    各①復終 | for each character, multiply it
    겠併 | add a newline and concatenate everything above the mark
    ①復 | multiply that
終 | end of loop

결국 스택은 다음과 같습니다.

[ factor, mark, line1, line2, line3, ... ]

마크 위의 모든 것이 자동으로 연결되고 출력되며 나머지는 버려집니다.

J, 7 자

([#"1#)

@Tobia의 APL 답변과 동일하지만 ascii chars와 동일합니다.

a =. ' 0 ',.'0 0',.' 0 '
a
 0 
0 0
 0 

2 ([#"1#) a
  00  
  00  
00  00
00  00
  00  
  00  

파워 쉘 (96)

function m($n,$s){$s.split("`n")|%{$l="";$_.ToCharArray()|%{$c=$_;1..$n|%{$l+=$c}};1..$n|%{$l}}}

추신 : 나는 이것을 PS에 줄 것이라고 생각했다. 여기에 짧은 그것을 유지 foreach는의 (%)로 배관을 사용하지만, function그리고 것은 ToCharArray이 간결 히트를 받아 만들고있다.

이를 사용하려면 다음과 같이 명령 행에서 호출하십시오.

PS C:\> m 3 "ab
>> cd"
>>
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

최소화되지 않은 버전은 다음과 같습니다.

function f($n, $s)
{
    $s.split("`n") | % {            # split input into separate lines
        $l=""                       # initialize an output line
        $_.ToCharArray() | % {      # split line into chars
            $c=$_ ; 1..$n | % {     # add n chars to the line
                $l+=$c 
            } 
        }
        1..$n | % {$l}              # output the line n times
    }
}

줄리아, 74 문자 / 바이트

julia> f(i,n)=print(prod([(prod(["$c"^n for c in l])*"\n")^3 for l in split(i)]))
f (generic function with 1 method)

julia> f("ab\ncd",3)
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

문자열을 반환하면 7이 줄어 듭니다. julia>대화식 프롬프트입니다.

캔버스 , 2 바이트

：＊

여기 사용해보십시오!

파워 쉘, 54 바이트

param($s,$n)$s-replace'.',('$0'*$n)-split'
'|%{,$_*$n}

테스트 스크립트 :

$f = {

param($s,$n)$s-replace'.',('$0'*$n)-split'
'|%{,$_*$n}

}

@(
@"
ab
cd
"@
,
@"
 OOOOOO  OOOOOO  OOOOOO  OOOOOOO      OOOOOO   OOOOOO  OO      OOOOOOO
OO      OO    OO OO   OO OO          OO       OO    OO OO      OO
OO      OO    OO OO   OO OOOOO       OO   OOO OO    OO OO      OOOOO
OO      OO    OO OO   OO OO          OO    OO OO    OO OO      OO
 OOOOOO  OOOOOO  OOOOOO  OOOOOOO      OOOOOO   OOOOOO  OOOOOOO OO
"@
) | % {
    &$f $_ 3
}

설명:

• $s-replace'.',('$0'*$n) 새 기호를 제외한 각 기호를 반복합니다.
• -split'``n' 넓은 줄을 줄 바꿈
• |%{,$_*$n} 각 줄을 배열 요소로 반복하고 배열을 반환

결과는 넓고 반복되는 문자열의 배열입니다.

R , 83/72 바이트

정규 표현식을 사용하는 대체 접근법

후행 줄 바꿈이 허용되면 72 바이트 :

function(s,n)cat(gsub("([^
]*
)",r,gsub("([^
])",r<-strrep("\\1",n),s)))

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

그렇지 않으면 83 바이트 :

function(s,n)write(rep(el(strsplit(gsub("([^\n])",strrep("\\1",n),s),"\n")),e=n),1)

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

K, 20

.....

{,/y#',:',/'y#'/:x} 

확장형 BrainFuck : 158

{a<]<[->+}3>,>3+[->4+[-<<4->>]&a>+<<]<+[-<,[>10+[-<->>+<]<[[->>+<<]3>[->[->+&a&a#3<+>>]>>]<[-]<<]>>[>[-4<[<]>[.>]>>.>]4<[-]<[-]4>[-]]>>[->+<]>[-<+<+>>]4<+<]>]

그것은 다음과 같이 변합니다 :

Brainfuck : 185

>>>,>+++[->++++[-<<---->>]<]<[->+>+<<]<+[-<,[>++++++++++[-<->>+<]<[[->>+<<]>>>[->[->+<]<[->+<]<[->+<<<+>>]>>]<[-]<<]>>[>[-<<<<[<]>[.>]>>.>]<<<<[-]<[-]>>>>[-]]>>[->+<]>[-<+<+>>]<<<<+<]>]

EOF 마커로 0이 있거나 변경되지 않은 인터프리터가 필요합니다. beef우분투 리포지토리에서 구할 수있는 기능 :

$ ( echo -n 2
> cat <<eof
> BBBB  RRRR   AAA  IIII NN  NN FFFFF * * * KK  KK
> BB BB RR RR AA AA  II  NNN NN FF      *   KK  KK
> BBBB  RRRR  AAAAA  II  NNNNNN FFFF  ***** KKKKK
> BB BB RR RR AA AA  II  NN NNN FF      *   KK  KK
> BBBB  RR RR AA AA IIII NN  NN FF    * * * KK  KK
> eof
> ) | beef double.bf
BBBBBBBB    RRRRRRRR      AAAAAA    IIIIIIII  NNNN    NNNN  FFFFFFFFFF  **  **  **  KKKK    KKKK
BBBBBBBB    RRRRRRRR      AAAAAA    IIIIIIII  NNNN    NNNN  FFFFFFFFFF  **  **  **  KKKK    KKKK
BBBB  BBBB  RRRR  RRRR  AAAA  AAAA    IIII    NNNNNN  NNNN  FFFF            **      KKKK    KKKK
BBBB  BBBB  RRRR  RRRR  AAAA  AAAA    IIII    NNNNNN  NNNN  FFFF            **      KKKK    KKKK
BBBBBBBB    RRRRRRRR    AAAAAAAAAA    IIII    NNNNNNNNNNNN  FFFFFFFF    **********  KKKKKKKKKK
BBBBBBBB    RRRRRRRR    AAAAAAAAAA    IIII    NNNNNNNNNNNN  FFFFFFFF    **********  KKKKKKKKKK
BBBB  BBBB  RRRR  RRRR  AAAA  AAAA    IIII    NNNN  NNNNNN  FFFF            **      KKKK    KKKK
BBBB  BBBB  RRRR  RRRR  AAAA  AAAA    IIII    NNNN  NNNNNN  FFFF            **      KKKK    KKKK
BBBBBBBB    RRRR  RRRR  AAAA  AAAA  IIIIIIII  NNNN    NNNN  FFFF        **  **  **  KKKK    KKKK
BBBBBBBB    RRRR  RRRR  AAAA  AAAA  IIIIIIII  NNNN    NNNN  FFFF        **  **  **  KKKK    KKKK

Ungolfed EBF 코드 :

;;;; Multiply 
;;;; Takes a digit x and ASCII art on STDIN
;;;; Prints ASCI art scaled x times
;;;; Usage:
;;;; bf ebf.bf < multiply.ebf >multiply.bf
;;;; bf multiply.bf

;;; Memory map for this program
:zero
:str
:flag
:tmp
:dup    
:num

;;; Macros

;; EOL support. Comment out the body of the two 
;; macros below to only support 0 and no change
;; Some interpreters use -1
{eol_start
  +(- 
}

{eol_end 
   )
}

;; macro that reads a digit.
;; the actual number is one more than input
;; ^12 uses 3 cells from origin
{read_number
  ,                    ; read char
  ^1 3+(-^2 4+(-^ 4-)) ; reduce by 3*4*4=48
}

;; duplicate current element
;; to the left using the right as tmp
{copy_left 
  (-^1+)^1(-^0+<+)
}

;; Duplicate char n times while
;; shifting to the right
{handle_char
  $str(-$tmp+)               ; copy the char to tmp
  $dup(-$num(->+)            ; for each dup move num
        $dup(-$num+)         ; and dup one step to the right
        $tmp(-$dup+$str+)    ; and copy the char back to str and to dup
        @flag)               ; which is the new tmp (it gets shifted to the right)
  $tmp(-)                    ; clear char when done
}

{handle_linefeed
  $dup(-                     ; for each dup
    $zero[<]>                ; go to beginnning of string
    [.>]@str                 ; print string 
    $tmp.                    ; print newline
  )
  $zero[-]<[-]>@zero         ; clean last two chars
  $tmp(-)                    ; remove line feed
}


;;; Main program 

;; read number
$tmp &read_number
$tmp (-$dup+$num+)
;$tmp,[-] ; uncomment to require a newline before asci art
$flag+(-
  $str = ,
  ( ;; NB! The line containing EOF will not be printed!
    &eol_start
    $flag 10+(-$str-$tmp+)
    if $str is not linefeed (   
       &handle_char
    ) $tmp ( linefeed
       &handle_linefeed
    ) 
    $num &copy_left      ; we need two copies of the duplicate dupber
    $flag+               ; flag to 
    &eol_end
  )  
)

리볼 -87 79

r: do input while[d: input][forskip d r[insert/dup d d/1 r - 1]loop r[print d]]

멋진 형식의 버전 :

r: do input

while [d: input] [
    forskip d r [insert/dup d d/1 r - 1]
    loop r [print d]
]

사용 예 :

rebol -qw --do 'Rebol[]r: do input while[d: input][forskip d r[insert/dup d d/1 r - 1]loop r[print d]]' <<< "3
ab
cd"
aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

NB. 이 코드는 현재 Rebol 2에서만 작동합니다 (사용 된 INPUT 기능은 아직 Rebol 3에서 완전히 구현되지 않았습니다).

R , 125 바이트

function(s,n,x=utf8ToInt(s),m=matrix(x[u<-x!=10],,sum(!u)+1))for(i in 1:ncol(m))cat(rep(intToUtf8(rep(m[,i],e=n)),n),sep="
")

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

문자열을 UTF8로 변환하고 열이 텍스트 줄 (행 줄 바꾸기) 인 행렬에 넣은 다음 줄 바꾸기로 구분하여 인쇄하기 전에 각 문자와 생성 된 줄을 반복합니다.

제 89 화

M=function(I,N) cat(paste(lapply(lapply(strsplit(I,""),rep,e=N),paste,collapse=""),"\n"))

I <- c("aa  aa  aa", "bbb bbb bbb", "c c c c c c")
N <- 3

I
# aa  aa  aa
# bbb bbb bbb
# c c c c c c"

M(I,N)

# aaaaaa      aaaaaa      aaaaaa 
# bbbbbbbbb   bbbbbbbbb   bbbbbbbbb 
# ccc   ccc   ccc   ccc   ccc   ccc

MATLAB : 20 자

['' imresize(ans,n)]

이 솔루션은 이미지가 호출 된 파일에 저장되고 이미지를 startup.m호출 할 때 matlab에 복제 량을 제공 할 수 있다고 가정합니다. 이는 다음을 통해 수행 할 수 있습니다.!matlab -r "n=3"&

MATLAB, 인수없이 호출 : 23 자

load;['' imresize(s,n)]

첫 번째 솔루션과 달리 후자의 두 솔루션은 호출에서 복제 량이 예상되지 않을 수 있다고 가정합니다. 이러한 솔루션의 경우 현재 문자열에서 호출 matlab.mat된 파일에 원래 문자열과 숫자가 필요 합니다.

MATLAB, 수학적 대안 : 27 자

load;['' kron(s,ones(1,n))]

C # (177)

public string e(string i,int x){return string.Join("",i.Split('\n').Select(a=>string.Join("",Enumerable.Repeat(string.Join("",a.ToCharArray().Select(c=>new string(c,x))),x))));}

구분자로 새 줄 "\ n"을 포함하는 입력 문자열 "i"가 필요합니다.

형식화

public string e(string i, int x)
{
    return string.Join("", i.Split('\n').Select(a => string.Join("", Enumerable.Repeat( string.Join("", a.ToCharArray().Select(c => new string(c, x))), x))));
 }

CJam, 14 바이트

CJam 은이 도전보다 최신이며 (내가 사용하는 주요 기능은 실제로 가장 최근입니다),이 답변은 받아 들일 수는 없지만 어쨌든 APL을 꺾지 않습니다.

l~qN/1$e*fe*N*

여기에서 테스트하십시오.

설명

e*문자열에서 각 문자를 반복 하는 new 를 사용하면 다음과 같이 간단합니다.

l~             e# Read and eval the scale factor.
  qN/          e# Read the rest of the input as the ASCII art and split into lines
     1$e*      e# Copy the scale factor and repeat each line by it.
         fe*   e# Repeat the characters in each line by the scale factor.
            N* e# Join with newlines.

RProgN 100 바이트 (Windows) 비경쟁

'l' asoc
'i' asoc
i '[^
]' '%0' l rep replace '[^
]*' '%0
' l rep 'z' asoc z 1 z len 1 - sub replace

RProgN은 글을 쓸 때 문자 이스케이프가 없으므로 새로운 줄을 처리하려면 실제 줄 바꿈이 필요합니다. 따라서이 답변 (및 모든 입력)은 LF 대신 CRLF를 사용해야합니다. :(

또한 'rep'기능은이 챌린지가 발행 된 후에 만 ​​추가되었으므로 경쟁이 아닙니다.

Vim, 39 개의 키 입력 (입력 제외, 경쟁하지 않음)

문제와 이것이 경쟁하지 않는 이유는 입력을 두 번 입력해야하기 때문입니다. 둘 다 2자신의 입력으로 교체하십시오 .

qayl2phxl@aquu:%norm @a<cr>gg0qbyy2P2jkddj@bq@b

설명

• qayl2phxl@aquu문자를 잡아 당겨 붙여넣고 다음 문자로 이동 한 다음 다시 재생되는 매크로를 기록합니다. 그런 다음 변경 사항을 취소합니다. 우리는 루프가 무한하지 않기를 원하기 때문에 문자를 삭제하지 않습니다. 즉, 외부 문자를 삭제해야하지만 마지막 문자에서 실패하는 움직임으로 마무리해야합니다.
• :%norm @a<cr> 모든 줄에서 매크로를 실행합니다
• gg0 처음으로 돌아갑니다
• qbyy2P2jkddj@bq@b@a모든 행을 복사 하는 것과 동일한 기술을 사용 하지만 재귀 매크로가 있습니다.

나는 예를 들어 라인 복제를 위해 뒤로 이동하여 더 골프를 칠 수 있다는 것을 알고 있지만 다중 입력 항목 요구 사항 때문에 거기에서 멈추고이 답변을 경쟁하지 않는 것으로 표시합니다.

이전 답변 (32 키 입력, 두 배만)

qaylpl@aqu:%norm @a<cr>:%s/.*/&\r&<cr>

설명

• qaylpl@aqu문자를 잡아 당겨 붙여넣고 다음 문자로 이동 한 다음 다시 재생되는 매크로를 기록합니다. 변경을 취소하십시오.
• :%norm @a<cr> 모든 줄에서 매크로를 실행합니다
• :%s/.*/&\r&<cr> 모든 라인을 두 배로

중첩 된 매크로를 원했지만 내부 문자 (문자)가 외부 문자 (줄)를 중지합니다 ... 그래서 두 가지 명령을 실행해야합니다. 그렇지 않으면 간단한 솔루션에 상당히 많은 키 입력을 추가해야합니다.