reverse string, changed example.R

exercism · Jan 7, 2024 · 202dd33 · 202dd33
1 parent 76205f1
commit 202dd33
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/exercises/practice/reverse-string/.meta/example.R b/exercises/practice/reverse-string/.meta/example.R
@@ -1,5 +1,5 @@
 reverse <- function(text) {
-  splits <- strsplit(text, "")[[1]]
-  reversed <- rev(splits)
-  paste(reversed, collapse = "")
-}
+  strsplit(text, "") |>
+    lapply(rev) |>
+    sapply(paste, collapse = "")
+}