Maize Demo

demo.mz

program main -> X is
  0x08 fibonacci
end


-- Renvoie (R) le Nieme element de la suite de fibonacci.
-- PRECONDITION: N >= 0
program N fibonacci -> R is
  take N 0x00 0x01 restore N

  label W dup 0x00 gt then
    take N dup take fib_el
    swap restore fib_el sum
    restore N 0xFFFFFFFFFFFFFFFF sum
    goto W
  end

  rem rem
end


program X Y swap -> Y X is
  take Y take X
  restore X restore Y
end