Narcissist: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: avoiding single quotes so we don't need shell escape + using actual proposal in comment) |
(Add Déjà Vu) |
||
Line 32: | Line 32: | ||
Only checks the first line of stdin: |
Only checks the first line of stdin: |
||
<lang lisp>#1=(PRINT (EQUAL (WRITE-TO-STRING '#1# :CIRCLE 1) (READ-LINE *STANDARD-INPUT*)))</lang> |
<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}}== |
=={{header|Forth}}== |