镜子奎因（或我的头很痛）

32

编辑：

• 编写程序p，该程序在执行时会产生输出p'，其中p'向后p，而在执行时会产生p'。
• 请勿使用其他文件（例如`reverse.txt`
• 最小代码长度为两个字符。
• 您的程序不能是回文。

• +50（如果您使用来自互联网的提取数据）。
• +25，如果您阅读自己的源代码。
• 每个字符+1点。
• 最低分获胜。

`eval(eval(eval(eval(eval(eval(eval(eval(eval(p)))))))))`

hildred

1

22

GolfScript，46个字符

``````0{`".~#"+.-1%+\.!@@}.~##~.}@@!.\+%1-.+"#~."`{1
``````

``````{`".~#"+.-1%}.~##~.}%1-.+"#~."`{
``````

hildred

Ilmari Karonen

9

Cruncher 2013年

21

Perl和C 6478 1955

``````#!/usr/bin/perl -i//
\$_=<<'rahc';eval \$_; #//
print scalar reverse "#!/usr/bin/perl -i//\n\\$_=<<'rahc';eval \\$_; #//\n\${_}rahc\n" #//
__END__
__END__ enifed#
};)"{ = ][cn\rahcn\n\"(p
};)'n\'( rahctup) 1 == 21%b ( fi
;)d(p;)]1-b[c,",d%",)d(foezis,d( ftnirpns{)b--;b;)c(foezis=b( rof
;)c(p;]9[d rahc;b tni{)(niam diov
}};)]1-b[c(rahctup )]1-b[c(fi{)b--;b;)c(nelrts=b(rof;b tni{)c*rahc(p diov
>h.gnirts< edulcni#
>h.oidts< edulcni#
;}
,0
,53,33,74,711,511,411,74,89,501,011,74,211
,101,411,801,23,54,501,74,74,01,63,59,16
,06,06,93,411,79,401,99,93,95,101,811,79
,801,23,63,59,95,23,53,74,74,01,211,411
,501,011,611,23,511,99,79,801,79,411,23,411
,101,811,101,411,511,101,23,43,53,33,74,711
,511,411,74,89,501,011,74,211,101,411,801,23
,54,501,74,74,29,011,29,63,59,16,06,06
,93,411,79,401,99,93,95,101,811,79,801,23
,29,63,59,95,23,53,74,74,29,011,63,321
,59,521,411,79,401,99,29,011,43,23,53,74
,74,01,59,59,96,87,86,59,59,01,59,59
,96,87,86,59,59,23,101,011,501,201,101,001
,53,01,521,95,14,43,321,23,16,23,39,19
,99,011,29,411,79,401,99,011,29,011,29,43
,04,211,01,521,95,14,93,011,29,93,04,23
,411,79,401,99,611,711,211,14,23,94,23,16
,16,23,05,94,73,89,23,04,23,201,501,01
,95,14,001,04,211,95,14,39,94,54,89,19
,99,44,43,44,001,73,43,44,14,001,04,201
,111,101,221,501,511,44,001,04,23,201,611,011
,501,411,211,011,511,321,14,89,54,54,95,89
,95,14,99,04,201,111,101,221,501,511,16,89
,04,23,411,111,201,01,95,14,99,04,211,95
,39,75,19,001,23,411,79,401,99,95,89,23
,611,011,501,321,14,04,011,501,79,901,23,001
,501,111,811,01,521,521,95,14,39,94,54,89
,19,99,04,411,79,401,99,611,711,211,23,14
,39,94,54,89,19,99,04,201,501,321,14,89
,54,54,95,89,95,14,99,04,011,101,801,411
,611,511,16,89,04,411,111,201,95,89,23,611
,011,501,321,14,99,24,411,79,401,99,04,211
,23,001,501,111,811,01,26,401,64,301,011,501
,411,611,511,06,23,101,001,711,801,99,011,501
,53,01,26,401,64,111,501,001,611,511,06,23
,101,001,711,801,99,011,501,53,01,95,521,01
{ = ][c
rahc
``````

编辑：

1
at ：O我的头爆炸了。但是我数了6536个字符……

@DoorknobofSnow我算错了版本。但是这是一个较短的版本。
hildred

theonlygusti 2015年

@theonlygusti，如果您发布它并且可以编译，我会投票赞成。
hildred

8

红宝石145

```DATA.read.tap {| a |输入a.reverse，a.tr（“ \ x79 \ x59”，“ \ x59 \ x79”）}
：y
__结束__
__DNE__
Y：
}）“ 97x \ 95x \”，“ 95x \ 97x \”（rt.a，esrever.a stup | a | {pat.daer.ATAD
```

``````\$ ruby rq2.rb > rq2t.rb
\$ ruby rq2t.rb > rq2tt.rb
``````

``````\$ diff rq2.rb rq2tt.rb
\$
``````

``````\$ diff rq2.rb rq2t.rb
3c3
< :y
---
> :Y
6c6
< Y:
---
> y:
``````

4

> <>，21 19字节

``````'rd3*70.r l?!;o90.<
``````

``````'d3*}70.!r  !|o|
``````

@JoKing谢谢！早上7点，我太累了，无法将它们放在一起。我将在几个小时内对其进行编辑。
Discordian

4

Gol> <>，11个字节

``````":5-}H}+5:'
``````

``````"r2ssrH}+5:'
``````

``````"r2ssrHrss7r'
``````

JoKing指出，以前的版本存在问题，谢谢您，现在可以正常工作，但是需要额外的4个字节的价格...

1

求助，WarDoq！（27个字节）

``````<space>q
``````

`<space>`-以非空格字符结尾的注释
`q`-反向打印源代码（q“空格”）

反转：

``````q<space>
``````

`q`-反向打印源代码（现在为q）
`<space>`-以非空格字符结尾的注释，并在q命令的开头添加一个字符（使“空格” q）