(load "globals.lisp")
(reset-seed)
(load "structs.lisp")
(load "macros.lisp")
(load "utils.lisp")
(load "utils2.lisp")
(load "dist.lisp")

(defun retrieve-initial-requirements (allrequirments)
  (split-list (random-between-int (* (globdef-initial_bound_lower gv) (globdef-num_reqs gv)) (* (globdef-initial_bound_upper gv) (glob-def-num_reqs gv))) allrequirements)
 )


;this function is wrong. needs to update req_heap somehow so we dont keep re-adding the same requirements
;(defun ag-additional-requirements (currentrequirements remainingrequirements)
  ;(let ((numreqstoadd (pRandom (globdef-ave_unimpl_req_per_iter gv)))
        ;)
    ;(if (< 1 (floor numreqstoadd))
        ;currentrequirments
        ;(append currentrequirements (justinsfunction remainingrequirements numreqstoadd))
        ;)
    ;currentrequirements
    ;)
;)
        

(defun runinteration()
  (do* ((requirements (generate-value-cost))
        (current_iter 1)
        (end_development nil)
        )
       ((or (> current_iter 1 (globdef-num_iters gv))end_development))
    
    (if (> current_iter (globdef-min_iters gv))
        (setf end_development (randbin1 (globdef-end_dev_prob gv)))
        )

    ;put your code here
    (print "iter")
    (print current_iter)
    (incf current_iter)
    )
  )