Sorting algorithms/Bogosort: Difference between revisions

bogo_sort (ar: ARRAY [INTEGER]): ARRAY [INTEGER]

-- Sorted array in ascending order.

do

from

until

is_sorted (ar) = TRUE

loop

Result := shuffel (ar)

end

feature {NONE}

is_sorted (ar: ARRAY [INTEGER]): BOOLEAN

-- Is 'ar' sorted in ascending order?

i := 1 + 1

shuffel (ar: ARRAY [INTEGER]): ARRAY [INTEGER]

-- Array containing the same elements as 'ar' in a random shuffled order.

require

not_void: ar /= Void

local

i, j: INTEGER

ith: INTEGER

random: V_RANDOM

do

create random

create Result.make_empty

Result.deep_copy (ar)

from

i := ar.count

until

i < 2

loop

j := random.bounded_item (1, i)

ith := Result [i]

Result [i] := Result [j]

Result [j] := ith

random.forth

i := i - 1

end

end

test := <<3, 2, 5, 7, 1>>

across

test as t

loop

io.put_string (t.item.out + " ")

end

test := sorter.bogo_sort (test)

across

test as t

loop

io.put_string (t.item.out + " ")

end

test: ARRAY [INTEGER]

sorter: BOGO_SORT