Code golf: Reverse quine

Question

Write a program that outputs the reverse of its source code as a string. If the source is

abcd
efg

(i.e., the C string "abcd\nefg")

Then the output should be

gfe
dcba

(i.e., the C string "gfe\ndcba")

Bonus points for using esoteric languages such as brainf*ck.

---

*EDIT:** Removed the unnecessary \0 characters.+

Answer 1

HQ9+:

In HQ9+ esoteric language this code might be:

Q

Here You can find interpreter for that language.

Ruby:

Reversed quine from here.

eval s=%q(puts "eval s=%q(#{s})".reverse)

Answer 2

Here's a two-liner, adapted from NeatQuine.py:

me = 'me = %(me)r\nprint (me %% locals())[::-1]'
print (me % locals())[::-1]

Answer 3

Bash script

(10 Charecters)

cat $0|rev

This must be saved as a script file to work and executed on the same directory.

Another solution would be in python (or any other scripting languages) a zero byte source code file! it will print nothing in return. There's nothing in the rules saying it can't be 0byte file :).

Answer 4

C89

int sprintf(char*,char*,...);char*d=
"int sprintf(char*,char*,...);char*d=%c%c%s%c%c,b[999],*p=b+251;main(){for(sprintf(b+1,d,10,34,d,34,10,10,10);*p;)putchar(*p--);}%c"
,b[999],*p=b+251;main(){for(sprintf(b+1,d,10,34,d,34,10,10,10);*p;)putchar(*p--);}

Answer 5

PHP

Snip - removed incorrect answer

And now to redeem myself;

<?php echo strrev(file_get_contents(__FILE__)); ?>

Answer 6

I'm going to lose at golf, but it taught me an important lesson about the subtleties of reverse(). Perl in way too many (142) characters:

#!/usr/bin/perl
$_='#!/usr/bin/perlc%$_=c%s%c%;print sprintf~~reverse,10,39,~~reverse,39,10;c%';print sprintf~~reverse,10,39,~~reverse,39,10;

This proves that the sprintf()/reverse() combination is not the way to approach this problem. A better Perl solution will undoubtedly use eval().

---

Vast improvement: 45 characters:

print~~reverse <<''x2
print~~reverse <<''x2

Note that the source file should end in a blank line. The blank line is counted in the character count - how else do you think we got an odd character count out of two identical lines of code?

Answer 7

F# (659 chars)

open System;let R(s:String)=new System.String(s|>List.of_seq|>List.rev|>Array.of_list) in let q=char 34 in let Q(s:String)=s.Replace(new String([|q|]),new String([|char 92;q|])) in let Quine s=String.Format("let s={0}{1}{2} in printf {3}%s%s{4} (R(Quine s)) (R s)",[|box q;box(Q s);box q;box q;box q|]) in let s="open System;let R(s:String)=new System.String(s|>List.of_seq|>List.rev|>Array.of_list) in let q=char 34 in let Q(s:String)=s.Replace(new String([|q|]),new String([|char 92;q|])) in let Quine s=String.Format(\"let s={0}{1}{2} in printf {3}%s%s{4} (R(Quine s)) (R s)\",[|box q;box(Q s);box q;box q;box q|]) in " in printf "%s%s" (R(Quine s)) (R s)

Inserting line breaks (that break the program, but make it more readable here):

open System;
let R(s:String)=new System.String(s|>List.of_seq|>List.rev|>Array.of_list) in 
let q=char 34 in 
let Q(s:String)=s.Replace(new String([|q|]),new String([|char 92;q|])) in 
let Quine s=String.Format("let s={0}{1}{2} in printf {3}%s%s{4} (R(Quine s)) (R s)",
    [|box q;box(Q s);box q;box q;box q|]) in 
let s="open System;
       let R(s:String)=new System.String(s|>List.of_seq|>List.rev|>Array.of_list) in 
       let q=char 34 in 
       let Q(s:String)=s.Replace(new String([|q|]),new String([|char 92;q|])) in 
       let Quine s=String.Format(\"let s={0}{1}{2} in printf {3}%s%s{4} (R(Quine s)) (R s)\",
           [|box q;box(Q s);box q;box q;box q|]) in " in
printf "%s%s" (R(Quine s)) (R s)

Answer 8

Perl

73 characters.

#! /opt/perl/bin/perl
seek DATA,0,0;$/=\1;print reverse <DATA>;
__DATA__
​

• You have to have __DATA__ at the end for the DATA file-handle to start out opened.
• Setting $/ to a reference of a number, causes readline() to read that many bytes at a time.
• seek(DATA,0,0) is required to set the pointer to the beginning of the file, instead of at the beginning of the __DATA__ section.
• Could remove, or shorten the shebang line (#! ...)
• __DATA__ requires a newline after it, or it isn't valid Perl.

Answer 9

python (34 chars):

print(open(__file__).read()[::-1])

Answer 10

Powershell FTW (1 character):

1

Put it directly on the command line, or inside a script.

Answer 11

Python 2 (55 char):

x='x=%s;print(x%%repr(x))[::-1]';print(x%repr(x))[::-1]

A better golfer might be able to shorten this somewhat, so any improvements are welcome.

Edit (43 char):

x='x=%r;print(x%%x)[::-1]';print(x%x)[::-1]

also thanks to @stephan202 for catching the whitespace on prints

Answer 12

C89, 119 characters

Unfortunately, this requires use of the highly non-standard function strrev():

main(){char*a="};)43,)b(verrts,43,a(ftnirp;)a(pudrts=b*,%c%s%c=a*rahc{)(niam",*b=strdup(a);printf(a,34,strrev(b),34);}

Answer 13

Haskell, 79 characters

a=";main=putStr.reverse$\"a=\"++show a++a";main=putStr.reverse$"a="++show a++a

Standard trick.

Answer 14

Bash, 75 chars

Well, of course an empty shell script will output nothing, but the next best thing I can think of:

a=\;printf\ \"a=%q%s\"\ \"\$a\"\ \"\$a\"\|rev;printf "a=%q%s" "$a" "$a"|rev

Same ol' trick.

Answer 15

C : 0 chars

Ref: http://www0.us.ioccc.org/years.html#1994_smr

Answer 16

Java:

Definitely not the shortest possible, but what the heck (one line):

public class R{public static void main(String[] a){StringBuffer s = new StringBuffer("public class R{public static void main(String[] a){StringBuffer s = new StringBuffer();s.reverse();System.out.print(s.substring(0,152));System.out.write(34);System.out.print(s);System.out.write(34);System.out.println(s.substring(152));}}");s.reverse();System.out.print(s.substring(0,152));System.out.write(34);System.out.print(s);System.out.write(34);System.out.println(s.substring(152));}}

Answer 17

J, 26 characters.

|.(,~,2#{:)'|.(,~,2#{:)'''

Produces the output:

'''):{#2,~,(.|'):{#2,~,(.|