I think that Sven wrote:
>> How can i modify my rule so that it really picks out the right encoding?
Hi Sven,
Bob may have already given you what you need, but here's another thought.
Try this batch file and see if it's the behavior that you want.
Note that I changed your templates a bit.
;;==== best.clp ====
(clear)
;;(watch all) ;;you can toggle this on/off
;; Devices have multiple encodings, which have their own details.
(deftemplate device
(slot id)
(multislot encoding-ids)) ;; a list of encoding "id"s.
;; Acts like a "linking table" in a RDBMS
(deftemplate encoding
(slot id)
(slot type)
(slot rank))
;; Returns the minimum value of a numeric list.
(deffunction min-value (?list)
(bind ?min (nth$ 1 (first$ ?list)))
(foreach ?n (rest$ ?list)
(if (numberp ?n) then
(if (< ?n ?min) then
(bind ?min ?n))
else
(printout t "Non-numeric list" crlf)
(return nil)))
(return ?min))
;; Load a test factbase
(deffacts devices-and-encodings
(device (id 1) (encoding-ids 1 3 4))
(device (id 2) (encoding-ids 1 3 4))
(device (id 3) (encoding-ids 2 5))
(device (id 4) (encoding-ids 1 3 5))
(device (id 5) (encoding-ids 2 4))
(encoding (id 1) (type MP3) (rank 1))
(encoding (id 2) (type RM) (rank 2))
(encoding (id 3) (type AVI) (rank 3))
(encoding (id 4) (type WAV) (rank 4))
(encoding (id 5) (type AU) (rank 5))
)
;; This fires for each device in inventory, printing its best quality
encoding.
(defrule find-best-encoding-for-each-device
"For each device, print its best (lowest) encoding rank."
(device (id ?dev-id) (encoding-ids $?enc-ids))
(encoding (id ?id) (type ?t) (rank =(min-value $?enc-ids)))
=>
;; Get the best encoding for this device
(printout t "The best quality encoding for device id " ?dev-id " is " ?t
crlf))
(reset)
(run)
;;==============================================
Jess prints out...
Jess> (batch best.clp)
The best quality encoding for device id 5 is RM
The best quality encoding for device id 3 is RM
The best quality encoding for device id 4 is MP3
The best quality encoding for device id 2 is MP3
The best quality encoding for device id 1 is MP3
5
Jess>
Hope this helps!
Cheers,
Jason
------------------------
Jason Morris
Morris Technical Solutions
[EMAIL PROTECTED]
www.morristechnicalsolutions.com
fax/phone: 503.692.1088
--------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the list
(use your own address!) List problems? Notify [EMAIL PROTECTED]
--------------------------------------------------------------------
