Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Sorting-algorithms-Bead-sort/R/sorting-algorithms-bead-sort.r
+++ b/Task/Sorting-algorithms-Bead-sort/R/sorting-algorithms-bead-sort.r
@ -0,0 +1,12 @@
+gen_abacus <- function(v){
+  nmax <- max(v)
+  gen_col <- function(n) c(rep(1, n), rep(0, nmax-n))
+  sapply(v, gen_col)
+}
+
+beadsort <- function(v){
+  flip <- function(v) gen_abacus(v) |> apply(1, sum)
+  v |> flip() |> flip() |> rev()
+}
+
+beadsort(c(2, 4, 1, 3, 3))