Bạn nên viết một chương trình hoặc hàm nhận số nguyên dương Nlàm đầu vào và in ra các Nký tự đầu tiên của mã của bạn. Nếu Nlớn hơn độ dài mã của bạn, bạn nên tiếp tục xuất mã theo chu kỳ.

Đọc mã nguồn của bạn theo bất kỳ cách nào và đọc từ tệp, stdio, v.v. đều không được phép.

Ví dụ

(giả sử mã của bạn là yourcode)

Đầu vào => Đầu ra:

5=> yourc
10=> yourcodeyo
22=>yourcodeyourcodeyour

Làm rõ

Chương trình của bạn phải dài ít nhất 1 byte.

Python 2, 61 byte

def f(n):a='def f(n):a=%r;print(a%%a*n)[:n]';print(a%a*n)[:n]

Hãy thử trực tuyến!

> <> , 49 byte

'3d*}r0ff+0i:&0(?.~~a*&"0"-+60.&~:?!;1-&:o}&" "0.

Một nửa mã đang chuyển đổi đầu vào từ một chuỗi thành int. Nếu chúng ta được phép sử dụng điểm mã của một char được đọc từ STDIN, thì chương trình này sẽ ngắn hơn nhiều ở 21 byte:

'3d*}ri:?!;1-&:o}&60.

Giải trình

Tôi sẽ sử dụng chương trình thứ hai để giải thích.

'bắt đầu phân tích chuỗi, đẩy mỗi char cho đến khi tìm thấy trích dẫn kết thúc. Vì phần còn lại của dòng không có 'trích dẫn, mọi char ngoại trừ chữ cái đầu tiên 'được đẩy lên ngăn xếp.

Nhưng> <> là ngôn ngữ 2D hình xuyến, vì vậy sau khi dòng kết thúc, con trỏ lệnh sẽ quay trở lại điểm bắt đầu, nhấn 'lại và dừng phân tích chuỗi. Kết quả là chúng tôi đã đẩy mọi thứ cần thiết ngoại trừ trích dẫn ban đầu, cụ thể là

3d*}ri:0=?;1-&:o}&60.

'là ASCII 39, vì vậy chúng tôi đẩy báo giá ban đầu bằng cách đẩy 3d* = 3*13 = 39. Sau đó chúng ta thay đổi ngăn xếp phải ( }) và đảo ngược ( r), đưa ra:

.06&}o:&-1;?=0:ir}*d3'

Bây giờ tất cả chúng ta đã thiết lập để bắt đầu in. iđọc trong một char của đầu vào, nhưng> <> chars về cơ bản là số nguyên. Trong chương trình đầu tiên, chuỗi iđược thay thế bằng một vòng lặp chuyển đổi một chuỗi chữ số từ STDIN thành một số nguyên.

Sau đó chúng tôi thực hiện vòng lặp sau để in ra các ký tự N đầu tiên:

:?!;               If the top of the stack (N) is 0, then terminate
                   Otherwise...
1-                 Subtract 1 from N
&                  Move N to the register temporarily
:o                 Output the next char in the program
}                  Shift the stack right
&                  Put N back on the stack
60.                Repeat loop by jumping back to the first :

CJam, 34 17 16 byte

Điều này có thể được đánh golf rất nhiều ..

{`"_~"+ri_@*<}_~

Mở rộng mã :

{`"_~"+ri_@*<}_~
{            }_~      "Put this code block on stack, take a copy and execute the copy";
 `                    "When executed, this block will the top element on stack to a string";
  "_~"                "Then put this string on stack";
      +               "Concat it to the the previous string on stack which ` created";
       ri             "Read an integer from STDIN";
         _@           "Copy the integer and put the concatinated string on top of stack";
           *          "Repeat the string input number of times";
            <         "Take the first input number of characters from the repeated string";

Cuối cùng, mọi thứ trên stack sẽ được in tự động sang STDOUT

