stack machineを愛でる。 その9

#概要

stack machineが、好きだ。
練習問題、やってみた。

#練習問題

zundokoを、表示せよ。

#考え方

乱数の求め方
0から8の乱数を得る。

  push  "9"
  rnd

#サンプルコード

loop  push  "9"
  rnd
  push  "4"
  >
  !
  if  skip0
  push  "a"
  push  "0"
  set
  push  "x"
  push  "x"
  get
  push  "doko "
  add
  set
  jp  loop
skip0  push  "x"
  push  "x"
  get
  push  "zun "
  add
  set
  push  "a"
  push  "a"
  get
  ++
  set
  push  "a"
  get
  push  "4"
  >
  !
  if  skip1
  jp  loop
skip1  push  "x"
  push  "x"
  get
  push  "doko kiyoshi!"
  add
  set
  end

#成果物

以上。