(when grass?
(clnl-nvm:ask (clnl-nvm:patches)
(lambda ()
- (setf (clnl-nvm:agent-value :pcolor) (clnl-nvm:one-of (list (clnl-nvm:lookup-color :green) (clnl-nvm:lookup-color :brown))))
+ (setf
+ (clnl-nvm:agent-value :pcolor)
+ (clnl-nvm:one-of (list (clnl-nvm:lookup-color :green) (clnl-nvm:lookup-color :brown))))
(if (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))
(setf (clnl-nvm:agent-value :countdown) grass-regrowth-time)
(setf (clnl-nvm:agent-value :countdown) (clnl-nvm:random grass-regrowth-time))))))
(setf (clnl-nvm:agent-value :energy) (clnl-nvm:random (* 2.0d0 wolf-gain-from-food)))
(clnl-nvm:setxy (clnl-nvm:random-xcor) (clnl-nvm:random-ycor))))
(display-labels)
- (setf grass (clnl-nvm:count (clnl-nvm:with (clnl-nvm:patches) (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
+ (setf
+ grass
+ (clnl-nvm:count
+ (clnl-nvm:with
+ (clnl-nvm:patches)
+ (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
(clnl-nvm:reset-ticks)
:undefined)
(death)
(reproduce-wolves)))
(when grass? (clnl-nvm:ask (clnl-nvm:patches) (lambda () (grow-grass))))
- (setf grass (clnl-nvm:count (clnl-nvm:with (clnl-nvm:patches) (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
+ (setf
+ grass
+ (clnl-nvm:count
+ (clnl-nvm:with
+ (clnl-nvm:patches)
+ (lambda () (equalp (clnl-nvm:agent-value :pcolor) (clnl-nvm:lookup-color :green))))))
(clnl-nvm:tick) (display-labels)
:undefined))