Narcissist: Difference between revisions

Line 94:

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}}==

<lang D>import std.file; import std.stdio; import std.string; void main() { auto source = readText("narcissist.d").chomp; auto input = readln().chomp(); if (source == input) writeln("accept"); else writeln("reject"); }</lang>

Line 275:

Line 276:

=={{header|Julia}}==

<lang julia>mysource = Base.read(Base.source_path(), String)

Line 367:

Line 369:

<pre>narcissist() = {input() == narcissist;}

1</pre>

=={{header|Perl}}==

<lang perl># this is file narc.pl

Line 373:

Line 376:

Run:

⚫

=={{header|~~Perl 6~~}}==

⚫

For the narcissist to work you must be very careful with whitespace. The following version works if it is given to standard input as exactly one line terminated by a newline character.

⚫

Note how the code takes advantage of Perl 6's ability to nest quoting delimiters.

⚫

<lang perl6>EVAL my $self = q{say slurp() eq q[EVAL my $self = q{]~$self~q[}]~10.chr ?? q{Beautiful!} !! q{Not my type.}}</lang>

⚫

<pre>$ narcissist='EVAL my $self = q{say slurp() eq q[EVAL my $self = q{]~$self~q[}]~10.chr ?? q{Beautiful!} !! q{Not my type.}}'

⚫

$ perl6 -e "$narcissist" <<<"$narcissist"

⚫

Beautiful!

⚫

$ perl6 -e "$narcissist" <<<"$narcissist # a comment ruining it all"

⚫

Not my type.

⚫

</pre>

=={{header|Phix}}==

Line 456:

Line 443:

#t

</lang>

⚫

=={{header|Raku}}==

(formerly Perl 6)

⚫