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.

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

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试

关闭