Delphi 7 的 quine

{ the actual program should not have line-break }
program quine;{$APPTYPE CONSOLE}uses SysUtils;const s = 'program quine;{$APPTYPE CONSOLE uses SysUtils; const s = %s%s%s; begin WriteLn(Format(s, [#39, s, #39])); ReadLn; end.';begin WriteLn(Format(s,[#39, s, #39]));ReadLn;end.
阅读更多
文章标签: delphi
个人分类: Delphi
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