Dans ce défi, vous devez prendre comme source l'art ASCII multiligne, tel que:

 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      

Et vous allez aussi prendre un entier en entrée. Vous devez générer l’art ASCII agrandi du montant spécifié avec l’entier. Par exemple, si vous utilisiez un deuxième argument de 3, le résultat serait:

   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

Plus précisément, chaque caractère doit se transformer en une boîte nby nde ce caractère, où nest l'argument entier. Par exemple, une entrée de

ab
cd

et 3 entraîneront

aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

C'est le code-golf , donc le code le plus court en octets gagne.

APL, 7 caractères / octets *

{⍺/⍺⌿⍵}

Fonction qui prend le nombre et la chaîne d'entrée en tant que paramètres et renvoie le résultat:

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

⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯
^{*: APL peut être écrit dans son propre jeu de caractères codé sur un octet (existant) qui mappe les symboles APL sur les valeurs supérieures à 128 octets. Par conséquent, aux fins de la notation, un programme de N caractères qui utilise uniquement des caractères ASCII et des symboles APL peut être considéré comme ayant une longueur de N octets.}

GolfScript, 20 caractères

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

Prend toutes les entrées de STDIN, la première ligne est le facteur de mise à l'échelle, le reste, l'entrée multiligne. Vous pouvez essayer l'exemple en ligne .

Contribution

3
ab
cd

Sortie

aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

Code

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 caractères

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

Définit un verbe fqui fait ce qui est requis. Usage:

   3 f a
aaaccc
aaaccc
aaaccc
bbbddd
bbbddd
bbbddd

où aest la chaîne d'entrée.
Sous Windows, un caractère supplémentaire est requis pour supprimer \r:

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

Explication :

];._2coupe la chaîne d'entrée en morceaux en fonction du dernier caractère de la chaîne, qui dans ce cas sera un \n. Windows a \r\ndonc nous devons utiliser }:pour couper un caractère supplémentaire de: }:;._2. Couper la documentation du verbe

Le reste du code (à l'exception de l'affectation f=.) est un fork .
Il se décompose comme ceci:[ #&.|: #

Si aest notre chaîne d'entrée le calcul sera 3 # a(nous appellerons ce résultat x), alors 3 [ a(nous appellerons ce résultat y) alors y #&.|: x.

3 # afait juste trois copies de chaque membre de a. Copier la documentation du verbe
Ce tourne

ab
cd

dans

aaabbb
cccddd

3 [ aretourne juste 3. Documentation du verbe gauche

Enfin y #&.|: xest ycopie sous Transpose x. Le #fonctionne comme avant, mais le &.|:dit à J de transposer l’entrée d’abord puis de la transposer une fois terminée. Sous documentation de transposition , transposez la documentation du verbe .

La transposition tourne

aaabbb
cccddd

dans

ac
ac
ac
bd
bd
bd

alors la copie le change en

aaaccc
aaaccc
aaaccc
bbbddd
bbbddd
bbbddd

et en le transposant vous donne

aaabbb
aaabbb
aaabbb
cccddd
cccddd
cccddd

Haskell, 49 octets

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

La fonction agrandir est e, qui prend un compte et une chaîne, et retourne une chaîne:

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

APL, 11 caractères

@Gareth a essentiellement fait la même chose en premier, en J, donc cette inscription APL est juste pour une exposition, pas pour une compétition - il est le vainqueur.

      E←{⍉⍺/⍉⍺/⍵}

Utilisation: grossissement dans l'argument de gauche (), art sous la forme d'une matrice de caractères 2d dans l'arg de droite ().
⍺ / ⍵ répliquera les éléments sur chaque ligne d'un vecteur ou d'une matrice (2 / 'OO' devient 'OO OO').
⍉⍺ / ⍉ transposera cela, répliquera les éléments, transposera cela.

(Si nous visions la clarté au lieu de la longueur du programme, le code aurait pu être 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

Script Bash / sed, 48 caractères

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

Enregistrez en tant que script chmod +xet exécutez:

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

Comment ça marche?

La viande en est dans la sedcommande. Par exemple, si n = 3, la commande sed est étendue à quelque chose comme:

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

Cette sedcommande composée peut être divisée en:

• s/./&&&/g - cette commande de substitution correspond à chaque caractère et le remplace par le caractère répété 3 fois
• pCommandes 3x - ceci imprime simplement 3 fois tout l'espace du motif (c'est-à-dire la ligne courante)

Nous passons -nà sed pour lui dire de ne rien imprimer sauf indication explicite, nous avons donc le contrôle total sur ce qui est imprimé et combien de fois.

Je ne pouvais pas trouver un moyen rapide de générer des chaînes de répétition de longueur arbitraire directement dans sed, donc j'ai utilisé quelques bashastuces à la place:

printf -vr "%3s"

Ceci imprime une chaîne (non spécifiée, c'est-à-dire vide), avec 3 espaces de début, et affecte le résultat à la bashvariable r.

Nous utilisons ensuite le bashparamètre expansion pour transformer cette chaîne d'espaces en éléments à substituer dans l' sedexpression:

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

J'ai réussi à supprimer les guillemets autour du printfspécificateur de format et de l' sedexpression, car aucun des caractères qu'il contient ne doit s'échapper dans le bashshell.

Nombre de caractères:

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

PERL,  41 39 25   22 caractères

PERL, simple et efficace - créé pour la tâche. Lorsqu'il est appelé avec -pi3, où 3est le paramètre n:

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

Solution classique (39 caractères):

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

La solution classique a besoin de nest spécifiée dans la première ligne, par exemple

3
ab
cd

Merci @ Manatwork pour le $&truc.

Ruby:  64  49 caractères

Toutes les données reçues sur STDIN: première ligne le facteur de mise à l'échelle, puis l'art ASCII.

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

Échantillon échantillon:

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

Ruby:  44  41 caractères

En supposant que chaque ligne d’entrée se termine par un séparateur de ligne. Merci à @Ventero.

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

Échantillon échantillon:

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

Python 3 - 84

Pas la plus courte mais une réponse différente néanmoins. Un one-liner intéressant.

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

Ajoutez d'abord un nombre, puis l'art ASCII sous forme de liste Python, par exemple:

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 caractères

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

Ceci définit un bloc fqui, lorsqu'il est appelé, produira la sortie souhaitée. Cela suppose que les arguments sont sur la pile (car c'est essentiellement ainsi que les arguments sont passés dans GolfScript).

Ungolfed (cela a-t-il même un sens?: 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

Golfscript, 23 caractères

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

J'ai décidé d'écrire un programme entier parce qu'il comporte moins de temps système que même une fonction anonyme:

• ~(:i;- évaluez l'entrée, décrémentez le multiplicateur, enregistrez-le sous iet supprimez-le.
• n/{...}%n* - scinder par nouvelles lignes, mapper chaque ligne, joindre par nouvelles lignes
  • {...}:c%c, - prenez un bloc, appliquez-le sur chaque élément de la carte, puis appliquez-le à toute la ligne.
    • {.}i*- dupliquer cet élément ifois

Démo en direct: http://golfscript.apphb.com/?c=OyciYWjjCmRlZiIzJwp%2BKDppO24ve3t7Ln1pKn06yyVjfSVuKg%3D%3D

Exemple d'utilisation:

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

Python 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))

D'abord, entrez le numéro, puis la chaîne. Devrait être explicite ...

Merci à Waleed Khan d’avoir suggéré de supprimer le []

Merci à Volatility pour avoir suggéré d’ aêtre une liste.

Java - 217

Essayez d'abord de jouer au golf. On dirait que Java n'est pas le langage pour le faire.

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

Sous Windows, vous devez remplacer "\ n" par "\ r \ n".

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

(Edit: cette solution est maintenant invalide car la sémantique de l' 銻instruction a changé. Je ne savais pas que je l'avais déjà utilisée lorsque je l'avais modifiée. Vous pouvez toutefois corriger ce programme en le changeant simplement en la nouvelle instruction 壹.)

Sclipting , 19 caractères

Attend que l'entrée soit séparée par \n(non \r) et que la première ligne contienne le facteur de multiplication.

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

Explication

겠坼 | 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

A la fin, la pile ressemblera à ceci:

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

Tout ce qui se trouve au-dessus de la marque est automatiquement concaténé et sorti, le reste est jeté.

J, 7 caractères

([#"1#)

Exactement la même chose que dans la réponse APL de @ Tobia, mais en caractères ascii.

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

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

Powershell (96)

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

Je pensais que je donnerais un coup de feu dans PS. En utilisant la tuyauterie dans de foreach (le%) pour le garder court ici, mais functionet ToCharArraysont en fait prendre un coup , il brièveté.

Pour l'utiliser, appelez-le depuis la ligne de commande comme suit:

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

Voici la version non minimisée:

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

Julia, 74 caractères / octets

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 moins si je retourne juste la chaîne. julia>est l'invite interactive.

Toile , 2 octets

：＊

Essayez-le ici!

Powershell, 54 octets

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

Script de test:

$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
}

Explication:

• $s-replace'.',('$0'*$n) répète chaque symbole sauf la nouvelle ligne.
• -split'``n' divise la chaîne large par une nouvelle ligne
• |%{,$_*$n} répète chaque ligne en tant qu'élément de tableau et retourne un tableau

Le résultat est un tableau de chaînes larges et répétées.

R , 83/72 octets

Approche alternative utilisant les expressions rationnelles

Si nous sommes autorisés à utiliser une nouvelle ligne de fin, 72 octets:

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

Essayez-le en ligne!

Sinon, 83 octets:

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

Essayez-le en ligne!

K, 20

.....

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

BrainFuck étendu : 158

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

Cela devient:

Brainfuck: 185

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

Il nécessite un interprète qui a 0 ou pas de changement en tant que marqueur EOF. beef, disponible chez Ubuntu Repo, fonctionne de plus en plus:

$ ( 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

Code EBF non-golé:

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

Rebol - 87 79

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

Version joliment formatée:

r: do input

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

Exemple d'utilisation:

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 Ce code ne fonctionne que dans Rebol 2 pour le moment (la fonction INPUT utilisée n’est pas encore totalement implémentée dans Rebol 3).

R , 125 octets

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="
")

Essayez-le en ligne!

Convertit la chaîne en UTF8, la place dans une matrice dont les colonnes sont des lignes de texte (suppression des nouvelles lignes), puis répète chaque caractère et les lignes générées avant impression séparées par des nouvelles lignes.

R - 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 ​​caractères

['' imresize(ans,n)]

Cette solution suppose que l’image est stockée dans un fichier appelé startup.met qu’il est autorisé à indiquer le nombre de réplications à matlab lorsqu’on l’appelle. Cette opération peut être effectuée au moyen de:!matlab -r "n=3"&

MATLAB, appel sans argument: 23 caractères

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

Contrairement à la première solution, les deux dernières supposent que le nombre de réplications ne peut pas être attendu dans l'appel. Pour ces solutions, la chaîne et le nombre d'origine sont attendus dans un fichier appelé matlab.matdans votre répertoire actuel.

MATLAB, alternative mathématique: 27 caractères

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

Attend la chaîne d'entrée "i" contenant les nouvelles lignes "\ n" en tant que délimiteur.

Formaté

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 octets

CJam est plus récent que ce défi (et la principale fonctionnalité que j'utilise est en fait très récente), donc cette réponse ne pourrait pas être acceptée - mais elle ne bat pas l'APL de toute façon, alors ...

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

Testez-le ici.

Explication

Avec le nouveau e*qui répète chaque caractère dans une chaîne, ceci est vraiment simple:

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 octets (Windows) non concurrents

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

RProgN n'a pas d'échappements de caractères au moment de l'écriture, ce qui oblige toute manipulation de nouvelles lignes à nécessiter une nouvelle ligne physique. En tant que telle, cette réponse (et toute entrée) doit utiliser des CRLF, au lieu de simplement des LF. :(

De plus, la fonction 'rep' n'a été ajoutée qu'après la publication de ce défi. Elle n'est donc pas en concurrence.

Vim, 39 frappes au clavier (entrée non comprise, pas en compétition)

le gotcha et la raison pour laquelle cela n’est pas concurrent, c’est que l’entrée doit être entrée deux fois. Remplacez les deux 2par votre propre entrée.

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

Explication

• qayl2phxl@aquuenregistre une macro qui tire un caractère, le colle et passe au suivant, puis se rediffuse. Ensuite, il annule les modifications. Parce que nous voulons que la boucle ne soit pas infinie, nous ne supprimons pas le caractère, ce qui signifie que nous devons supprimer la boucle superflue tout en terminant par un mouvement qui échoue sur le dernier caractère.
• :%norm @a<cr> exécute la macro sur chaque ligne
• gg0 revient au tout début
• qbyy2P2jkddj@bq@butilise la même technique que @apour copier chaque ligne, mais avec une macro récursive.

Je sais que cela peut être joué davantage, par exemple en effectuant un retour en arrière pour la duplication de ligne, mais en raison de l'exigence d'entrée multiple, je vais m'arrêter là et marquer cette réponse comme non compétitive.

Réponse précédente (32 frappes, seulement les doubles)

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

Explication

• qaylpl@aquenregistre une macro qui extrait un caractère, le colle et passe au suivant, puis se rejoue. Annuler le changement.
• :%norm @a<cr> exécute la macro sur chaque ligne
• :%s/.*/&\r&<cr> double chaque ligne

Je voulais créer une macro imbriquée, mais la première (caractères) arrête la première (lignes) ... Je dois donc exécuter deux commandes, ce qui ajoute quelques touches à une solution par ailleurs simple.