perl6中函数参数(2)

use v6;
#如果参数是可选的， 可以在后面加个?后定义
sub Choo($x, $y?){
  say $x+$y;
}
Choo(1);
Choo(1,2);
#具名参数， 也就是字典形式的调用
sub Dit(:name($n), :age($a)){
  say $n,' is ', $a;
}
Dit(name => 'root', age => '360');
Dit(age=>'php', name=>'localhost');
Dit(:name('li'), :age(20));
#具名参数， 在定义时， 可可以这样
sub Dit2(:$name, :$age){
  say $name,'|', $age;
}
#还可以这样调用， 当没带值时， 只加:时， 默认为Treu, 加:!时， 默认为False
Dit2(:name, :!age);

#如果不知道有多少个参数， 要收集所有参数， 可以用一个*放在变量前收集
#这个*表示收集， 后面的@all还是表示一个数组(注意)
sub All($user, *@all){
  say $user;
  say @all;
}
All(1,2,3,4,5);
#还可以这样收集
sub All2($user, *%all){
  say $user;
  say %all.kv;
}
All2(1,a=>1,b=>2);
All2(1,:a(2), :b, :!c);



sub Arr($a, @a, %a){
  say $a;
  say @a;
  say %a.kv;
}
my $a=1;
my @a=1;
my %a=(:a);
Arr($a, @a, %a);