Narcissist: Difference between revisions

Narcissist (view source)

12 bytes added , 11 years ago

→‎{{header|Perl 6}}: avoiding single quotes so we don't need shell escape + using actual proposal in comment

1,934

edits

Revision as of 19:19, 18 October 2012 (view source) Edwin (talk \| contribs) m (→‎{{header\|Perl 6}}: A note about non-cheating.) ← Older edit		Revision as of 20:30, 18 October 2012 (view source) Grondilu (talk \| contribs) (→‎{{header\|Perl 6}}: avoiding single quotes so we don't need shell escape + using actual proposal in comment) Newer edit →
Line 137: =={{header\|Perl 6}}== For the narcissist to work you must be very careful with whitespace. The ~~presented~~following version works if it is ~~stored~~given asto astandard ~~file~~input ofas exactly one line terminated by a newline character. ~~(As this is a non-cheating narcissist, you don't <em>have</em> to put it in a file. With enough shell quoting-fu you could even pass it to "perl6 -e".)~~ 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> ~~</lang>~~ {{out}} <pre>$ narcissist='eval my $self = q{say slurp() eq q[eval my $self = q{]~$self~q[}]~10.chr ?? q{Beautiful!} !! q{Not my type.}}' ~~<pre>~~$ ~~rakudo~~perl6 -e "$narcissist~~.pl~~" <<<"$narcissist~~.pl~~ " Beautiful! $ ~~rakudo~~perl6 -e "$narcissist~~.pl~~" <~~any-other-input.pl~~<<"$narcissist # a comment ruining it all" Not my type. </pre>