Anonymous user
Narcissist: Difference between revisions
→{{header|TXR}}: added zkl
(→{{header|TXR}}: Modernize: no reliance on external tools; @ is backslash-escaped in quasiliteral. Remove "informal proof".) |
(→{{header|TXR}}: added zkl) |
||
Line 354:
<pre>$ txr narcissist.txr narcissist.txr
1</pre>
=={{header|zkl}}==
<lang zkl>stdin:=File.stdin.read();
thisFileSrc:=File(System.argv[1]).read();
println((stdin==thisFileSrc) and "input matches "+System.argv[1] or "No match");</lang>
Since zkl is [usually] compile-when-run, we just compare the contents of source file to stdin.
{{out}}
<pre>
$ zkl narcissist.zkl <narcissist.zkl
input matches narcissist.zkl
$ zkl narcissist.zkl <narcissist3.zkl
No match
</pre>
{{omit from|bc|Cannot read a file.}}
| |||