random.pro

来自「prolog,人工智能推理程序,运行环境prolog」· PRO 代码 · 共 26 行

/************************************************************************/
/*                                                                      */
/*             Turbo Prolog 2.0 example program                         */
/*									*/
/*   Copyright (c) 1986, 88 by Borland International, Inc.              */
/*                                                                      */
/*		       Labyrinth generator                              */
/*                                                                      */
/************************************************************************/

PREDICATES
  run
  get(INTEGER,CHAR)

GOAL makewindow(1,116,96,"Labyrinth generator",5,5,15,60), run.

CLAUSES
  run:-	not(keypressed),
	random(13,ROW),
	random(58,COL),
	random(10,SEL),
	get(SEL,CHAR),
	scr_char(ROW,COL,CHAR),
	run.

  get(0,'