Написать машину времени


21

Напишите программу, которая принимает в качестве входных данных строку и целое число nи выводит:

  1. Строка, которая была передана в программу несколько nраз назад;
  2. Новая программа, которая будет использоваться для следующего вызова.

Вы не можете хранить какие-либо данные вне программы, и ваша программа не может вызывать предыдущие программы в цепочке. Если строка не существует, выведите пустую строку (но все равно выведите следующую программу).

Пример выполнения, где я использую обозначения program_nдля каждой последующей программы (Конечно, [This text is the nth program]будет заменен реальным кодом.)

$ program_1 "One" 1
[This text is the second program]
$ program_2 "Two" 1
One
[This text is the third program]
$ program_3 "Three" 2
One
[This text is the fourth program]
$ program_4 "Four" 2
Two
[This text is the fifth program]
$ program_5 "Five" 1
Four
[This text is the sixth program]

Должен ли код новой программы выводиться в виде строки? Или это должно быть сохранено в файл и вывод имени файла?
Мего

@Mego Вывести его в виде строки (то есть в STDOUT). Вам не нужно реализовывать копирование новой программы в файл.
абсент

Под «выводом ничего» вы подразумеваете вывод следующей программы, но не (несуществующей) строки?
Мего

@ Мега Да, это то, что я имел в виду.
Абсент

Вы также можете добавить program_n+1'ы' в строку вывода, как [program_3, One]если бы это было то, что вы хотели бы видеть. Если оба вывода идут в стандартный вывод, как они должны быть разделены? Также разрешена функция вместо полных программ?
Рандомра

Ответы:


4

CJam, 25

L{\_l~(>1<lN+a@+`@"_~"}_~

Попробуйте онлайн

Объяснение:

L      push an empty array (this is the array of previous strings)
{…}    push this block
_      duplicate the block
~      execute the 2nd copy (the stack contains the array and the block)

Блок:

\      swap the array with the block
_      duplicate the array
l      read a line from the input (containing the integer n)
~(     evaluate n and decrement it
>      slice the array starting at that position
1<     slice the resulting array to keep only the first string (if any)
l      read the 2nd line from the input (containing the string)
N+     append a newline
a      wrap in an array
@      bring the previous array to the top
+      concatenate the arrays, thus prepending the new string
`      convert the array to its string representation
@      bring the block to the top
"_~"   push this string

В конце запрошенная строка (если есть), представление массива, блок и строка «_ ~» печатаются автоматически.


2

Python, 221 байт

import sys
o,p=[''],r'import sys;a,o,p=int(sys.argv[2]),[{2},{0}],{1};print o[a] if len(o)>a else "","\n",p.format(`sys.argv[1]`,`p`,",".join(`s`for s in o))'
print '\n',p.format(`sys.argv[1]`,`p`,','.join(`s`for s in o))

Чтобы проверить это легко, используйте ./thisgolf.py "yourfirststring" | python -c "import sys;exec(sys.stdin.read().split('\n')[1])" "your second string" <N>, повторяя последний бит столько раз, сколько захотите.


2

Python 2, 207 байт

def r(O,R):import sys,marshal as m;a=sys.argv;b=int(a[2]);O.extend(["",""]*b);O[b]=a[1];print"%s\nfrom marshal import*;c=%r;i=lambda:0;i.__code__=loads(c);i(%r,i)"%(O[0],m.dumps(R.__code__),O[1:])
r([""],r)

Построенная на моей другой программе Quine, но меняющая программу , эта задача проще, так что я смог сыграть в нее дальше. Если бы я смог принять ввод в stdin, это должно быть намного короче.


0

Javascript ES6, 130 128 121 120 113 байтов

a=[];b=_=>{a.push(prompt());console.log((a[a.length-prompt()-1]||"")+`
a=`+JSON.stringify(a)+";b="+b+";b()")};b()

до 87: a = []; b = _ => (a.push (prompt ()), [a [a.length-prompt () - 1] || "", `a = ‌ [$ { a}]; b = $ {b}; b () `]); b ()
развлекательный ролик Mama

Ой. Будет ли это? Это 66 байтов: a = [], b = (x, y) => (a.push (x), `$ {a [a.length-y-1] ||" "} \ na = [$ { a}]; b = $ {b} `) _____ заменить текущим \nсимволом новой строки.
Mama Fun Roll

Затем попробуйте a = [], b = (x, y) => (a.push (x), `$ {a [a.length-y-1] ||" "} \ na = $ {JSON.stringify (a)}; b = $ {b} `) , что оставляет вам 80 байт (после замены \ n, конечно). (Если у вас все еще есть проблема с моим кодом, возможно, являющимся фрагментом REPL, то у меня есть другие предложения: P).
Mama Fun Roll

Некоторые из последних версий имели несовместимые форматы вывода. Откатился до последней совместимой версии.
SuperJedi224
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.