Bogosort and Bogobogosort in Julia

bogosort.jl

function bogosort(v::Array)
	if length(v) == 1
		return v
	end

	c = deepcopy(v)
	while !issorted(c)
		shuffle!(c)
	end
  
	c
end

function isbogobogosorted(v::Array)
	if length(v) == 1
		return v
	end

	c = deepcopy(v)
	clen = length(c)
	a = bogobogosort(c[1:clen-1])
	while c[clen] < a[clen-1]
		shuffle!(c)
		a = bogobogosort(c[1:clen-1])
	end

	# a is now sorted
	# check if this copy is in same order as original list
	c = [a, c[clen]]
	c == v
end

function bogobogosort(v::Array)
	if length(v) == 1
		return v
	end

	c = deepcopy(v)
	while !isbogobogosorted(c)
		shuffle!(c)
	end

	c
end