Sorting algorithms/Bogosort: Difference between revisions
Added Wren
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
(Added Wren) |
||
Line 3,072:
After Shuffle: [1, 4, 6, 9]
Output: [1, 4, 6, 9]</pre>
=={{header|Wren}}==
<lang ecmascript>import "random" for Random
var isSorted = Fn.new { |a|
var len = a.count
if (len < 2) return true
for (i in 1...len) {
if (a[i] < a[i-1]) return false
}
return true
}
var bogoSort = Fn.new { |a|
var rand = Random.new()
while (!isSorted.call(a)) rand.shuffle(a)
}
var a = [31, 41, 59, 26, 53, 58, 97, 93, 23, 84]
System.print("Before: %(a)")
bogoSort.call(a)
System.print("After : %(a)")</lang>
{{out}}
<pre>
Before: [31, 41, 59, 26, 53, 58, 97, 93, 23, 84]
After : [23, 26, 31, 41, 53, 58, 59, 84, 93, 97]
</pre>
=={{header|XPL0}}==
| |||