Rock Paper Scissors (Sorta) Quine

Question

Create three programs, which we'll call Rock, Paper, and Scissors.

Each program must be unique, and accept input.

If a program gets any input which is not one of the programs Rock, Paper or Scissors, it must print itself.

RPS style, the programs will each print one of the following four outputs:

1. "win" if the running program beats the program that is being input
2. "lose" if the running program loses against the program that is being input
3. "tie" if the input is equal to the source code of the running program
4. The source code of the running program itself for any other input (including an empty input)

General rules:

• The three programs can be in any language. Rock can be in a different language from Paper: same for any other pair.
• They are not restricted by size.
• They must print through STDOUT or closest equivalent, and must print strings or closest equivalent. They must not print to STDERR.
• They need not be full programs. They can be functions, if you wish to get rid of the stuff needed in a program, like C's #includes.

This is a code-golf challenge, where your score is determined by the sum of the programs' sizes. The person with the lowest score wins.
If two people have the same score, the person whose largest program by bytes out of the set Rock, Paper, Scissors is smaller wins.

Answer 1

Python 3, 273, 489, 429 bytes

Rock:

r=['tie', 'lose', 'win'];s="i=input();t=[f'r={r[n:]+r[:n]};s={s!r};exec(s)'for n in[0,1,2]];print(i in t and r[i.find('t')//7]or t[0])";exec(s)

Try it online against itself!
Try it online against Paper!
Try it online against Scissors!
Try it online against rubbish!

Paper:

r=['win', 'tie', 'lose'];s="i=input();t=[f'r={r[n:]+r[:n]};s={s!r};exec(s)'for n in[0,1,2]];print(i in t and r[i.find('t')//7]or t[0])";exec(s)

Try it online against itself!
Try it online against Scissors!
Try it online against Rock!
Try it online against garbage!

Scissors:

r=['lose', 'win', 'tie'];s="i=input();t=[f'r={r[n:]+r[:n]};s={s!r};exec(s)'for n in[0,1,2]];print(i in t and r[i.find('t')//7]or t[0])";exec(s)

Try it online against itself!
Try it online against Rock!
Try it online against Paper!
Try it online against trash!

The same as the previous version, but check that the input exactly matches the source code of one of the programs.

Try it online (together)!

Old (invalid) version

Rock:

s="print(['tie','lose','win','s='+repr(s)+';exec(s)',''][input().find('ti')//7-1])";exec(s)

Paper:

s="print(['win','tie','lose','s='+repr(s)+';exec(s)',''][input().find('ti')//7-1])";exec(s)

Scissors:

s="print(['lose','win','tie','s='+repr(s)+';exec(s)',''][input().find('ti')//7-1])";exec(s)

Try it online!

Three almost identical programs (all with 91 bytes), the only difference is the order of the win/tie/lose, which each program uses the position of the 'tie' to determine the result from it's own ordering.

As pointed out, these programs are invalid, as they will only print out themselves if the input doesn't contain 'ti' (or the 'ti' is in a certain place).

Answer 2

Jelly, 67 59 bytes × 3 = score of 177

“3ṛṾ;Ṫ,ɠ;µḣ2O_/2ị%3+1×ḣ2a2¦Ɱ3Ṿ€¤ċɗ/$ịṚ“win“lose“tie“1ịv”1ịv

Try it online!

A full program that reads a line from STDIN and returns tie if given the same program, win if given a program against which it can win and lose if a program against which it loses. If provided with anything except one of the rock, paper or scissors programs it prints itself.

The digit in second position in the program indicates which it is:

1. Rock
2. Scissors
3. Paper

Answer 3

Java 10, 1716 (three time 572) bytes

Rock program:

interface R{static void main(String[]a){var s="interface R{static void main(String[]a){var s=%c%s%1$c;System.out.print((s=s.format(s,34,s)).equals(a[0])?%1$ctie%1$c:t(s).equals(a[0])?%1$close%1$c:t(t(s)).equals(a[0])?%1$cwin%1$c:s);}static String t(String s){var r=%1$c%1$c;for(int b:s.getBytes())r+=(char)(b==82?80:b==80?90:b==90?82:b);return r;}}";System.out.print((s=s.format(s,34,s)).equals(a[0])?"tie":t(s).equals(a[0])?"lose":t(t(s)).equals(a[0])?"win":s);}static String t(String s){var r="";for(int b:s.getBytes())r+=(char)(b==82?80:b==80?90:b==90?82:b);return r;}}

The Paper program is similar, except with both R replaced with P.
The Scissor program is similar, except with both R replaced with Z (since S is already used in String).

Rock program:
- Try it online with itself as input.
- Try it online with the Paper program as input.
- Try it online with the Scissor program as input.
- Try it online with rubbish input.

Paper program:
- Try it online with itself as input.
- Try it online with the Scissor program as input.
- Try it online with the Rock program as input.
- Try it online with rubbish input.

Scizzor program:
- Try it online with itself as input.
- Try it online with the Rock program as input.
- Try it online with the Paper program as input.
- Try it online with rubbish input.

Explanation:

General quine explanation:

• The var s contains the unformatted source code
• %s is used to put this String into itself with s.format(...)
• %c, %1$c, and 34 are used to format the double-quotes
• s.format(s,34,s) puts it all together

