Narcissist: Difference between revisions
Content added Content deleted
m (→{{header|Perl 6}}: Use nested quoting delimiters.) |
m (→{{header|Perl 6}}: Use method form of eval, possible thanks to jnthn's fix in rakudo.) |
||
| Line 141: | Line 141: | ||
Note how the code takes advantage of Perl 6's ability to nest quoting delimiters. |
Note how the code takes advantage of Perl 6's ability to nest quoting delimiters. |
||
<lang perl6>my $self=q{say slurp() eq 'my $self=q{'~$self~'} |
<lang perl6>(my $self = q{say slurp() eq '(my $self = q{'~$self~'}).eval'~10.chr ?? 'Beautiful!' !! 'Not my type.'}).eval |
||
</lang> |
</lang> |
||