趣味程序：打印自己代码的程序

在CSDN上看到了这道题 http://community.csdn.net/Expert/topic/4654/4654528.xml
是写一小段程序，打印自己的代码。按我的理解，这里应当不能利用元数据或者文件操作，要完全使用程序代码生成一段和自己的代码一模一样的字符串。我写了几个版本，这些程序运行出来的结果都是打印所贴代码本身，大家可以试试看，娱乐一下，仅此而已。

C#版，为简化字符串操作，该程序只有一行。

class  P{ static   void  Main(){ string  s = " class P{{static void Main(){{string s={1}{0}{1};System.Console.WriteLine(s,s,(char)34);}}}} " ;System.Console.WriteLine(s,s,( char ) 34 );}}

我已经写不出比这个还短，同时能打印自己代码的C#程序了。

VB版

Module  M: Dim  c$  =   " Module M:Dim c$ = {2}{0}{2}{1}Sub Main(){1}Console.WriteLine(c,c,vbCrLf,Chr(34)){1}End Sub:End Module "
Sub  Main()
Console.WriteLine(c,c,vbCrLf, Chr ( 34 ))
End Sub : End Module

同样，为了简化字符串操作，压缩了空格和换行。这也是我能写出最短的VB版本。

Python版

print  ( lambda  s: s.replace(chr( 042 ),chr( 047 )) % s)( ' print (lambda s: s.replace(chr(042), chr(047))%%s)("%s") ' )

我的Python用的不是十分熟练，因此这个Python版本恐怕还不是最短的版本。不知道在座Python高手们能不能写出更精妙的打印自己代码的程序。