51357 topo (defun reglas-generacion(i j k z) (setf xx 0) ;;print (patch-c z)) (let ((m 0) (n 0) (b 0)) (loop for o in (loop for u in (loop for e in *l* do (incf m) (if (= m 2) (return)) ) do (incf n) (if (= n 2) (return))) do (incf b) (incf xx (patch-c z)) ;; (print (patch-c z)) ;; (print xx) (if (= b 2) (return)) )) (if (> xx 2) (setf (patch-c (nth i (nth j (nth k *l*))))(random 1.0) (patch-x (nth i (nth j (nth k *l*)))) 7000) (setf (patch-c (nth i (nth j (nth k *l*)))) 1 (patch-x (nth i (nth j (nth k *l*)))) 0)) ) 3404936920 #lispcafe Common Lisp