Tri-interquine - Trzy programy, które wysyłają się nawzajem w pętli

10

Powiązane: Interquine

Program A wyprowadza kod programu B po uruchomieniu, a B wyprowadza źródło C, a C wyprowadza źródło A.

Tym razem nie możesz wymienić dwóch postaci i wymienić ponownie :)

Wymagania:

  • Tylko jeden język we wszystkich programach
  • Obowiązują standardowe ograniczenia luk
  • Wszystkie programy są różne. Jeden program, który sam się wyprowadza, nie kwalifikuje się. Dwa, które produkują się nawzajem, również się nie kwalifikują.
  • Wszystkie programy są niepuste lub mają co najmniej 1 bajt długości.
  • Nie ma nic do czytania, ponieważ jest podłączony do stdin /dev/null(można nadużywać tej reguły, jeśli możliwe ). Wyjście przechodzi na standardowe wyjście.
  • Nie używaj funkcji generujących losowe wyniki.

Dodatkowy:

  • Podaj wyjaśnienia, jeśli to możliwe

Wynik jest długością najkrótszego (czy możesz wygenerować długi program z krótkiego?). Podaj długość wszystkich programów i zaznacz najmniejszą liczbę. Końcowy znak nowej linii się nie liczy. Najniższy wynik wygrywa .

iBug
źródło
2
Związane z. (To samo, różne języki.)
Martin Ender

Odpowiedzi:

19

Python 3 , 50 bajtów

s='s=%r;print(s%%(s,%i*2%%7))';print(s%(s,1*2%7))

Wypróbuj online!

Ostatnim wyrazem idzie od 1*2%7celu 2*2%7, aby 4*2%7następnie z powrotem 1*2%7.

Leaky Nun
źródło
6
Wygląda jak uniwersalne rozwiązanie dla n-interquine. Musisz tylko zastąpić 7 przez (2 ^ n) -1.
iBug
4
W Pythonie 2 mapowanie 1-2/_tworzy 3-cyklowy cykl (1,-1,3), który oszczędza bajt, nie wymagając ucieczki %.
xnor
@iBug lub nawet krócej za duży n, s='s=%r;print(s%%(s,-~%i%%3))';print(s%(s,-~1%3))zastępując 3zn
PurkkaKoodari
4

RProgN 2 , 12 8 bajtów

1
«\2*7%

Wyjaśnione

1   # Push the digit to the stack.

«\2*7%
«       # Define a function from here to the matching ». As there is no matching », define it from here to the end of the program, and continue running.
 \      # Flip the function under the constant number.
  2*    # Multiply by 2.
    7%  # Modulo 7.

Ze względu na dogodny charakter domyślnego wyjścia RProgN, pozostawia liczbę, która zapętla między 1, 2 i 4, w pierwszym wierszu, a strunkową wersję funkcji w drugim. Zainspirowany @LeakyNun „s Python Odpowiedź

Wypróbuj online!

ATaco
źródło
4

CJam , 17 bajtów

{sZZe\6Ye\"_~"}_~

{s6Ze\ZYe\"_~"}_~

{sZ6e\ZYe\"_~"}_~

Wypróbuj online!

Prawdopodobnie nie optymalne, ale jest to modyfikacja mojego podejścia do poprzedniego wyzwania .

Podstawowa idea jest taka sama, ale wykonujemy dwie zamiany, z których jedna zawsze nie działa. Wskaźniki są dotknięte 2, 3i 6:

1:     {sZZe\6Ye\"_~"}_~
ZZe\             does nothing
       {sZZe\6Ye\"_~"}_~
6Ye\     \   /
          \ /
           X
          / \
         /   \
2:     {s6Ze\ZYe\"_~"}_~
6Ze\      \  /
           \/    doesn't really do anything
           /\
          /  \
       {s6Ze\ZYe\"_~"}_~
ZYe\     \/
         /\
3:     {sZ6e\ZYe\"_~"}_~
Z6e\      \  /
           \/
           /\
          /  \
       {sZZe\6Ye\"_~"}_~
ZYe\     \/      doesn't really do anything 
         /\
1:     {sZZe\6Ye\"_~"}_~
Martin Ender
źródło
3

CJam , 14 bajtów

{_]3/W="_~"}_~

{_]3/W="_~"}{_]3/W="_~"}_~

{_]3/W="_~"}{_]3/W="_~"}{_]3/W="_~"}_~

Wypróbuj online!

Pozostałe programy mają odpowiednio 26 i 38 bajtów.

Wyjaśnienie

Jeszcze inne podejście!

{       e# Again, the usual quine framework. In this case, there might
        e# be one or two additional copies of the block on the stack.
  _     e#   Duplicate the top copy of the block.
  ]     e#   Wrap all copies in an array.
  3/    e#   Split into chunks of 3. For the first two programs, this will
        e#   just wrap all of them in an array. For the third program, this
        e#   splits the fourth copy off from the first three.
  W=    e#   Select the last chunk. So `3/W=` does nothing for the first
        e#   two programs, but discards three copies once we get to four.
  "_~"  e#   Push the remainder of the program.
}_~
Martin Ender
źródło
2

Galaretka , 11 bajtów

“Ḥ%7Øv;”Ṙv1

Wygenerowano ten sam program z 1 zamienionym na 2 , który zastąpił 2 przez 4 , co generuje oryginalny program.

