Anonymous user
Narcissist: Difference between revisions
Added Perl example
m (→{{header|REXX}}: added comments for the versions.) |
(Added Perl example) |
||
Line 48:
Based upon [[Quine#Using_eval|one of the quines]]. Outputs 'true' if source is equal to inputted line (newline terminated), 'false' otherwise.
<lang javascript>var code='var q=String.fromCharCode(39);print("var code=" + q + code + q + "; eval(code)" == readline())'; eval(code)</lang>
=={{header|Perl}}==
<lang perl># this is file narc.pl
print do { local $/; open 0, $0 or die $!; <0> } eq <> ? "accept" : "reject"</lang>
Run:
<lang>perl narc.pl < narc.pl</lang>
=={{header|PicoLisp}}==
| |||