Paste number 46205: silly fib example

Paste number 46205: silly fib example
Pasted by: brucehoult
11 months, 3 weeks ago
#dylan | Context in IRC logs
Paste contents:
Raw Source | XML | Display As
module: hello

define generic fib(n :: <integer>) => (res :: <integer>);

define method fib(n :: <integer>) => (res :: <integer>);
  fib(n - 1) + fib(n - 2);
end;

define method fib(n == 0) => (res :: <integer>); 0 end;
define method fib(n == 1) => (res :: <integer>); 1 end;


define function main(name, arguments)
  format-out("fib(10) = %d", fib(10));
  exit-application(0);
end function main;

// Invoke our main() function.
main(application-name(), application-arguments());

This paste has no annotations.

Colorize as:
Show Line Numbers

Ads absolutely not by Google

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.