Challenge part:

I've added a separated method t which will transliterate the characters RPZ once clockwise in all three programs:

static String t(String s){ // Method with String as both parameter and return-type:
  var r="";                //  Result-String, starting empty
  for(int b:s.getBytes())  //  Loop over the characters of the input-String:
    r+=                    //   Append to the result-String:
       (char)(             //    A character with codepoint:
              b==82?       //     If the character is 'R':
               80          //      Change it to 'P' (codepoint 80)
              :b==80?      //     Else-if the character is 'P':
               90          //      Change it to 'Z' (codepoint 90)
              :b==90?      //     Else-if the character is 'Z':
               82          //      Change it to 'R' (codepoint 82)
              :            //     Else:
               b);         //      Leave the character unchanged
  return r;}               //  Return the resulting String

When we're printing, it will do the following checks:

s.equals(a[0])?            // If the program equals the input:
 "tie"                     //  Print "tie"
:t(s).equals(a[0])?        // Else-if the program transliterated once equals the input:
 "lose"                    //  Print "lose"
:t(t(s)).equals(a[0])?     // Else-if the program transliterated twice equals the input:
 "win"                     //  Print "win"
:                          // Else:
 s                         //  Print the source code-String itself

Answer 4

05AB1E, 219 207 201 (three times 73 69 67) bytes

Rock program:

2"D34çý…·‡§ÍŽ°#sª¤¸YF¤₁DÀ‡ª}IQZ_ªÏ"D34çý…·‡§ÍŽ°#sª¤¸YF¤₁DÀ‡ª}IQZ_ªÏ

Paper program is similar, but with leading 5 instead of 2.
Scissor program is similar, but with leading 6 instead of 2.

Similar transliterate approach as my Java answer.

Rock program:
- Try it online with itself as input.
- Try it online with the Paper program as input.
- Try it online with the Scissor program as input.
- Try it online with rubbish input.

Paper program:
- Try it online with itself as input.
- Try it online with the Scissor program as input.
- Try it online with the Rock program as input.
- Try it online with rubbish input.

Scizzor program:
- Try it online with itself as input.
- Try it online with the Rock program as input.
- Try it online with the Paper program as input.
- Try it online with rubbish input.

Explanation:

General quine explanation:

Uses the default 14 bytes quine program of @OliverNi, since it's easy to modify (even though there is a shorter 05AB1E quine).

This quine will:

2               # Push a 2 (or 5 or 6 depending on the program used)
 "D34çý"        # Push the trailing part of the source-code as string
         D      # Duplicate this string on the stack
          34ç   # Push a 34 as ASCII character (a double quote '"')
             ý  # Join the three values on the stack by this
                # (and output the result implicitly)

Try it online.

Challenge part:

I've combined this with the following if-else construction:

…·‡§ÍŽ°         # Push dictionary string "tie lose win"
       #        # Split it on spaces: ["tie","lose","win"]
        sª      # Swap, and append the quine-string we created
¤               # Get the last item (the quine we added) of the list (without popping)
 ¸              # Wrap it into a list
  YF            # Loop 2 times (the default value of variable `Y` is 2):
    ¤           #  Get the last item of the list (without popping)
     ₁D         #  Push builtin 256 twice
       À        #  Rotate the digits once towards the left: 562
        ‡       #  Transliterate the 256 to 562 in the string
         ª      #  And append it to the list
  }IQ           # After the loop: check for each value if it's equal to the input
     Z          # Get the maximum (without popping) to check if any are truthy
      _         # Inverse this boolean (0 becomes 1; 1 becomes 0)
       ª        # Append it to the list of truthy/falsey values
        Ï       # Leave the strings of the earlier created list at the truthy positions

See this 05AB1E tip of mine (section How to use the dictionary?) to understand why …·‡§ÍŽ° is "tie lose win".

Answer 5

Python 3.8 (pre-release), 127 * 3 = 381 bytes

Rock :

x=0;exec(s:="a=';exec(s:=%r)'%s;i=input();print(a==i[3:]and'x=/'<i[:3]<'x=3'and['tie','win','lose'][x-int(i[2])]or'x=%d'%x+a)")

Try it online!

Paper :

x=1;exec(s:="a=';exec(s:=%r)'%s;i=input();print(a==i[3:]and'x=/'<i[:3]<'x=3'and['tie','win','lose'][x-int(i[2])]or'x=%d'%x+a)")

Try it online!

Scissors :

x=2;exec(s:="a=';exec(s:=%r)'%s;i=input();print(a==i[3:]and'x=/'<i[:3]<'x=3'and['tie','win','lose'][x-int(i[2])]or'x=%d'%x+a)")

Try it online!

How it works :

The structre of this quine is a variation of exec(s:="print('exec(s:=%r)'%s)")

• x=0, x=1, x=2 defines the type of the program (rock, paper or scissors)
• a=';exec(s:=%r)'%s stores the quine in a
• i=input() stores the input in i
• a==i[3:]and'x=/'<i[:3]<'x=3' verify that the input is any of rock, paper or scissors.
• and['tie','win','lose'][x-int(i[2])] If the above is true, prints the corresponding result using as index the difference of the type of each code
• or'x=%d'%x+a otherwise, prints the quine