Maxima/演算法

堆疊 ( LIFO)

使用 Maxima CAS 編制的向量

使用列表實現堆疊

/* create stack */
stack:[1];
/* push on stack */
stack:endcons(2,stack);
stack:endcons(3,stack);
block
(
  loop,
  stack:delete(last(stack),stack), /* pop from stack */
  disp(stack), /* display */
  if is(not emptyp(stack)) then go(loop)
);
stack;