Xây dựng quines (chức năng tự tái tạo)

Question

Có ai xây dựng một quine ("Một chương trình tạo ra một bản sao của văn bản nguồn của nó như là sản lượng hoàn chỉnh của nó": http://www.nyx.net/~gthompso/quine.htm) trong R? (The [Quine] tag kéo lên rất nhiều ví dụ bằng Python, Java, ... nhưng dường như không ai trong R.)

f <- function() { body() } 

đến gần:

> f() 
{ 
    body() 
} 

nhưng lại thiếu tên của hàm .

Làm thế nào về khả năng ngắn nhất? Hầu hết các obfuscated?

chỉnh sửa: từ sự đa dạng của câu trả lời dưới đây, có vẻ như có rất nhiều cách khác nhau để xác định tự tham chiếu qua và môi trường mà nó phải xảy ra:

• trong môi trường R: chức năng -> chức năng (@ bill_080)
• trong môi trường hệ điều hành/vỏ: chương trình -> chương trình [ít nhiều tương đương với chương trình -> văn bản]: (@kohske)
• khác: chức năng -> văn bản (@JoshUlrich, @ James, vấn đề như d efined trên)

Ghi chú:

• Các thread from R-help pointed out by @Spacedman (mà dường như để nhấn mạnh obfuscation qua ngắn gọn) gợi ý rằng identical(quine,quine()) là một trường hợp thử nghiệm tốt, mặc dù nó khó khăn vì môi trường được thực hiện cùng: identical(quine,quine(),ignore.environment=TRUE) sức dễ dàng hơn.
• Một gần đây (tháng 10 năm 2015) blog post cung cấp câu trả lời khác ...

Answer 1

Đây là ngắn nhất tôi có thể đưa ra:

> "f" <- function() call("<-", "f", f) 
> f() 
"f" <- function() 
call("<-", "f", f) 

Answer 2

Sử dụng những gì body không làm nguồn cảm hứng, call có thể được sử dụng để tái tạo các lệnh gọi:

f <- function() 
{ 
    call("<-", as.name(as.character(sys.calls()[[1]])), sys.function(sys.parent())) 
} 

Những kết quả đầu ra:

> f() 
f <- function() 
{ 
    call("<-", as.name(as.character(sys.calls()[[1]])), sys.function(sys.parent())) 
} 

Answer 3

Nếu bạn muốn hàm trả về hàm ..... có thể đây?

junk <- function(...) { 
    function(...) { 
    structure(junk(...)) 
    } 
} 

Đầu ra là:

> junk() 

function(...) { 
    structure(junk(...)) 
    } 
<environment: 01ef8e50> 


> boo <- junk(999) 
> boo 

function(...) { 
    structure(junk(...)) 
    } 
<environment: 020e1048> 


>dput(boo) 

function (...) 
{ 
    structure(junk(...)) 
} 

Answer 4

Đây là một Quine sản, một chương trình (không phải là một chức năng) tạo bản sao văn bản nguồn của chính nó làm đầu ra hoàn chỉnh của nó.

Mở giao diện điều khiển,

# y1.R is a quine program 
$ cat y1.R 
(function(x){cat(x);cat('(');cat(intToUtf8(0x0022));cat(x);cat(intToUtf8(0x0022));cat(')')})("(function(x){cat(x);cat('(');cat(intToUtf8(0x0022));cat(x);cat(intToUtf8(0x0022));cat(')')})") 

# execute y1.R and show output 
$ /usr/bin/R --vanilla --slave < y1.R 
(function(x){cat(x);cat('(');cat(intToUtf8(0x0022));cat(x);cat(intToUtf8(0x0022));cat(')')})("(function(x){cat(x);cat('(');cat(intToUtf8(0x0022));cat(x);cat(intToUtf8(0x0022));cat(')')})") 

# save the output of the execution of y1 
$ /usr/bin/R --vanilla --slave <y1.R> y2.R 

# compare input and output -- exactly same. 
$ diff y1.R y2.R 

lẽ đây không phải là ngắn nhất.

CẬP NHẬT:

và phiên bản ngắn hơn một chút:

(function(x){cat(x,'(',d<-intToUtf8(0x0022),x,d,')',sep='')})("(function(x){cat(x,'(',d<-intToUtf8(0x0022),x,d,')',sep='')})") 

Answer 5

Trong khi tôi không chắc chắn nếu điều này "đếm" từ góc độ Quine (tôi stumbled trên câu hỏi này trong khi cố gắng xác minh nếu nó có), tập lệnh

function(){} 

sẽ xuất function(){}. Điều này làm việc trên nguyên tắc tương tự như câu trả lời của Joshua Ulrich, chỉ cần bỏ qua các yếu tố cần thiết.