Anonymous user
Narcissist: Difference between revisions
Add Déjà Vu
(→{{header|Perl 6}}: avoiding single quotes so we don't need shell escape + using actual proposal in comment) |
(Add Déjà Vu) |
||
Line 32:
Only checks the first line of stdin:
<lang lisp>#1=(PRINT (EQUAL (WRITE-TO-STRING '#1# :CIRCLE 1) (READ-LINE *STANDARD-INPUT*)))</lang>
=={{header|Déjà Vu}}==
Expects a command-line argument with its source.
<lang dejavu>= concat ( over over rot chr 34 ) "= concat ( over over chr 34 ) "</lang>
=={{header|Forth}}==
|