jmbarbone

.fibonacci <- function(n) {
  if (n <= 0) {
    return(0)
  }

  if (n == 1) {
    return(1)
  }

  Tailcall(.fibonacci, n - 1) + Tailcall(.fibonacci, n - 2)

jmbarbone

new_counter <- function() {
  local({
    winner <- 0
    n <- 0L
    maybe <- function() {
      if (stats::rbinom(1, 1, 1 / n) == 1) {
        message("new winner: ", n)
        winner <<- n
      }
    }

jmbarbone

object <- function(...) {
  ..params <- list(...)
  fun <- function() {}
  formals(fun) <- ..params
  body(fun) <- substitute(
    {
      self <- list2env(..params)
      lockEnvironment(self)
 updates &lt;- as.list(match.call()[-1L])

jmbarbone

primef <- function(x) {
  x <- as.integer(x)
  if (x <= 1) {
    return(NaN)
  }
  
  res <- integer()
  
  while (x %% 2L == 0L) {
    res <- c(res, 2L)

jmbarbone

# set in options(name = value)
# retrieved in fuj.options$name
# when retrieved, runs getter
fuj.options <- local({
  self <- environment()
  optenv <- new.env()
  active <- function(name, default, getter) {
    makeActiveBinding(
      name,
      local({

jmbarbone

.fibs <- new.env()

.fib <- function(n) {
  name <- as.character(n)
  get0(name, envir = .fibs) %||% assign(name, fibonocci(n), envir = .fibs)
}

fibonocci <- function(n = 0) {
 n &lt;- floor(n)

jmbarbone

arg <- function(sym, type, default) {
  sym <- substitute(sym)
  spec <- structure(
    list(
      sym = as.character(sym),
      type = type
    ),
    class = "arg"
  )

jmbarbone

enumerate <- function(x, i = "i", v = "v") {
  lapply(
    seq_along(x),
    function(iteration) {
      structure(
        list(iteration, x[[iteration]]),
        class = c("enumeration", "list"),
        names = c(i, v)
      )

jmbarbone

global_calling_handlers <- local({
  . <- environment()
  class(.) <- c("cnd:global_calling_handlers", "environment")
  .handlers <- NULL
  handlers <- NULL
  
  add <- function(...) {
    "Adds calling handlers

      If handlers with the same name already exist, they are replaced.

jmbarbone

pkg_version <- function(package, keep = c("all", "patch", "minor", "major")) {
  keep <- match.arg(keep)
  version <- utils::packageVersion(package)
  version <- unclass(version)[[1L]]
  version <- switch(
    keep,
    all = version,
    patch = version[1:3],
    minor = version[1:2],
    major = version[1L]