Narcissist: Difference between revisions

For the narcissist to work you must be very careful with whitespace. The presented version works if it is stored as a file of exactly one line terminated by a (Unix) newline character.

Note: Thehow the code cantakes beadvantage simplified as soon asof Perl 6's implementationsability supportto nestednest quoting delimiters properly (i.e. q{ ...{...}...}).

<lang perl6>my $self=q|{say slurp() eq ('my $self=q{'~124.chr~$self~124.chr~'}; eval($self);'~10.chr)| ?? 'Beautiful!' !! 'Not my type.'}; eval($self);

$ rakudo narcissist.pl <any-other-input.txtpl