Palindromic Quine by hirose

doMessage(f:=message(setSlot("s", "doMessage(f:=message(" asMutable) ;#
s appendSeq(f code, "))#") replaceSeq("\n", "#\n") ;#
s print ;#
s reverse print))##))tnirp esrever s
#; tnirp s
#; )"n\#" ,"n\"(qeSecalper )"#))" ,edoc f(qeSdneppa s
#; )elbatuMsa "(egassem=:f(egasseMod" ,"s"(tolStes(egassem=:f(egasseMod

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page