Можно ли реализовать «язык» lisp в Perl 6?

Здесь интерпретация Hello $ world для каждого символа цитирования, я имею в виду язык .

 $world = "WΩrlδ"
"(Hell)*o $world\n"           # <--- plain (Hell)*o, resolve $world, escape \n
'(Hell)*o $world\n'           # <--- plain (Hell)*o, plain $world, escape \n
/(Hell)*o $world\n/           # <--- regexp (Hell)*, resolve $world, interpret \n
<(Hell)*o $world\n>           # <--- make list ["(Hello*o", "$world\n"]
{(Hell)*o $world\n}           # <--- syntax error, this language cant' parse it

Достаточно ли мощен Perl 6, чтобы иметь возможность существовать в будущем языке для чего-то вроде

my $emacs_func = (defun perl-backward-to-start-of-continued-exp (lim)
      (if (= (preceding-char) ?\))
          (forward-sexp -1))
      (beginning-of-line)
      (if (<= (point) lim)
          (goto-char (1+ lim)))
      (skip-chars-forward " \t\f"))


$  typeof($emacs_func)
> Emacs Lisp list

Итак, очевидно, возникает вопрос: можно ли это сделать в текущей спецификации (или даже реализации) Perl 6 ?

9
задан Elizabeth Mattijsen 30 November 2019 в 15:01
поделиться