normalize-languages 0.3.2

Tree-sitter language support and dynamic grammar loading
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

library(stats)
library(utils)

# Classify a number as negative, zero, or positive
classify <- function(n) {
  if (n < 0) {
    return("negative")
  } else if (n == 0) {
    return("zero")
  } else {
    return("positive")
  }
}

# Sum even numbers in a vector
sum_evens <- function(values) {
  total <- 0
  for (v in values) {
    if (v %% 2 == 0) {
      total <- total + v
    }
  }
  return(total)
}

# Count occurrences of each unique value
count_occurrences <- function(values) {
  counts <- list()
  for (v in values) {
    key <- as.character(v)
    if (is.null(counts[[key]])) {
      counts[[key]] <- 1
    } else {
      counts[[key]] <- counts[[key]] + 1
    }
  }
  return(counts)
}

# Compute factorial recursively
factorial_r <- function(n) {
  if (n <= 1) {
    return(1)
  }
  return(n * factorial_r(n - 1))
}

print(classify(-3))
print(sum_evens(1:10))
print(factorial_r(5))