Write a program that prints a program that's almost quine

Question

Your task is to make a program in L that takes n as an input number, output a program p in L that prints its own first n characters.

Rules

• The program p has to be irreducible, See an example below.

• PAY ATTENTION TO THIS RULE: If a program takes an input as n, the first n characters of the output would be the same as the first n characters of the program taking n + 1 as input.

• Standard loopholes apply

• You have to make a full program.

• A trailing newline of the output of the program p is allowed if the first n characters of the program p doesn't have a newline

Example

I'm using pseudocode as L

if n = 10, an example of p would be

PRINT "PRINT \"PRI"

but not

// comment
PRINT "// comment"

because it breaks the first rule above (if you removed com and still makes the same output).

This is code-golf, so you have to make your program shortest as possible (in bytes).

Answer 1

Charcoal, 1 byte

Ｎ

Try it online! Port of @Ausername's Vyxal answer. Explanation: Simply outputs n -s; strings of printable ASCII need no delimiter in Charcoal, so as a program, it just prints the string of -s, i.e. itself.

Answer 2

Raku, 20 18 bytes

say 1 x get,".put"

Try it online!

Outputs a number with n digits followed by a .put

Answer 3

Python 3, 48 bytes

print('a'*int(input())+'=1;print(locals()[-1])')

Try it online!

Answer 4

Vyxal, 3 bytes

\1*

Try it Online! Literally prints that many 1s.

Answer 5

Ruby, 26 bytes

$><<?1*gets.to_i+'=>x;p x'

Uses the Ruby 3 pattern match syntax to bind the integer to x.

Attempt This Online!

Answer 6

Retina, 13 bytes

.+
*KKK
KK
K`

Try it online! Explanation: Outputs a string of length n+2 alternating between K and `. This creates a program in Retina that outputs the part of the string after the K` which is also equal to the first n characters of the program. Retina can also execute the resulting program for you automatically: Try it online! Or see both the program and its output: Try it online!

Answer 7

05AB1E, 5 bytes

1¸sиJ

Try it online!

Sort-of port of emanresu A's Vyxal answer:

1¸sиJ  # Implicit input                 STACK:
1¸     # Push ['1']                     ['1'], 5
  sи   # Repeat input number of times   ['1', '1', '1', '1', '1']
    J  # Join by ''                     '11111'
       # Implicit output

Answer 8

Julia 1.0, 36 bytes

print('1'^parse(Int,ARGS[]),|>,show)

Try it online!

port of Jo King's answer

will print something like 1111|>show (equivalent to show(1111))

Answer 9

///, 65 bytes

/9/8*//8/7*//7/6*//6/5*//5/4*//4/3*//3/2*//2/1*//1/0*//*0/9*//0//

Try it online!

Converts decimal to unary.

///, 0 bytes

Try it online!

Takes input as unary. For me, That's cheating.

Answer 10

Bash, 25 bytes

eval echo\ echo\$_{0..$1}

Attempt This Online!