an ornithological study of functional birds
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

17 lignes
371B

  1. # Drossel: fn => fn(fn)
  2. # usage: drossel(function(self, arg1, arg2))
  3. # it's basically just a factory hiding the function name
  4. # in a closure. easy!
  5. drossel <- function (func) function (...) func(func, ...)
  6. # example: factorial
  7. # TODO: play with lazy evaluation?
  8. fac_ <- function (self, n) {
  9. if (n < 2) 1
  10. else n * self(self, n - 1)
  11. }
  12. fac <- drossel(fac_)
  13. fac(8)