Question

Perl 6允许您使用.assuming来调整子程序。当你想要假定领先的位置参数时，这很容易做到：

# The first one
{
sub first-and-last ( $first, $last ) {
    say "Name is $first $last";
    }

my &joe = &first-and-last.assuming( 'Joe' );

&joe.( 'Jones' );
}

但是，如果我想假设其他位置参数中的一个而单独留下第一个参数呢？如何判断.assuming假设哪些参数？

# The second one
try {
sub first-and-last ( $first, $last ) {
    say "Name is $first $last";
    }

my &smith = &first-and-last.assuming( Empty, 'Smith' );

&smith.( 'Joe' );
}

使用命名参数这很简单，但这并不是我对此感到好奇。

如果这真的是just an EVAL，那有点令人失望。

Answer 1

嗯，Whatever工作：

sub first-and-last ( $first, $last ) {
    say "Name is $first $last";
    }

my &smith = &first-and-last.assuming( *, 'Smith' );

&smith.( 'Joe' );

你可以处理中间参数：

sub longer-names ( $first, $middle, $last, $suffix ) {
    say "Name is $first $middle $last $suffix";
    }

my &smith = &longer-names.assuming( *, *, 'Public', * );

&smith.( 'Joe', 'Q.', 'Jr.');

Perl 6可以假设一个位置参数不是第一个吗？

1 个答案: