> For the complete documentation index, see [llms.txt](https://trizen.gitbook.io/perl6-rosettacode/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://trizen.gitbook.io/perl6-rosettacode/programming_tasks/j/jortsort.md).

# JortSort

```perl
sub jort-sort { @_ eqv @_.sort }
```

Actually, there's a better internal sort that seems to work best for lists that are already completely sorted, but tends to fails for any other list. The name of this sort, `[!after]`, is completely opaque, so we're pretty much forced to hide it inside a subroutine to prevent widespread panic.

```perl
sub jort-sort-more-better-sorta { [!after] @_ }
```

However, since Perl 6 has a really good inliner, there's really little point anyway in using the `[!after]` reduction operator directly, and `jort-sort-more-better-sorta` is really much more self-documenting, so please don't use the reduction operator if you can. For example:

```
$ perl6
> [!after] <a b c>  # DON'T do it this way
True
> [!after] 1,3,2    # DON'T do it this way either
False
```

Please do your part to uphold and/or downhold our community standards.