10 lines
188 B
Raku
10 lines
188 B
Raku
|
sub make-List ($separator = ') '){
|
||
|
|
my $count = 1;
|
||
|
|
|
||
|
|
sub make-Item ($item) { "{$count++}$separator$item" }
|
||
|
|
|
||
|
|
join "\n", <first second third>».&make-Item;
|
||
|
|
}
|
||
|
|
|
||
|
|
put make-List('. ');
|