• [^] # Re: Mes premières lignes de code professionnelles

    Posté par . En réponse au journal Des nouvelles de Fortran. Évalué à 3.

    Salut,

    Il y a sûrement possibilité de compacter et peut-être des bugs, mais en R :

    lines <- readLines("input.carte")
# On s'en fiche un peu, mais on lit quand même
nbLines <- as.integer(lines[1])
# On vire ce paramètre pas utile des données
lines <- lines[2:length(lines)] # on aurait pu utiliser nbLines...
# Et on y va !
parseline <- function(inLine) {
 LETTERS[grep("O", unlist(strsplit(inLine, "")))]
}
cat(unlist(lapply(lines, parseline)), sep = "", fill = TRUE)

    Et voilà :)

    Suffit de prendre le bout de script, l'enregistrer dans le fichier cartes.Rscript et faire un fichier texte input.carte puis :

    $ Rscript cartes.Rscript
    LETTRES

    Conclusion, ça m'a rapellé que je ne maîtrise toujours pas lapply :p

    Matricule 23415