Construir quines (funciones de autorreproducción)

Question

¿Alguien ha construido un quine ("Un programa que genera una copia de su propio texto fuente como su salida completa": http://www.nyx.net/~gthompso/quine.htm) en R? (La etiqueta [Quine] se detiene en un montón de ejemplos en Python, Java, ... pero al parecer ninguno en R.)

f <- function() { body() } 

se acerca:

> f() 
{ 
    body() 
} 

pero carece del nombre de la función .

¿Qué tal la posibilidad más corta? ¿Más ofuscado?

edición: a partir de la variedad de respuestas a continuación, parece que hay una variedad de maneras de definir autorreferencialidad y el medio ambiente en el que tiene que ocurrir:

• en el medio ambiente: R: Función -> función (@ bill_080)
• dentro del entorno OS/shell: programa programa -> [más o menos equivalente a programar -> texto]: (@kohske)
• otro: función -> texto (@JoshUlrich, @ James, problema como d efined arriba)

Notas:

• El thread from R-help pointed out by @Spacedman (que parece enfatizar la ofuscación más de brevedad) sugiere que identical(quine,quine()) es un buen caso de prueba, aunque es difícil porque los ambientes se deja llevar por: fuerza identical(quine,quine(),ignore.environment=TRUE) ser más fácil.
• Un reciente (octubre de 2015) blog post proporciona otra respuesta ...

Answer 1

Esta es la más corta que puedo llegar a:

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

Answer 2

Usando lo hace body como fuente de inspiración, call se puede utilizar para reproducir el mandato que llama:

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

que da salida:

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

Answer 3

Si desea una función que devuelva una función ..... ¿tal vez esto?

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

La salida es:

> junk() 

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


> boo <- junk(999) 
> boo 

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


>dput(boo) 

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

Answer 4

Aquí es un verdadero Quine, un programa (no una función) que genera una copia de su propio texto fuente como su salida completa.

En la consola,

# 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 

probablemente este no es el más corto.

ACTUALIZADO:

y la versión ligeramente más corto:

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

Answer 5

Aunque no estoy seguro de si esta "cuenta" desde una perspectiva de Quine (yo me encontré con esta pregunta al tratar de verificar si lo hace), el script

function(){} 

dará salida a function(){}. Esto funciona según el mismo principio que la respuesta de Joshua Ulrich, solo reducido a lo esencial.