代码高尔夫：反向奎因

Question

编写一个程序，将其源代码的反转输出为字符串。如果源是

abcd
efg

（即 C 字符串 "abcd\nefg"），

输出应该是

gfe
dcba

（即 C 字符串 "gfe\ndcba"）

那么 使用诸如 Brainf*ck 之类的深奥语言。

---

*编辑：**删除了不必要的 \0 字符。+

Answer 1

C：0个字符

<代码>

参考：http://www0.us.ioccc.org/年.html#1994_smr

Answer 2

HQ9+：

在HQ9+深奥语言中，此代码可能是：

Q

在这里您可以找到该语言的解释器。

Ruby：

来自此处的反向奎因。

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

Answer 3

Powershell FTW（1 个字符）：

1

将其直接放在命令行上或脚本内。

Answer 4

这是两行代码，改编自 NeatQuine.py :

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

Answer 5

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 6

Bash 脚本

（10 个字符）

cat $0|rev

必须将其保存为脚本文件才能在同一目录中工作和执行。

另一个解决方案是使用 python（或任何其他脚本语言）零字节源代码文件！它不会打印任何回报。规则中没有规定它不能是 0byte 文件:)。

Answer 7

J，26 个字符。

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

产生输出：

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

Answer 8

我可能会在高尔夫比赛中输掉比赛，但它给我上了重要的一课，让我了解了 reverse() 的微妙之处。 Perl 方式太多 (142) 个字符：

#!/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;

这证明 sprintf()/reverse() 组合不是解决这个问题的方法。更好的 Perl 解决方案无疑会使用 eval()。

---

巨大改进：45 个字符：

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

请注意，源文件应以空行结尾。空行被计入字符计数 - 否则你认为我们如何从两行相同的代码中得到奇数字符计数？

Answer 9

Python 2（55 个字符）：

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

更好的高尔夫球手可能能够稍微缩短此长度，因此欢迎任何改进。

编辑（43个字符）：

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

也感谢@stephan202捕捉​​打印上的空白

Answer 10

F#（659 个字符）

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)

插入换行符（这会破坏程序，但使其在此处更具可读性）：

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 11

在 C 语言中，217 个字符：

a="};)01(rahctup;)--p*(rahctup);p*;43=p*(rof;)a(ftnirp;))a,b=p(tacrts(nelrts=+p{)p*rahc(niam;}7393422{=]99[b;";b[99]={2243937};main(char*p){p+=strlen(strcat(p=b,a));printf(a);for(*p=34;*p;)putchar(*p--);putchar(10);}

Answer 12

Javascript - IE/Chrome/FF

(function(){alert(("("+arguments.callee+")()").split("").reverse().join(""))})()

Answer 13

在 Python 交互式提示符处：

xatnys dilavni :rorrExatnyS

27 个字符。

Answer 14

C89，119 个字符

不幸的是，这需要使用高度非标准的函数 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 15

Bash, 75 chars

好吧，当然一个空的 shell 脚本不会输出任何内容，但是下一个我能想到的最好的事情：

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

同样的技巧。

Answer 16

UNIX shell：

z=\' a='z=\\$z a=$z$a$z\;eval echo \$a\|rev';eval echo $a|rev

我倾向于重复我自己：这些程序应该被称为“Goedels”，因为大多数此类事物背后的想法（在现代）首先由 Kurt Goedel 在证明他的第一个不完备性定理中使用（库尔特·哥德尔的全集 I，第 175 页）。

Answer 17

Perl

73 个字符。

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

• 您必须在末尾添加 __DATA__ 才能开始打开 ​​DATA 文件句柄。
• 将 $/ 设置为数字的引用，会导致 readline() 一次读取那么多字节。
• 需要 seek(DATA,0,0) 将指针设置为文件的开头，而不是 __DATA__ 部分的开头。
• 可以删除或缩短 shebang 行 (#! ...)
• __DATA__ 后面需要换行符，否则它不是有效的 Perl。

Answer 18

Haskell，79 个字符

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

标准技巧。

Answer 19

Java：

绝对不是最短的，但到底是什么（一行）：

public class R{public static void main(String[] a){StringBuffer s = new StringBuffer("public类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 20

PHP 36 字节

<?echo strrev(join(file(__FILE__)));

Answer 21

C89（155 字节）

#define q(k)r(char*s){if(*s)r(s+1);putchar(*s);}main(){r(#k"\nq("#k")\n");}
q(#define q(k)r(char*s){if(*s)r(s+1);putchar(*s);}main(){r(#k"\nq("#k")\n");})

Answer 22

python（34 个字符）：

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

Answer 23

PHP

Snip - 删除了不正确的答案

现在要赎回自己；

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

Answer 24

JavaScript：您想要多少个字符？
第二个最简单的有效程序（使用我的方法）：240 个字符！ （包括空格但不包括换行）

<!DOCTYPE HTML>
<html>
<head>
</head>
<body>
<script>
var string = "<!DOCTYPE HTML>\n<html>\n" + document.documentElement.innerHTML + "\n</html>";
var string2 = string.split("").reverse().join("");
document.write(string2);
</script>
</body>
</html>

Answer 25

C/C++：

#include<stdio.h>
int main() {
    char c;
    freopen("thisfilename.c","r",stdin); //or thisfilename.cpp
    while(scanf("%c",&c)!=-1)
        printf("%c",c);
return 0; }