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.
阅读更多
想对作者说点什么?

博主推荐

换一批

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