From MindModelingWiki
- WebSite info
;;Principal Investigator Name
;;Principal Investigator Description (website)
;;Job Name
;;Job Description
(load "load-act-r-6.lisp")
;;------------ External Files ----------------
(load "file1") ;hash1
(load "file2") ;hash2
(load "file3") ;hash3
;;--------------------------------------------
(defvar mm_params (list '(key 1 2) '(key2 2 3)))
(defparameter mm_RUN-FUNCTION 'do-all)
(setq *standard-output* (open "standard-output-file" :direction :output :if-exists :overwrite :if-does-not-exist :create))
(let ((mm_i 0)(mm_len (length mm_params))
(dolist (mm_obj mm_params)
(format t "~%=====~%~s~%" (car mm_obj))
(eval (cons mm_RUN-FUNCTION (cdr mm_obj)))
(incf mm_i)
(with-open-file (mm_PCF "percent-complete-file" :direction :output
:if-exists :overwrite :if-does-not-exist :create)
(format mm_PCF "~f" (/ mm_i mm_len)))
(force-output *standard-output*)))
[edit] See Also
ACT-R Work Unit
