人がケーキを食べるシミュレーション
;世界があった。 (defvar *the-world* nil) ;神はケーキを作った。 (push '(cake) *the-world*) >((cake)) ;神は人間を作った。 (push '(person) *the-world*) >((person) (cake)) ;神は人間にケーキを食べさせた。 (set-status ;疑似コード '((a person) -ing) '(eat (a cake)) *the-world*) >(((person) (-ing (eat #1=(cake)))) #1#) ;神は時を進めた。 (roll-on ;疑似コード *the-world*) >((person)) ;世界には人間だけが残った。 *the-world* >((person))