Jump to content

Narcissist: Difference between revisions

m
→‎{{header|Perl 6}}: Put eval first and golf a few characters.
m (→‎{{header|Perl 6}}: Use method form of eval, possible thanks to jnthn's fix in rakudo.)
m (→‎{{header|Perl 6}}: Put eval first and golf a few characters.)
Line 141:
Note how the code takes advantage of Perl 6's ability to nest quoting delimiters.
 
<lang perl6>(eval my $self = q{say slurp() eq '(eval my $self = q{'~$self~'}).eval'~10.chr ?? 'Beautiful!' !! 'Not my type.'}).eval
</lang>
 
57

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.