Lua genetic algorithm

local target = "METHINKS IT IS LIKE A WEASEL"
local alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "
local c, p = 100, 0.06
 
local function fitness(s)
	local score = #target
	for i = 1,#target do
		if s:sub(i,i) == target:sub(i,i) then score = score - 1 end
	end
	return score
end
 
local function mutate(s, rate)
	local result, idx = ""
	for i = 1,#s do
		if math.random() < rate then
			idx = math.random(#alphabet)
			result = result .. alphabet:sub(idx,idx)
		else
			result = result .. s:sub(i,i)
		end
	end
	return result, fitness(result)
end
 
local function randomString(len)
	local result, idx = ""
	for i = 1,len do
		idx = math.random(#alphabet)
		result = result .. alphabet:sub(idx,idx)
	end
	return result
end
 
local function printStep(step, s, fit)
	print(string.format("%04d: ", step) .. s .. " [" .. fit .."]")
end
 
math.randomseed(os.time())
local parent = randomString(#target)
printStep(0, parent, fitness(parent))
 
local step = 0
while parent ~= target do
	local bestFitness, bestChild, child, fitness = #target + 1
	for i = 1,c do
		child, fitness = mutate(parent, p)
		if fitness < bestFitness then bestFitness, bestChild = fitness, child end
	end
	parent, step = bestChild, step + 1
	printStep(step, parent, bestFitness)
end

Source: rosettacode.org

Similar codes

2 votes152 views1 answer
Lua click detection
Lua
7 votes162 views2 answers
Round to the nearest number lua
Lua
0 vote136 views1 answer
Fivem commands lua example
Lua
2 votes145 views2 answers
Lua table is empty
Lua
0 vote162 views1 answer
How to find pi lua
Lua
1 vote151 views2 answers
Run a function in lua
Lua
1 vote136 views1 answer
Error: LINK : fatal error LNK1561: le point d'entrée doit être défini
Lua
3 votes150 views1 answer
How to exit current scope roblox
Lua
5 votes162 views1 answer
Loop true childs roblox
Lua
1 vote137 views4 answers
Roblox buy gamepass script
Lua