--Функция сортировать таблицу только дубликаты
function table.duplicates(a)
    local q, t = {}, {}
    for  i = 1, #a do
        if not q[a[i]] then
             q[a] = true
        else
             t[#t+1] = a
        end
    end
    return t
end

--Пример применения функции:
s = {
'саша',
'мама',
'мама',
'дядя',
'папа',
'папа',
'папа',
'куку',
'куку',
'куку',
'куку',
}
s = table.duplicates(s)-- сортировка вывести только дубликаты
s = table.concat(s, '\r')--в текст   
print(s)[/i]

function table.duplicates(a)
    local q, t, d = {}, {}, {}
        for  i0 = 1, #a do
            if not q[a[i0]] then
                 q[a[i0]] = true
         else
            if not d[a[i0]] then
               d[a[i0]] = true
               t[#t+1] = a[i0]
               t[#t+1] = a[i0]
            else               
               t[#t+1] = a[i0]
            end 
            end
    end
    return t
end