void reverse(unsigned char *array, int length)
{
	unsigned char temp;
	unsigned char *yarra = array + length - 1;
	while(yarra > array) {
		temp = *array;
		*(array++) = *yarra;
		*(yarra--) = temp;
	}
}

gcc -S -O3 -masm=intel reverse.c

.file	"reverse.c"
	.intel_syntax noprefix
	.text
	.p2align 4,,15
.globl reverse
	.type	reverse, @function
reverse:
	push	ebp
	mov	ebp, esp
	mov	eax, DWORD PTR [ebp+8]
	mov	edx, DWORD PTR [ebp+12]
	push	ebx
	lea	edx, [eax-4+edx*4]
	cmp	eax, edx
	jae	.L1
	.p2align 4,,7
	.p2align 3
.L4:
	mov	ecx, DWORD PTR [eax]
	mov	ebx, DWORD PTR [edx]
	mov	DWORD PTR [eax], ebx
	add	eax, 4
	mov	DWORD PTR [edx], ecx
	sub	edx, 4
	cmp	eax, edx
	jb	.L4
.L1:
	pop	ebx
	pop	ebp
	ret
	.size	reverse, .-reverse
	.ident	"GCC: (GNU) 4.5.2 20110127 (prerelease)"
	.section	.note.GNU-stack,"",@progbits

--10
function unique(t)
	local r = {}
	local i = {}
	for k,v in pairs(t) do
		if not i[v] then
			r[#r+1] = v
			i[v] = 1
		end
	end
	return r
end

--11
function isPrime(x)
	x = math.floor(x)
	if x < 2 then return end
	for i=2,x-1 do
		if x%i == 0 then return end
	end
	return true
end

--12
function maxCD(a,b)
	if a<0 or b<0 then return end
	local M,m = math.max(a,b), math.min(a,b)
	local r = M%m
	if r== 0 then return m end
	return maxCD(m,r)
end

--13
function coprime(a,b)
	if a<0 or b<0 then return end
	if maxCD(a,b) == 1 then return true end
end

--14
function phi(x)
	local c = 0
	for i=1,x do
		if(coprime(x,i)) then c=c+1 end
	end
	return c
end

--15
function primeFactors(x)
	for i=2,x do
		if isPrime(i) and x%i==0 then
			return i,primeFactors(x/i)
		end
	end
end

--16
function uniquePrimes(x)
	return unique({primeFactors(x)})
end

--17
function totient(x)
	local p={}
	local cx = x
	while cx>1 do
		for i=2,cx do
			if isPrime(i) and cx%i==0 then
				if p[#p-1] == i then
					p[#p] = p[#p]+1
				else
					p[#p+1] = i
					p[#p+1] = 1 --repeats
				end
				cx = cx/i
			end
		end
	end
	local v=1
	for i=1,#p-1,2 do
		v= v* (p[i]-1)*p[i]^(p[i+1]-1)
	end
	return v
end

--18
function primeList(x)
	local t = {}
	for i=2,x do
		if isPrime(i) then
			t[#t+1] = i
		end
	end
	return t
end

--19
function goldbach(x)
	if x < 4 then return end
	for i=2, x-1 do
		if isPrime(i) and isPrime(x-i) then
			return i,x-i
		end
	end
end

--20
function pronounce(x)
	local lang =
	{
		'one','two','three','four','five','six','seven','eight','nine','ten',
		'eleven','twelve','thirteen','fourteen','fifteen','sixteen','seventeen','eighteen','nineteen',
	}
	lang[20]='twenty'
	lang[30]='thirty'
	lang[40]='fourty'
	lang[50]='fifty'
	lang[60]='sixty'
	lang[70]='seventy'
	lang[80]='eighty'
	lang[90]='ninety'
	lang[100]='hundred'
	lang[101]='thousand'
	lang[102]='million'
	lang[103]='billion'
	lang[104]='trillion'
	lang[105]='cuadrillion'
	
	if x == 0 then return 'zero' end
	
	local t={}
	while x>0 do
		t[#t+1] = x%10
		x = math.floor(x/10)
	end
	local function smallpronounce(x)
		local s = lang[(t[x+1] or 0)*10+t[x]]
		if not s then
			s = (lang[t[x+1]*10] or '') .. (t[x]>0 and '-'..lang[t[x]] or '')
		end
		if (t[x+2] or 0) > 0 then
			s = lang[t[x+2] ]..' '..lang[100] .. (s~='' and ' and '..s or '')
		end
		return s
	end
	local s = smallpronounce(1)
	local count = 1
	for i=4,#t,3 do
		local sp = smallpronounce(i)
		s = (sp~='' and sp..' '..lang[100+count]..' ' or '') .. s
		count = count+1
	end
	return s
end

--21
function coprimemodexp(b,e,m)
	if coprime(b,m) then
		return b^(e%phi(m))%m
	else
		modexp(b,e,m) --Call the other function
	end
end

--22
function modexp(b,e,m,c)
	if not c then c = 1 end
	if e < 1 then return c end
	return modexp(b,e-1,m,(c*b)%m)
end

--23
function wtf(i)
	if i==0 then return 1 end
	local t = {[0]=6, 3,9,12}
	return t[i%4]
end

--24
function factorial(x)
	local r = 1
	for i=2,x do
		r = r*i
	end
	return r
end

--25
function sequence(n,k)
	local c = n
	for i=1,k-1 do
		c = c*(n-i)
	end
	return math.abs(c)
end

--26
function combination(n,k)
	return factorial(n)/(factorial(k)*factorial(n-k))
end

--27
function perm(t)
	local r = {}
	local fac = factorial(#t)
	local function excopy(t,exclude)
		local r = {}
		for i=1,#t do
			if i ~= exclude then
				r[i - (i>exclude and 1 or 0)] = t[i]
			end
		end
		return r
	end
	for i=1,fac do
		r[i] = {}
	end
	for i=1,#t do
		local cfac = factorial(#t-i+1)
		local clen = #t-i+1
		for j=1,fac do
			local jj = j%cfac
			if jj==0 then jj=cfac end
			r[j][i] = math.ceil(jj/(cfac/clen))
		end
	end
	for i=1,#r do
		local list = t
		for j=1,#r[i] do
			local val = r[i][j]
			r[i][j] = list[val]
			list = excopy(list, val)
		end
	end
	return r
end

--28
function multicombination(n, k)
	return combination(n+k-1,k)
end

--29
function isid(s)
	a,b = string.find(s,'$[%d%a_-]+')
	return (a==1 and b==string.len(s))
end