Rosetta Code

Narcissist: Difference between revisions

Page Discussion

Narcissist (view source)

Revision as of 07:08, 24 September 2015

No change in size ,  8 years ago
m
→‎{{header|Perl 6}}: modernize
(Added Mathematica)
Line 227:
Note how the code takes advantage of Perl 6's ability to nest quoting delimiters.
 
<lang perl6>evalEVAL my $self = q{say slurp() eq q[evalEVAL my $self = q{]~$self~q[}]~10.chr ?? q{Beautiful!} !! q{Not my type.}}</lang>
 
{{out}}
<pre>$ narcissist='evalEVAL my $self = q{say slurp() eq q[evalEVAL my $self = q{]~$self~q[}]~10.chr ?? q{Beautiful!} !! q{Not my type.}}'
$ perl6 -e "$narcissist" <<<"$narcissist"
Beautiful!
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/157313"