Skip to content

Instantly share code, notes, and snippets.

@smls

smls/Simple Perl 6 implementation of Text::Conjunct's conjunct()

Last active August 4, 2016 13:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save smls/98e28d5c23783d9e1ad86f25b6bb1e15 to your computer and use it in GitHub Desktop.
Save smls/98e28d5c23783d9e1ad86f25b6bb1e15 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment