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