Sorting algorithms/Bogosort: Difference between revisions
Content added Content deleted
m (small tidying) |
(→{{header|Perl 6}}: Added testing code) |
||
Line 1,064: | Line 1,064: | ||
return @list; |
return @list; |
||
} |
} |
||
my @nums = (^5).map: { rand }; |
|||
say @nums.sort.Str eq @nums.&bogosort.Str ?? 'ok' !! 'not ok'; |
|||
</lang> |
</lang> |
||