RosettaCodeData/Task/Interactive-programming/Perl-6/interactive-programming.pl6

7 lines
112 B
Raku

$ rakudo/perl6
> sub f($str1,$str2,$sep) { $str1~$sep x 2~$str2 };
f
> f("Rosetta","Code",":");
Rosetta::Code
>