Построение квин (самовоспроизводящиеся функции)

Question

Кто-нибудь создал quine («Программа, которая генерирует копию своего собственного исходного текста в качестве полного вывода»: http://www.nyx.net/~gthompso/quine.htm) в R? (Тег [quine] собирает множество примеров в Python, Ява ... но, видимо, нет в R.)

f <- function() { body() }

подходит близко:

> f()
{
    body()
}

, но отсутствует название функции.

Как насчет кратчайшей возможности? Самый запутанный?

edit : из множества ответов, приведенных ниже, представляется, что существует множество способов определения самоссылки и среды, в которой это должно произойти:

• в среде R: функция -> функция (@ bill_080)
• в среде ОС / оболочки: программа -> программа [более или менее эквивалентна программе -> текст]: (@kohske)
• другое: функция -> текст (@JoshUlrich, @James, проблема, как определено выше)

Примечания:

• Поток из R-help, на который указывает @ Spacedman (который, кажется, подчеркивает запутанность, а не краткость), предполагает, что identical(quine,quine()) - хороший тестовый пример, хотя он и сложен, потому что среды переносятся: identical(quine,quine(),ignore.environment=TRUE) может быть проще.
• Недавнее (октябрь 2015 г.) сообщение в блоге дает другой ответ ...

Answer 1

Это самое короткое, что я могу придумать:

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

Answer 2

Вот настоящий Quine, программа (не функция), которая генерирует копию своего собственного исходного текста в качестве полного вывода.

На консоли,

# 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

вероятно, это не самый короткий.

ОБНОВЛЕНИЕ:

и немного более короткая версия:

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

Answer 3

Используя то, что body делает для вдохновения, call можно использовать для воспроизведения вызывающей команды:

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

Какие выходы:

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

Answer 4

Хотя я не уверен, что это «считается» с точки зрения квин (я наткнулся на этот вопрос, пытаясь проверить, так ли это), скрипт

function(){}

выведет function(){}.Это работает по тому же принципу, что и ответ Джошуа Ульриха, только уменьшив все необходимое.

Answer 5

Если вы хотите функцию, которая возвращает функцию ..... может быть, это?

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

Вывод:

> junk()

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


> boo <- junk(999)
> boo

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


>dput(boo)

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