text.love - Fork of lines.love without drawings; useful starting point for further forks

about summary refs log tree commit diff stats

diff options

Diffstat (limited to 'text.lua')

0 files changed, 0 insertions, 0 deletions

3373f24a12cc2550caebd1f'>f184c95e ^

0ca35d02 ^

d1c12218 ^

d4b4d018 ^

d4b4d018 ^

f184c95e ^

0ca35d02 ^

20379e78 ^

f184c95e ^

d4b4d018 ^

f184c95e ^

0ca35d02 ^

d4b4d018 ^

7d2c2d55 ^

4b62edd8 ^

7d2c2d55 ^

f184c95e ^

4
5

12
13

15
16
17

19
20
21

22
23
24

; To demonstrate generic functions, we'll construct a factorial function with
; separate base and recursive clauses. Compare factorial.mu.

; factorial n = n*factorial(n-1)
(function factorial [
  (default-space:space-address <- new space:literal 30:literal)
  (n:integer <- input 0:literal)
  (x:integer <- subtract n:integer 1:literal)
  (subresult:integer <- factorial x:integer)
  (result:integer <- multiply subresult:integer n:integer)
  (reply result:integer)
])

; factorial 0 = 1
(function factorial [
  (default-space:space-address <- new space:literal 30:literal)
  (n:integer <- input 0:literal)
  { begin
    (zero?:boolean <- equal n:integer 0:literal)
    (break-unless zero?:boolean)
    (reply 1:literal)
  }
])

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


context:
space:
mode: