mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

about summary refs log tree commit diff stats

diff options

Diffstat (limited to '031transforms.cc')

0 files changed, 0 insertions, 0 deletions

l.mu?h=main&id=4c97ba914e2627677223c97c04b4532aef9f8025'>4c97ba91 ^

08b48a8d ^

(factorial
  ((default-scope scope-address) <- new (scope literal) (30 literal))
  ((n integer) <- arg)
  { begin
    ; if n=0 return 1
    ((zero? boolean) <- eq (n integer) (0 literal))
    (break-unless (zero? boolean))
    (reply (1 literal))
  }
  ; return n*factorial(n-1)
  ((x integer) <- sub (n integer) (1 literal))
  ((subresult integer) <- factorial (x integer))
  ((result integer) <- mul (subresult integer) (n integer))
  (reply (result integer)))

(main
  ((1 integer) <- factorial (5 literal)))


context:
space:
mode: