resources.mu « html - 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

path: root/html/resources.mu

blob: 79bb999f5bd5bef85c3c8afaf5f6ec0c2062ecc5 (plain) (blame)

  assume-resources [
    # contents for a local file
    [/foo/bar] <- [
      |def|  # lines delimited by '|'
    ]

    # contents for a URL
    [example.com/foo/bar] <- [
      |abc|
    ]
  ]

pan class="w"> 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))) ])