strings_matlab

function x = strings(str1 = "-12 A4BCD 67 -89 hfj-7jf-12 2.2 22", str2 = "-1.2 AB4.4CD 2.3 -6.7 -6.7. 89 hfj7.7jf 2.2")

% function x = strings(str1 = "89 12", str2 = "89 5555")
    intnums = integers(str1)
    floatnums = doubles(str2)
    hemmingDist = hemming(str1, str2)
    levenshteinDist = levenshtein(str1, str2)
end


function ans = integers(str)
% state:
% 1 - был разделитель
% 2 - было число
% 0 - было не число и не разделитель

    state = 0;
    ans = [];
    settlers = [' ', ',', ';'];
    nums = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
    h = "";

    i = 1;
    if ismember(str(i), nums)

        h = [h str(i)];
        i = 2;
        state = 2;
    elseif (str(1) == '-')
        state = 1;
        h = [h str(1)];
        i = 2;
    end

    while (i <= length(str))

        ch = str(i);

        if (state == 0)

            if (ismember(ch, settlers))
                state = 1;
            end
        elseif (state == 1)

            if (ismember(ch, nums))
                h = [h ch];
                state = 2;
            elseif (ismember(ch, settlers))
                state = 1;
            elseif (ch == '-')
                state = 1;
                h = [h ch];
            else
                state = 0;
                h = "";
            end
        else

            if (ismember(ch, nums))
                h = [h ch];
            elseif (ismember(ch, settlers))
                ans = [ans; str2num(h)];
                h = "";
                state = 1;
            else
                h = "";
                state = 0;
            end
        end
        i+=1;
    end

    if (state == 2)
        ans = [ans; str2num(h)];
    end
end


function ans = doubles(str)
% state:
% 1 - был разделитель
% 2 - было число перед точкой
% 3 - была точка
% 4 - было число после точки
% 0 - было не число, не точка и не разделитель

    ans = [];
    settlers = [' ', ',', ';'];
    nums = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];
    h = "";
    state = 0;

    i = 1;
    if ismember(str(i), nums)

        h = [h str(i)];
        i = 2;
        state = 2;
    elseif (str(1) == '-')
        state = 1;
        h = [h str(1)];
        i = 2;
    end

    while (i <= length(str))

        ch = str(i);

        if (state == 0)

            if (ismember(ch, settlers))
                state = 1;
            end
        elseif (state == 1)

            if (ismember(ch, nums))
                h = [h ch];
                state = 2;
            elseif (ch == '-') && (length(h) < 2)
                h = [h ch];
            elseif (ismember(ch, settlers))
                h = "";
            else
                h = "";
                state = 0;
            end
        elseif (state == 2)

            if (ismember(ch, nums))
                h = [h ch];
            elseif (ch == '.')
                state = 3;
                h = [h ch];
            elseif (ismember(ch, settlers))
                h = "";
                state = 1;
            else
                h = "";
                state = 0;
            end
        elseif (state == 3)

            if (ismember(ch, nums))
                state = 4;
                h = [h ch];
            elseif (ismember(ch, settlers))
                state = 1;
                h = "";
            else
                h = "";
                state = 0;
            end
        else

            if (ismember(ch, nums))
                h = [h ch];
            elseif (ismember(ch, settlers))
                ans = [ans; str2num(h)];
                state = 1;
                h = "";
            else
                h = "";
                state = 0;
            end
        end
       i+=1;
    end

    if (state == 4)
        ans = [ans; str2num(h)];
    end
end


function ans = hemming(str1, str2)
% выбираем максимальную по длине строку (для удобства)
% идем по меньшей строке и проверяем равенство элементов
% добавляем к ответу разницу в длине строк

    ans = 0;
    if (length(str2) > length(str1))
        c = str1;
        str1 = str2;
        str2 = c;
    end

    for i=1:length(str2)
        if (str1(i) != str2(i))
            ans += 1;
        end
    end

    ans += length(str1) - length(str2);
end


function ans = levenshtein(str1, str2)

    ans = zeros(length(str1), length(str2));
    for i=1:length(str1)
        for j=1:length(str2)
            if (i == 1) && (j == 1)
                ans(i, j) = 0;
            elseif ((i > 1) && (j == 1))
                ans(i, j) = i;
            elseif ((j > 1) && (i == 1))
                ans(i, j) = j;
            else
                if (str1(i) == str2(j))
                    t = 0;
                else
                    t = 1;
                end
                ans(i, j) = min(min(ans(i, j - 1) + 1, ans(i - 1, j) + 1), ans(i - 1, j - 1) + t);
            end
        end
    end
    ans = ans(end, end);
end