Content deleted Content added
CE |
Added a code sample that applied the preceding suggestions for readability: using intermediate values, defining sub-tasks, and clearly labelling objects |
||
Line 335:
(\(i) key[i + 1])() |>
paste(collapse = "")
)("duvFkvFksnvEyLkHAErnqnoyr")</syntaxhighlight>The following is a version of the preceding code that is easier to read:<syntaxhighlight lang="r">
default_key <- c(letters, LETTERS, " ", ":", ")")
f <- function(x, n = 42, key = default_key) {
split_input <- strsplit(x, "")[[1]]
results <- (Vectorize(\(chr) which(chr == key) - 1))(split_input) |>
(`+`)(n) |>
(`%%`)(length(key)) |>
(\(i) key[i + 1])()
combined_results <- paste(results, collapse = "")
return(combined_results)
}
f("duvFkvFksnvEyLkHAErnqnoyr")
</syntaxhighlight>
=== Object-oriented programming ===
| |||