Wypróbuj online!

Dennis
źródło
2

Python 3, 127, 127 i 127 bajtów

a='a=%r;b=%r;c=%r;print(b%%(b,a,c))';b='b=%r;a=%r;c=%r;print(c%%(c,a,b))';c='c=%r;a=%r;b=%r;print(a%%(a,b,c))';print(b%(b,a,c))

odciski

b='b=%r;a=%r;c=%r;print(c%%(c,a,b))';a='a=%r;b=%r;c=%r;print(b%%(b,a,c))';c='c=%r;a=%r;b=%r;print(a%%(a,b,c))';print(c%(c,a,b))

odciski

c='c=%r;a=%r;b=%r;print(a%%(a,b,c))';a='a=%r;b=%r;c=%r;print(b%%(b,a,c))';b='b=%r;a=%r;c=%r;print(c%%(c,a,b))';print(a%(a,b,c))

Opiera się to na mojej odpowiedzi na pytanie Interquine, które jest oparte na normalnym quine Pythona. I wiem dokładnie, co zrobić, gdy otrzymamy pytanie o quad-interquine;)

aaay aaay
źródło
1

CJam , 14 bajtów

0{\)3%\"_~"}_~

1{\)3%\"_~"}_~

2{\)3%\"_~"}_~

Wypróbuj online!

Wyjaśnienie

0{      e# Again, the standard CJam quine framework, but this time we have a zero
        e# at the bottom of the stack.
  \     e#   Bring the 0 to the top.
  )     e#   Increment.
  3%    e#   Mod 3 to loop from 2 back to 0.
  \     e#   Put the result underneath the block again.
  "_~"  e#   Push the remainder of the source.
}_~
Martin Ender
źródło
1

JavaScript (ES6), 63 55 bajtów

eval(c="`eval(c=${JSON.stringify(c)},n=${++n%3})`",n=0)
eval(c="`eval(c=${JSON.stringify(c)},n=${++n%3})`",n=1)
eval(c="`eval(c=${JSON.stringify(c)},n=${++n%3})`",n=2)

o1.innerText = eval(c="`eval(c=${JSON.stringify(c)},n=${++n%3})`",n=0) 
o2.innerText = eval(c="`eval(c=${JSON.stringify(c)},n=${++n%3})`",n=1)
o3.innerText = eval(c="`eval(c=${JSON.stringify(c)},n=${++n%3})`",n=2)
<pre id="o1"></pre>
<pre id="o2"></pre>
<pre id="o3"></pre>

Alternatywne rozwiązanie przy użyciu Function.prototype.toString(cheaty, 30 bajtów)

(f=n=>`(f=${f})(${++n%3})`)(1)
Herman L.
źródło
1

Rachunek Lambda , 38 znaków, 44 bajty

Proste rozwiązanie oparte na matce wszystkich quinesów: kombinator y :

(λx.(λy.y)(λz.z)xx)(λx.(λy.y)(λz.z)xx)

Korzystając z redukcji beta, widzimy, że to rzeczywiście interkwina:

(λx.(λy.y)(λz.z)xx)(λx.(λy.y)(λz.z)xx)
(λy.y)(λz.z)(λx.(λy.y)(λz.z)xx)(λx.(λy.y)(λz.z)xx)
(λz.z)(λx.(λy.y)(λz.z)xx)(λx.(λy.y)(λz.z)xx)
(λx.(λy.y)(λz.z)xx)(λx.(λy.y)(λz.z)xx)
etc.
Def
źródło
0

Java 8, 118 bajtów

v->{int i=0;String s="v->{int i=%d;String s=%c%s%2$c;return s.format(s,++i%%3,34,s);}";return s.format(s,++i%3,34,s);}

int i=0;Różnica jest tylko między funkcjami / wyjściami (to albo 0, 1albo 2).

Wyjaśnienie:

Wypróbuj online.

v->{                       // Method with empty unused parameter and String return-type
  int i=0;                 //  Integer, starting at 0, 1 or 2 depending on the version
                           //  (this is the only variation between the functions/outputs)
  String s="v->{int i=%d;String s=%c%s%2$c;return s.format(s,++i%%3,34,s);}";
                           //  String containing the unformatted source code
  return s.format(s,++i%3,s);}
                           //  Quine to get the source code, which we return as result
                           //  ++i%3 is used to cycle 0→1→2→0

Dodatkowe wyjaśnienie:

-part:

  • String s zawiera niesformatowany kod źródłowy
  • %s służy do umieszczenia tego ciągu w sobie s.format(...)
  • %c, %2$cI 34są wykorzystywane do formatowania cudzysłowia ( ")
  • %%służy do formatowania znaku modulo ( %)
  • s.format(s,...,34,s) łączy to wszystko razem

Różnica wyjść / funkcji:

Takie samo podejście jak w przypadku większości innych odpowiedzi:

  • int izaczyna się albo 0, 1albo2
  • ++i%3przekształca to następny ( 0→1; 1→2, 2→0)
Kevin Cruijssen
źródło
0

> <> , 15 bajtów

1'~r2*7%nd3*>o<

Wypróbuj online!

Używa tej samej ogólnej formy, co inne quiny> <>, ale ma dodatkowy znak z przodu, który jest przełączany przez 1, 2 i 4.

Jo King
źródło