ranger - mirror of ranger - a simple, vim-like file manager

diff options

Diffstat (limited to 'doc/uml/141058.diagram')

0 files changed, 0 insertions, 0 deletions

=2e3b597fe85b654e82b891c22d50754fa5a26156'>^

f184c95e ^

b96af395 ^

d4b4d018 ^

f184c95e ^

b96af395 ^

f184c95e ^

0ca35d02 ^

d4b4d018 ^

7d2c2d55 ^

4b62edd8 ^

7d2c2d55 ^

f184c95e ^

6
7
8

15
16

(function factorial [
  (default-space:space-address <- new space:literal 30:literal)
  (n:integer <- next-input)
  { begin
    ; if n=0 return 1
    (zero?:boolean <- equal n:integer 0:literal)
    (break-unless zero?:boolean)
    (reply 1:literal)
  }
  ; return n*factorial(n-1)
  (x:integer <- subtract n:integer 1:literal)
  (subresult:integer <- factorial x:integer)
  (result:integer <- multiply subresult:integer n:integer)
  (reply result:integer)
])

(function main [
  (1:integer <- factorial 5:literal)
  ($print (("result: " literal)))
  (print-integer nil:literal/terminal 1:integer)
  ($print (("\n" literal)))
])


context:
space:
mode: