Narcissist: Difference between revisions
Content added Content deleted
(→{{header|TXR}}: Modernize: no reliance on external tools; @ is backslash-escaped in quasiliteral. Remove "informal proof".) |
(→{{header|TXR}}: added zkl) |
||
Line 354: | Line 354: | ||
<pre>$ txr narcissist.txr narcissist.txr |
<pre>$ txr narcissist.txr narcissist.txr |
||
1</pre> |
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.}} |
{{omit from|bc|Cannot read a file.}} |