chawan - Chawan - a web browser for your terminal (mirror)

about summary refs log tree commit diff stats

diff options

Diffstat (limited to 'src/html/dom.nim')

-rw-r--r--

1 files changed, 1 insertions, 1 deletions

.com> 2014-12-14 13:21:59 -0800 428 - cleanup odds and ends' href='/akkartik/mu/commit/generic.mu?h=hlt&id=d4b4d018c76409a96b82bee1e81c735648e57918'>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: