My device malfunctions... Abuse its undefined string behaviour!

Question

Help! My device malfunctions and whenever I try to repeat a String, I get a messy results. Instead of repeating the same string N times, it fills an NxN square with each of its characters, and stacks the squares up.

For example, given the String "Test" and the number 2, instead of "TestTest", I get:

TT
TT
ee
ee
ss
ss
tt
tt

---

After I have seen this for a while, I started to like it. Your task today is to reproduce this strange behaviour. Given a non-empty string that consists of printable ASCII only, and a positive integer, output the String my malfunctioning device returns.

• All standard rules apply.

• The input and output may be handled through any reasonable mean.

• This is code-golf, so the shortest code in bytes in each language wins.

---

Test Cases

Input 
Output

----------

"Test", 2

TT
TT
ee
ee
ss
ss
tt
tt

----------

"UuU", 3

UUU
UUU
UUU
uuu
uuu
uuu
UUU
UUU
UUU

----------

"A", 5

AAAAA
AAAAA
AAAAA
AAAAA
AAAAA

----------

You can find a larger test case here. Good luck and have fun golfing!

Answer 1

Jelly, 4 bytes

Inspired by Mr. Xcoder's Jelly abuse

x⁹×Y

A full program taking the string and the number as command line arguments and printing the result (since as a dyadic link it returns a list of strings and newline characters, which may not really be acceptable).

Try it online!

How?

The naive (non-abusive) five byter is:

x⁹x€Y - Main link: list of characters, s; number, n  e.g. "xyz", 2
 ⁹    - chain's right argument, n                         2
x     - times (repeat each element)                       ['x','x','y','y','z','z']
  x€  - times for €ach                                   [['x','x'],['x','x'],['y','y'],['y','y'],['z','z'],['z','z']]
    Y - join with newlines                                ['x','x','\n','x','x','\n','y','y','\n','y','y','\n','z','z','\n','z','z']
      - as a full program: implicit print
      -   note: this could be submitted as a dyadic link (AKA unnamed function)

The abuse used by Mr. Xcoder (Python's operator.mul may act on a str and an int to repeat the str - here single characters - and the atom which uses it, ×, vectorises w.r.t. its left argument) can be used here too to replace x€ with × - yielding the full program:

x⁹×Y - Main link: list of characters, s; number, n  e.g. "xyz", 2
 ⁹   - chain's right argument, n                         2
x    - times (repeat each element)                       ['x','x','y','y','z','z']
  ×  - multiply (vectorises)                             ["xx","xx","yy","yy","zz","zz"]
     -     (note, these "..." are actually strings, something not usually seen in Jelly) 
    Y - join with newlines                                ["xx",'\n',"xx",'\n',"yy",'\n',"yy",'\n',"zz",'\n',"zz"]
      - implicit print

Answer 2

Jelly, 5 bytes

This is exactly what we are asked to do... Abuse undefined behaviour!*

×+⁷×⁴

Try it online!

^{* By undefined behaviour I am talking about using × for repeating strings. Sometimes it's shorter than usual behaviour, so why not?}

Answer 3

Haskell, 26 bytes

The function (!) returns a list of lines.

n!s=map(<$[1..n])s<*[1..n]

Try it online!

Answer 4

Bash + GNU Sed, 58

Using a very similar technique to this answer to illustrate how close to being a dup to this that this question is:

printf -vr %$1s
sed "s/./${r// /&}\n/g;s/\S*./${r// /&}/g"

Try it online.

Answer 5

Husk, 5 4 bytes

-1 byte thanks to @Zgarb

SṀRṘ

Try it online!

Answer 6

PowerShell, 31 bytes

param($a,$b)$a|%{,("$_"*$b)*$b}

Try it online!

Explanation:

param($a,$b)                    # Takes input $a (char-array) and $b (integer)
            $a|%{             } # Loop through every character in $a
                   "$_"*$b      # Construct a string of $b length of that character
                 ,(       )*$b  # Repeat that $b times
                                # Implicit Write-Output inserts a newline between elements

Answer 7

05AB1E, 7 5 bytes

-2 bytes thanks to scottinet

εײF=

Try it online!

ε     # For each character:
 ×    #   Repeat this character N times
  ²F  #   For 0 .. N:
    = #     Print without popping 

Answer 8

Python 3, 42 bytes

lambda x,y:"".join(y*(r*y+"\n")for r in x)

Try it online!

Answer 9

MATL, 5 bytes

t&Y"!

Try it online!

Explanation

t     % Implicitly input a number, n. Duplicate
&Y"   % Implicitly input a string. Three-input repelem function. Repeats
      % each entry in the first input (s) the specified numbers of times 
      % vertically (n) and horizontally (n). Gives a char matrix
!     % Transpose. Implicit display

Answer 10

C++, 125 123 bytes

-2 bytes thanks to aschepler

#include<string>
using s=std::string;s u(s a,int b){s r;for(auto&c:a)for(int i=0;i<b*b;){if(!(i++%b))r+=10;r+=c;}return r;}

Make sure that the overload of the += operator called takes a char data type in this instruction if(!(i++%b))r+=10

Answer 11

Brainfuck, 103 Bytes

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

Try it online (Make sure to turn on dynamic memory or it won't run)

Note: The input is slightly different. This code takes in a string where the last character is a digit for number of repeats. So input might look like Test5.

This code requires an unbounded tape, and relies on byte wrapping behavior.

Ungolfed:

,[>,]< Take Input
>-[>+<-----]>--- ASCII 0, to use in next step
[-<<->>]<< Convert ASCII number to raw number by subtracting ASCII 0
[->+<]> Move the number over one to separate it from the phrase
[
  [->+>+<<]>>[-<<+>>]< Copy the number
  [
    <<<[<]> Back to Letter
    . Print Letter
    [>]>>- Back to Counter
  ]
  ++++++++++.[-]< Print the newline
  <<[<]>[-]> Clear Letter
  [>]> Back to Counter
]

Answer 12

Japt, 7 bytes

Outputs an array of strings.

VÆmpVÃy

Try it (-R flag for visualisation purposes only)

---

Explanation

Implicit input of string U and integer V.

VÆ    Ã

Generate an array of integers from 0 to V-1 and pass each through a function.

mpV

Map (m) over U and repeat (r) each character V times.

y

Transpose and implicitly output resulting array.

Answer 13

Charcoal, 9 8 bytes

-1 thanks to Kevin Cruijssen

ＦＳ«ＧTηι↓

Try it online!

Explanation

ＦＳ        For each character (i) in the next input as a string
   «
    Ｇ   ι  Polygon using i as fill
      T     Right, down, then left
       η    The second input (h) (automatically casted to a number)
          ↓ Move down

Answer 14

R, 59 bytes

function(S,n)write(rep(strsplit(S,"")[[1]],e=n*n),"",n,,"")

Writes to stdout.

Splits the string into characters, repeats each n^2 times, and then prints with width n and with no separator.

Try it online!

Answer 15

J, ₁₅ 14 bytes

[:,/]$"1 0~[,[

Sub-optimal for sure. Returns a 2D array of chars. Takes n as the left argument and the string as the right.

On mobile, so the usual amenities are missing.

Explanation

(For old answer)

[:,/(2#[)$"1 0]

$"1 0 reshape each character to

(2#[) an n * n matrix.

,/ join matrices together to yield the output.

Answer 16

Perl 5, 26 + 1 (-p) = 27 bytes

$"=<>;s|.|($&x$".$/)x$"|ge

Try it online!

Answer 17

Pyth, 9 bytes

VEp*+*NQb

Try it here!

Pyth, ₁₁ 10 bytes

sm*Q+*QdbE

Try it here!

Or, 10 bytes:

jsm*Q]*QdE

Or, 11 bytes:

js*RQm]*dQE
jsm*vzm*dvz
sm*vz+*dvzb

Answer 18

SOGLOnline commit 2940dbe, 4 bytes

∙ι*I

This was made for a specific commit, namely the one before I changed ∙ from, when used on an array of strings, repeating each letter x times to repeat each item x times. Here is the online interpreter without that version, which, as can be seen, doesn't work.

To try the commit, download this, open the index.html file, in the program paste ∙ι*I and in the input write something like

Test
2

Explanation:

∙ι*I
∙     get an array with 2nd input amount of items of the 1st input
 ι    pop one implicit input to cycle back to the number
  *   multiply horizontally each separate character
   I  rotate clockwise

Answer 19

Java 8, 152 128 118 100 bytes

s->n->{for(char c:s)for(int j=0;j++<n;System.out.println("".valueOf(new char[n]).replace('\0',c)));}

Try it online!

Answer 20

APL (Dyalog), 8 bytes

Takes repetition as left argument and text as right argument.

{⍺⌿⍺/⍪⍵}

Try it online!

{…} an unnamed lambda where ⍺ represents the left argument and ⍵ the right argument

 ⍪⍵ make the text into a one-column table

 ⍺/ replicate ⍺ times horizontally

 ⍺⌿ replicate ⍺ times vertically

Answer 21

Japt, 7 bytes

mpV² òV

Returns an array of strings.

Try it online! with the -R flag to join the array with newlines.

Explanation

mpV² òV     Implicit input of U=string, V=number
m           Map each char in the input string to...
 pV²        Itself repeated V² times
     òV     Cut the resulting string into partitions of length V

Answer 22

D, 86 bytes

S u(S,I)(S a,I b){S r;foreach(c;a)for(I i;i<b*b;){if(!(i++%b))r~='\n';r~=c;}return r;}

Try it online!

Takes the string as the left argument, and the integer as the right argument. This is a port of HatsuPointerKun's C++ answer into D.

Answer 23

Thunno 2 N, 3 bytes

Ḅd×

Try it online!

Takes the number then the string

Explanation

Ḅd×  # Implicit input                                  ->  2, "Test"
Ḅ    # Multiply each of the characters by the number   ->  "TTeesstt"
 d   # Split this string into a list of characters     ->  ["T",  "T",  "e",  "e",  "s",  "s",  "t",  "t" ]
  ×  # Repeat each character input number of times     ->  ["TT", "TT", "ee", "ee", "ss", "ss", "tt", "tt"]
     # Implicit output, joined on newlines

Answer 24

C (gcc), 83 79 bytes

i,j;f(p,n)char*p,n;{for(;*p;p++)for(i=n;i--;puts(""))for(j=n;j--;putchar(*p));}

Try it online!

Answer 25

CJam, 11 Bytes

{__*@e*/N*}

Function that takes string followed by int.

Try it Online

Answer 26

Kotlin 1.1 - 99 bytes

fun s(s:String,c:Int)=s.flatMap{p->List(c,{p})}.joinToString("\n"){p->List(c,{p}).joinToString("")}

Returns the whole output as a string.

Can't use TryItOnline as 1.1 is not supported

Test

fun s(s:String,c:Int)=s.flatMap{p->List(c,{p})}.joinToString("\n"){p->List(c,{p}).joinToString("")}

fun main(args: Array<String>) {
    println(s("Hello World", 5))
}

It would be 84 if a list of strings was acceptable as output:

fun s(s:String,c:Int)=s.flatMap{p->List(c,{p})}.map{p->List(c,{p}).joinToString("")}

Answer 27

PHP, 97 bytes

for($i=0;$i<strlen($s=$argv[1]);$i++)for($j=0;$j<$r=$argv[2];$j++)echo str_repeat($s[$i],$r)."
";

Answer 28

Mathematica, 49 bytes

(z=#2;Grid[Column/@Table[#,z,z]&/@Characters@#])&

input

["Test",4]

Answer 29

Pyth, 12 bytes

Small minded, but I haven't gotten there just yet.

VQp*+*Nszbsz

Explanation:

VQ          For every letter in the first input...
  p         Print without newline...
   *+*Nszsz (The index * int(second input) + newline) * int(the second input)

Test Suite

Answer 30

Clojure, 82 75 bytes

#(dotimes[x(count %1)](dotimes[y %2](prn(apply str(repeat %2(get %1 x))))))

Try it online!

Uncompressed:

#(dotimes [x (count %1)]
  (dotimes [y %2]
    (prn
      (apply str
        (repeat %2 (get %1 x))))))

Edit: Shaved a few chars off the end by replacing a for loop with the stdlib repeat function.