Jump to content

Narcissist: Difference between revisions

m
→‎{{header|Perl 6}}: Use method form of eval, possible thanks to jnthn's fix in rakudo.
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:
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~'}; eval($self);.eval'~10.chr ?? 'Beautiful!' !! 'Not my type.'}; ).eval($self);
</lang>
 
57

edits

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