Introdução
R não tem um tipo de dado Set separado; em vez disso, usa várias funções para realizar operações parecidas com conjuntos em vetores.
O operador %in% testa se um valor pertence a um conjunto.
2 %in% 1:10 # TRUE
12 %in% 1:10 # FALSE
Entre as funções relevantes estão unique (para remover duplicatas), além de union(), intersect(), setdiff() e setequal(), que operam sobre pares de conjuntos.
> set_1 <- c("a", "b", "c", "b", "a")
> unique(set_1) # deduplicate
[1] "a" "b" "c"
> set_2 <- c('a', "c", "d")
> union(set_1, set_2) # values in either set
[1] "a" "b" "c" "d"
> intersect(set_1, set_2) # values in both sets
[1] "a" "c"
> setdiff(set_1, set_2) # values in set_1 but not set_2
[1] "b"
> setdiff(set_2, set_1) # values in set_2 but not set_1
[1] "d"
setequal(set_1, c("c", "b", "a", "b")) # are elements the same after deduplication?
[1] TRUE
Em todos os casos, set_1 e set_2 permanecem inalterados.
Instruções
Ozan está montando uma playlist para uma viagem de carro que vai fazer em breve. Ele não quer ouvir a mesma faixa mais de uma vez, mas a playlist já ficou tão longa que está difícil lembrar quais faixas já foram adicionadas.
A API do tocador de músicas do Ozan só sabe trabalhar com vetores. Não é possível usar laços explícitos nem lógica if/else. Ele precisa da sua ajuda!
1. Remova faixas duplicadas
Implemente a função remove_duplicates, que recebe uma playlist como parâmetro e retorna uma nova playlist em que todas as faixas são únicas.
> playlist <- c(
"Court and Spark - Joni Mitchell",
"Big Yellow Taxi - Joni Mitchell",
"Court and Spark - Joni Mitchell"
)
> remove_duplicates(playlist)
[1] "Court and Spark - Joni Mitchell" "Big Yellow Taxi - Joni Mitchell"
2. Verifique se uma faixa já foi adicionada
Implemente a função has_track, que recebe uma playlist e uma faixa como parâmetros e retorna um boolean que indica se a playlist contém a faixa.
> playlist <- c(
"The Fashion Show - Grace Jones",
"Dr. Funkenstein - Parliament"
)
> has_track(playlist, "Dr. Funkenstein - Parliament")
[1] TRUE
> has_track(playlist, "Walking in the Rain - Grace Jones")
[1] FALSE
3. Adicione faixas
Implemente a função add_tracks, que recebe uma playlist e um vetor de uma ou mais faixas como parâmetros e retorna uma nova playlist que inclui as faixas.
> playlist <- c("Selma - Bijelo Dugme")
> playlist <- add_tracks(playlist, "Atomic Dog - George Clinton")
> playlist
[1] "Selma - Bijelo Dugme" "Atomic Dog - George Clinton"
> add_tracks(playlist, "Selma - Bijelo Dugme")
[1] "Selma - Bijelo Dugme" "Atomic Dog - George Clinton"
> add_tracks(playlist, c("The Chain - Fleetwood Mac", "Selma - Bijelo Dugme"))
[1] "Selma - Bijelo Dugme" "Atomic Dog - George Clinton" "The Chain - Fleetwood Mac"
4. Exclua faixas
Implemente a função delete_tracks, que recebe uma playlist e uma ou mais faixas como parâmetros e retorna uma nova playlist que não inclui as faixas.
> playlist <- c(
"The Treasure - Fra Lippo Lippi",
"After the Fall - Klaus Nomi"
)
> playlist <- delete_tracks(playlist, "The Treasure - Fra Lippo Lippi")
> playlist
[1] "After the Fall - Klaus Nomi"
> delete_tracks(playlist, "I Feel the Magic - Belinda Carlisle")
[1] "After the Fall - Klaus Nomi"
5. Compare playlists
Ozan conhece um novo amigo e fica curioso para saber o quanto os gostos dos dois se parecem.
Implemente a função find_common_tracks, que recebe duas playlists e retorna uma nova playlist contendo apenas as faixas presentes nas duas.
> playlist_1 <- c("Karma - Taylor Swift", "Tired - Adele")
> playlist_2 <- c("Andromeda - Weyes Blood", "Karma - Taylor Swift")
> find_common_tracks(playlist_1, playlist_2)
[1] "Karma - Taylor Swift"
Exercício de aprendizagem