Dùng thử trực tuyến tại đây

Python 2, 117 byte

b=input();a=lambda x:(b*(2*(x+chr(34))+')'))[:b];print a("b=input();a=lambda x:(b*(2*(x+chr(34))+')'))[:b];print a(")

Cuộc sống protip: không thực hiện list(itertools.cycle(x)). Vì một số lý do, tôi không thể tưởng tượng được tại sao, nó làm hỏng trình thông dịch.

JavaScript (ES6), 65 52 50 47 41 39

q=n=>('q='+q).repeat(n/39+1).slice(0,n)

Sử dụng ES6 repeat()để sao chép mã, sau đó cắt xuống. Sử dụng một chiều dài mã hóa cứng.

Phiên bản cũ (50):

q=n=>n>(l=(t='q='+q).length)?t+q(n-l):t.slice(0,n)

Tạo một hàm q, lấy một tham số duy nhất.

Nó xâu chuỗi văn bản hàm và gọi đệ quy hàm nếu nlớn hơn độ dài của văn bản. Mặt khác, nó trả về một chuỗi con của văn bản.

Phiên bản không ES6 (65):

function q(n){return t=q+'',l=t.length,n>l?t+q(n-l):t.slice(0,n)}

J - 24 char

Đưa ra một đối số nguyên dương duy nhất và tạo ra một chuỗi.

($],quote)&'($],quote)&'

J không có bất kỳ thủ thuật tự tham chiếu nào, vì vậy chúng tôi chỉ thực hiện theo cách chính xác. Giải thích bằng vụ nổ:

  ],quote                 NB. right arg prepended to quotation of right arg (quine)
 $                        NB. cyclically take left-arg characters from that
(        )&'($],quote)&'  NB. preload right arg with  ($],quote)&

$Toán tử dyadic trong J theo chu kỳ lấy các mục từ đối số bên phải của nó để khớp với các kích thước được chỉ định ở bên trái. Khi thứ nguyên là một số duy nhất, đây là danh sách các ký tự 1D đơn giản, vì vậy chúng tôi thực hiện chính xác những gì câu hỏi yêu cầu.

Hãy thử nó cho chính mình tại tryj.tk .

k2 - 7 char

