smls · August 4, 2016 13:33
diff --git a/Simple Perl 6 implementation of Text::Conjunct's conjunct() b/Simple Perl 6 implementation of Text::Conjunct's conjunct()
 multi conjunct ($,     *[])     { '' }
 multi conjunct ($,     $word)   { $word }
 multi conjunct ($conj, *@words) { "{@words[0..*-2].join: ', '} $conj @words[*-1]" }

 say conjunct "and";
 say conjunct "and", "one apple";
 say conjunct "and", "one apple", "two oranges";
 say conjunct "and", "one apple", "two oranges", "three pears";
	multi conjunct ($, *[]) { '' }
	multi conjunct ($, $word) { $word }
	multi conjunct ($conj, @words) { "{@words[0..-2].join: ', '} $conj @words[*-1]" }

	say conjunct "and";
	say conjunct "and", "one apple";
	say conjunct "and", "one apple", "two oranges";
	say conjunct "and", "one apple", "two oranges", "three pears";