Load

/By Serious07
//load
//s[0] - long of a
//s[1] - long of cod
function Load takes string a, string cod returns integer

    local integer array s
    local integer answ
    local integer i
    local integer j
    local integer array parts

    set s[0] = StringLength(a)
    set s[1] = StringLength(cod)

    set j = 0

    set answ = 0

    loop
        set i = 0
        loop
            if (SubString(cod, i, i+1)==SubString(a, j, j+1) ) then
                set parts[j] = i
            endif
            set i = i + 1
            exitwhen i>s[1]
        endloop
        set j = j + 1
        exitwhen j==s[0]
    endloop

    set i = 0
    set j = s[0] - 1
    loop
        set answ = answ + (R2I(Pow(I2R(s[1]), I2R(j))) * parts[i])
        set i = i + 1
        set j = j - 1
        exitwhen i==s[0]
    endloop

    return answ
endfunction