perl6中函数参数(2)

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

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

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