selection_sort.R

selectionSort <- function(num) {
  for (i in seq(1, (length(num) - 1))) {
    index <- i  # index of min number
    for (j in seq(i, length(num))) {
      if (num[j] < num[index]) {
        index <- j
      }
    }
    # swap number
    minNum <- num[index]
    num[index] <- num[i]
    num[i] <- minNum
  }
  return(num)
}


randNum <- function(n, start, stop) {
  rand <- round(runif(n, start, stop))
  return(c(rand))
}


num <- randNum(100, -50, 50)
cat("num: ", num, "\t")
cat("num sorted: ", selectionSort(num))