Random one character per job generator for Final Fantasy V

rm(list = ls())

assign <- function()
{
    jobs <- vector('list', 4)
    names(jobs) <- c('Wind', 'Water', 'Fire', 'Earth')
    jobs[['Wind']] <- c('Black Mage', 'Blue Mage', 'Knight', 'Monk', 'Thief', 'White Mage')
    jobs[['Water']] <- c('Berserker', 'Mystic Knight', 'Red Mage', 'Summoner', 'Time Mage')
    jobs[['Fire']] <- c('Bard', 'Beastmaster', 'Geomancer', 'Ninja', 'Ranger')
    jobs[['Earth']] <- c('Chemist', 'Dancer', 'Dragoon', 'Samurai')

    chars <- vector('list', 4)
    names(chars) <- c('Bartz', 'Lenna', 'Faris', 'Galuf')

    for (char in names(chars))
    {
        for (crystal in names(jobs))
        {
            job <- sample(jobs[[crystal]], size = 1, replace = FALSE)
            chars[[char]] <- c(chars[[char]], job)
            jobs[[crystal]] <- jobs[[crystal]][jobs[[crystal]] != job]
        }
    }

    jobs <- unlist(jobs)
    names(jobs) <- c()
    for (char in names(chars))
    {
        job <- sample(jobs, size = 1, replace = FALSE)
        chars[[char]] <- sort(c(chars[[char]], job))
        jobs <- jobs[jobs != job]
    }

    return (chars)
}

assign()