{x#$_f}

Trong tiếng Anh, đây là một hàm với đối số xcó định nghĩa là " xtự lấy chuỗi".

• Self (danh từ _f) là hàm trong cùng hiện đang thực thi. Đây là chức năng {x#$_f}.
• Chuỗi (monadic $) chuyển đổi đối số của nó thành một chuỗi. Trong trường hợp của hàm, nó tạo ra một chuỗi với định nghĩa ban đầu của hàm.
• Take (dyadic #) lấy các mục bên trái tạo thành danh sách trong bên phải-arg . Trong trường hợp của một chuỗi, các mục là các ký tự, vì vậy đây là thực hiện chính xác những gì chúng ta muốn.

Điều này sẽ không hoạt động trong Kona nguồn mở, bởi vì nó dường như tạo ra các lỗ đen ăn mọi nỗ lực để sử dụng chúng làm đối số cho bất cứ điều gì. Tôi không chắc về ngữ nghĩa k3 thích hợp nhưng có lẽ chúng không tốt hơn nhiều.

Trong Q, đây là {x#string .z.s}và trong k4 {x#2_$.z.s}. Chúng tôi phải sử dụng 2_để thả hai ký tự ban đầu trong k4, vì lý do chỉ có một người mẹ có thể yêu.

Ruby, 66 64 63 byte

eval s=%q(puts"eval s=%q(#{s})".chars.cycle.take(gets.to_i)*'')

Tương tự sử dụng một hàm để tránh gọi getslà lâu hơn một chút (81 byte):

def f(i);eval s=%q(puts"def f(i);eval s=%q(#{s});end".chars.cycle.take(i)*'');end

Các phiên bản Lambda giống nhau là 69 và 65 byte:

l=->i{eval s=%q(puts"l=->i{eval s=%q(#{s})}".chars.cycle.take(i)*'')}
->i{eval s=%q(puts"->i{eval s=%q(#{s})}".chars.cycle.take(i)*'')}

Toán học, 65 byte

Print[StringTake[StringJoin @@ Table[ToString[#0], {#1}], #1]] & 

Tất cả các không gian là cần thiết để làm cho điều này một quine thích hợp, bao gồm cả dấu vết. Đây là một hàm thuần túy, bạn có thể sử dụng như sau:

Print[StringTake[StringJoin @@ Table[ToString[#0], {#1}], #1]] & [75]

mà in

Print[StringTake[StringJoin @@ Table[ToString[#0], {#1}], #1]] & Print[Stri

Thật không may, áp dụng ToString cho một chức năng không mang lại một cách chính xác theo cách bạn bước vào chức năng, vì vậy tôi không thể rút ngắn này bằng cách loại bỏ khoảng trắng, rút ngắn #1đến #hoặc sử dụng ký hiệu tiền tố cho các cuộc gọi chức năng.

MATLAB, 319 141 ký tự

Tôi đã quản lý để nén một vài byte từ cái ban đầu:

function d=g(n);d='gvodujpo!e>h)o*<e>(<e>\e)2;2:*.2-e-e)2:;foe*.2^<e>e)2,npe)1;o.2-252**<';d=[d(1:19)-1,d,d(19:end)-1];d=d(1+mod(0:n-1,141));

JavaScript, 34 byte

f=n=>n&&('f='+f+f(n-1)).slice(0,n)

Hàm đệ quy lặp lại số nlần mã , sau đó cắt kết quả.

Japt , 2 byte

îî

Hãy thử trực tuyến!

Đầu tiên îlà một phương thức số lấy một tham số và lặp lại theo chiều dài n. Bởi vì nó là phương thức đầu tiên, ntrở thành đầu vào. Cái thứ hai îđược đúc thành một chuỗi, và được lặp lại.

Điều này chuyển đến:

n.î("î")-> Lặp lại "î"cho đến khi đạt được chiều dàin

Giải pháp 8 byte

îQi"îQi"

Hãy thử trực tuyến!

îQi"îQi" phiên mã đến n.î(Qi"îQi")

n.î(Qi"îQi")
      "îQi"    // String "îQi"          -> îQi
    Qi         // Insert "              -> îQi"
n.î            // Repeated to length n  -> îQi"îQi"îQi"  (n=12)

R, 203 byte

Khi N = 203, mã tự in hoàn toàn.

(f <- function(N){
str <- paste0("(f <- function(N)", paste0(as.character(body(f)), collapse = "\n"), ")}(", N, ")")
cat(rep(str, floor(N/nchar(str))), sep = "")
cat(substr(str, 1, N%%nchar(str)))})(203)

Khi N = 50, mã tự cắt.

(f <- function(N){
str <- paste0("(f <- function(N

Khi N = 300, mã sẽ lặp lại một phần.

(f <- function(N){
str <- paste0("(f <- function(N)", paste0(as.character(body(f)), collapse = "\n"), ")}(", N, ")")
cat(rep(str, floor(N/nchar(str))), sep = "")
cat(substr(str, 1, N%%nchar(str))))}(300)(f <- function(N){
str <- paste0("(f <- function(N)", paste0(as.character(body(f)), collapse = "\

Matlab (57)

function s=f(n);s=evalc('type f');s=s(mod(1:n,nnz(s))+1);

1Chỉ mục ban đầu (thay vì 0) trong dòng cuối cùng là do chức năng của Matlab typegiới thiệu một nguồn cấp dữ liệu ban đầu, cần được loại bỏ. Cảm ơn Dennis vì sự điều chỉnh của anh ấy (chỉ số cuối cùng) và cho lời đề nghị của anh ấy ( nnzngắn hơn numel).

Unary (phiên bản 1-8) , 23855 byte

Lấy đầu vào là đơn vị của '1' và mã là 23855 '1's ( ,[.,])

Japt , 40 28 byte

"îR+Q+V+Q+R+V"
îR+Q+V+Q+R+V

Lần đầu tiên viết một bài quine, vì vậy điều này có thể được rút ngắn khá nhiều. Mặt khác, tôi khá hạnh phúc khi tôi làm việc đó.

Dẫn đầu dòng mới có chủ ý, dòng thứ hai là dữ liệu và phần còn lại của nó sẽ hủy kết nối dữ liệu, sau đó lặp lại toàn bộ chuỗi kết quả cho đến khi đạt đến độ dài bằng với đầu vào.

Cạo sạch một con số khổng lồ 12 byte nhờ Oliver .

Hãy thử trực tuyến!

C ++, 305

int L=305;string s="int main(){string t=\"string s=\";int n;cin>>n;t+=s;t+=\"\";\";t+=s;while(n>0){if(n>L){cout<<t;n-=L;}else{cout<<t.substr(0,n);}return 0;}";
int main(){string t="int L=305;string s=\"";int n;cin>>n;t+=s;t+="\";";t+=s;while(n>0){if(n>L){cout<<t;}else{cout<<t.substr(0,n);}n-=L;}return 0;}

Giải thích Ngoài nhân vật thoát, tất cả các nhân vật khác được in ra. Phương thức chính nằm bên trong chuỗi s và bên trong chính chuỗi đầy đủ được xây dựng và in ra thiết bị xuất chuẩn

Bình thường 15 13 14 byte

<jN*Q]"<jN*Q]"

Hãy thử trực tuyến!

Phiên bản sửa đổi của quine Pyth tiêu chuẩn .

Hoon , 185 byte

=/(f "=/(f k |=(n=@ =+((trim 5 f) `tape`(scag n `tape`(zing (reap n :(weld p <f> (slag 1 q))))))))" |=(n=@ =+((trim 5 f) `tape`(scag n `tape`(zing (reap n :(weld p <f> (slag 1 q))))))))

Đặt fmã của chương trình dưới dạng băng, nhưng với "k" cho chính nó. Tách băng ở ký tự 5, thiết lập các biến [p=left q=right]. Hàn các chuỗi p, chuỗi gốc fvà mọi thứ sau ký tự thứ 1 củaq . Lặp lại chuỗi nlần đó, sau đó trả về các nký tự đầu tiên của nó.

Làm điều này hơi bị cản trở bởi stdlib của Hoon không có chức năng định dạng hoặc tìm và thay thế ... Ngoài ra, tôi không chắc tại sao chúng ta cần một diễn viên khác sau đó scag, vì nó nên giữ thông tin loại. Vì vậy, nó đi.

Jstx , 7 byte

/£↕:1Fn

Hãy thử trực tuyến!

Perl 5 với-pa , 48 byte

$_=q{$_=substr"\$_=q{$_}:eval"x"@F",0,"@F"};eval

Hãy thử trực tuyến!

Gol> <> , 12 byte

"r2ssIFLko|;

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

"r2ssIFLko|;

"..."   Push the chars in reverse order
r2ss    Reverse the stack, then push `"`
IF...|  Input n, and repeat the following n times...
  L     Push the loop counter (0 to n-1)
   k    Pop x and copy x-th from the top
    o   Pop and print as char
;       Halt

k có thể gói bất kỳ số lần nào, vì vậy chúng tôi không cần sao chép toàn bộ ngăn xếp tùy thuộc vào đầu vào.

SmileBASIC, 106 66 byte

INPUT N?MID$(("+CHR$(34))*3,23,N)INPUT N?MID$(("+CHR$(34))*N,23,N)

KSFTgolf - 4 ký tự, 6 byte

KSFTgolf nếu một ngôn ngữ tôi đã cố gắng thiết kế cho mã golf. Tôi đã thay đổi nó rất nhiều, vì vậy điều này có lẽ không thực sự được tính đến.

☃\@2

Stax , 24 byte

"34bLNca*]$("34bLNca*]$(

Chạy và gỡ lỗi nó

Thích nghi của "34bL"34bLquine.

J, 41 byte

Bây giờ đó là một lời trêu ghẹo não!

((,quote,')$~'"_)'((,quote,'')$~''"_)')$~

Giải trình:

((,quote,')$~'"_)'((,quote,'')$~''"_)')$~  | Expression taking 1 argument
                                       $~  | Reshape left argument to fit right, taking cyclically.
(                                     )    | One large expression that evaluates to a string
                 '((,quote,'')$~''"_)'     | String literal containing the code to the left of it
 (,quote,'$)~'"_)                          | A 4-Hook:
         '$)~'"_                           | The string '$)~'
   quote,                                  | Appended to the quoted version of the string
  ,                                        | Appended to the raw string

Ví dụ:

   ((,quote,')$~'"_)'((,quote,'')$~''"_)')$~ 10
((,quote,'

   ((,quote,')$~'"_)'((,quote,'')$~''"_)')$~ 20
((,quote,')$~'"_)'((

   ((,quote,')$~'"_)'((,quote,'')$~''"_)')$~ 30
((,quote,')$~'"_)'((,quote,'')

   ((,quote,')$~'"_)'((,quote,'')$~''"_)')$~ 41
((,quote,')$~'"_)'((,quote,'')$~''"_)')$~

   ((,quote,')$~'"_)'((,quote,'')$~''"_)')$~ 50
((,quote,')$~'"_)'((,quote,'')$~''"_)')$~((,quote,

Lý , 28 byte

"r(34)<ns>l[p&:l,s]p<[>o<,]p

Hãy thử trực tuyến!

Java 10, 193 176 byte

n->{var s="n->{var s=%c%s%1$c;s=s.format(s,34,s);for(int i=n;i>0;i/=176)s+=s;return s.substring(0,n);}";s=s.format(s,34,s);for(int i=n;i>0;i/=176)s+=s;return s.substring(0,n);}

Giải trình:

Hãy thử trực tuyến.

n->{                       // Method with integer parameter and String return-type
  var s="n->{var s=%c%s%1$c;s=s.format(s,34,s);for(int i=n;i>0;i/=176)s+=s;return s.substring(0,n);}";
                           //  Unformatted source code
  s=s.format(s,34,s);      //  Create the formatted quine
  for(int i=n;i>0;         //  Loop `i` as long as it's not 0
      ;                    //    After every iteration:
       i/=176)             //     int-divide `i` by the hardcoded length of the source code
    s+=s;                  //   Exponentially enlarge the source code
  return s.substring(0,n);}//  Return the first `n` characters of the source code

quine -part:

• Các var s chứa mã nguồn chưa được định dạng.
• %s được sử dụng để nhập Chuỗi này vào chính nó với s.format(...) .
• %c, %1$cVà34 được sử dụng để định dạng dấu nháy kép.
• s.format(s,34,s) đặt tất cả lại với nhau

Phần thử thách:

• for(int i=n;i>n;i/=176)vòng lặp ceil(n/176)lần, trong đó 176độ dài của mã nguồn.
• s+=s;tăng theo cấp số nhân của chuỗi mã nguồn. ( abtrở thành abab; ababtrở thành abababab;abababab trở thành abababababababab; v.v.)
• s.subtring(0,n);lấy các nký tự đầu tiên của Chuỗi.

> <> , 22 19 byte

'rd3*$:?!;1-$:o}50.

Hãy thử trực tuyến!

Đưa đầu vào thông qua -vcờ.

Stax , 8 byte

",:m",:m

Chạy và gỡ lỗi nó