Chemins dans une grille

Fait partie de la section Logique et flux d’exécution du Journey R de Coddy. Leçon 64 sur 64.

Défi

Difficile

Complétez count_paths(grid). grid est une matrice de 0 (cellules libres) et de 1 (murs). Un chemin commence dans la cellule en haut à gauche, se termine dans la cellule en bas à droite, se déplace uniquement vers la droite ou vers le bas, et n’entre jamais dans un mur. Renvoyez deux lignes : Paths: avec le nombre de chemins différents, et Steps: avec le nombre de déplacements de n’importe quel chemin (tous les chemins ont la même longueur), ou Steps: none lorsqu’il n’existe aucun chemin.

Construisez une matrice ways de même taille, où chaque cellule contient le nombre de chemins qui l’atteignent : une cellule libre reçoit la somme de la cellule située au-dessus et de celle située à sa gauche, tandis qu’un mur reçoit 0.

Le code fourni lit la grille sur une ligne : les lignes sont séparées par ; et les valeurs d’une ligne par ,. Il affiche chaque ligne renvoyée.

Essayez vous-même

count_paths <- function(grid) {
  # Écrivez votre code ici
  c("Paths: 0", "Steps: none")
}

# Code d'entrée/sortie fourni : gardez-le tel quel
input <- suppressWarnings(readLines(file("stdin")))
rows <- strsplit(input[1], ";")[[1]]
grid <- matrix(as.numeric(unlist(strsplit(rows, ","))), nrow = length(rows), byrow = TRUE)
cat(count_paths(grid), sep = "\n")