История изменений

Исправление perl5_guy, 02.11.21 09:33 (текущая версия) :

Я слабо знаю Raku, поэтому могут быть ошибки и уверен что можно более красиво написать. Тем не менее:

my ( $x, $y ) = < форель рельса >;

( 0 .. $x.chars )
    .map({ substr( $x, 0, $_ ) ~ $y })
    .first( /^$x/ )
    .put()

Исправление perl5_guy, 02.11.21 09:29:

Я слабо знаю Raku, поэтому могут быть ошибки и уверен что можно более красиво написать. Тем не менее:

my ( $x, $y ) = < рельса форель >;

( 0 .. $x.chars )
    .map({ substr( $x, 0, $_ ) ~ $y })
    .first( /^$x/ )
    .put()

Исходная версия perl5_guy, 02.11.21 09:25:

Я слабо знаю Raku, поэтому могут быть ошибки и уверен что можно более красиво написать. Тем не менее:

my $x = "форель";
my $y = "рельса";

( 0 .. $x.chars )
    .map({ substr( $x, 0, $_ ) ~ $y })
    .first( /^$x/ )
    .put()