an ornithological study of functional birds
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

12345678910111213141516
  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)