DialogWindow1

CLIPS (6.31 6/12/19)
CLIPS> (deftemplate Account (slot name) (slot rule) (slot value))
CLIPS> (assert (Account (name John_Frei) (rule payment-delay) (value 3)))
<Fact-1>
CLIPS> (assert (Account (name John_Frei) (rule payment-delay) (value 5)))
<Fact-2>
CLIPS> (assert (Account (name Jim_Poll) (rule early-repayment) (value 10)))
<Fact-3>
CLIPS> (assert (Account (name Jim_Poll) (rule early-repayment) (value 12)))
<Fact-4>
CLIPS> (assert (Account (name John_Frei) (rule law-trouble) (value 4))))
<Fact-5>
CLIPS> (assert (Account (name Don_Carleon) (rule law-trouble) (value 10)))

<Fact-6>
CLIPS> (assert (Account (name John_Frei) (rule jobless) (value 1)))
<Fact-7>
CLIPS> (assert (Account (name Don_Carleon) (rule deposit) (value 3)))
<Fact-8>
CLIPS> (assert (Account (name Jim_Poll) (rule credit) (value 1)))
<Fact-9>
CLIPS> (assert (Account (name Don_Carleon) (rule own-property) (value 5)))
<Fact-10>
CLIPS> (assert (Account (name Jim_Poll) (rule own-property) (value 1)))
<Fact-11>
CLIPS> (ppdeftemplate Account)
(deftemplate MAIN::Account
(slot name)
(slot rule)
(slot value))
CLIPS> (facts)
f-0 (initial-fact)
f-1 (Account (name John_Frei) (rule payment-delay) (value 3))
f-2 (Account (name John_Frei) (rule payment-delay) (value 5))
f-3 (Account (name Jim_Poll) (rule early-repayment) (value 10))
f-4 (Account (name Jim_Poll) (rule early-repayment) (value 12))
f-5 (Account (name John_Frei) (rule law-trouble) (value 4))
f-6 (Account (name Don_Carleon) (rule law-trouble) (value 10))
f-7 (Account (name John_Frei) (rule jobless) (value 1))
f-8 (Account (name Don_Carleon) (rule deposit) (value 3))
f-9 (Account (name Jim_Poll) (rule credit) (value 1))
f-10 (Account (name Don_Carleon) (rule own-property) (value 5))
f-11 (Account (name Jim_Poll) (rule own-property) (value 1))
For a total of 12 facts.
CLIPS> (assert (name John_Frei payment-delay 7 early-repayment 0 law-trouble 15 jobless 2 deposit 0 credit 5 own-property 0))
<Fact-12>
CLIPS> (assert (name Jim_Poll early_repayment 5 law-trouble 0 deposit 5))
<Fact-13>
CLIPS> (assert (name Carl_Markson own-property 2 credit 1))
<Fact-14>
CLIPS> (assert (name Jane_Higglens jobless 1 deposit 2))
<Fact-15>
CLIPS> (assert (name Maggy_Tommson credit 4 law-trouble 1))
<Fact-16>
CLIPS> (assert (name Mark_Edisson own-property 1 law-trouble 0 deposit 5))
<Fact-17>
CLIPS> (assert (name Lisa_Simpson payment-delay 0 early-repayment 10))
<Fact-18>
CLIPS> (assert (name Bart_Simpson jobless 2 credit 5))
<Fact-19>
CLIPS> (assert (name Conchita_Rigless credit 2 own-property 4))
<Fact-20>
CLIPS> (facts)
f-0 (initial-fact)
f-1 (Account (name John_Frei) (rule payment-delay) (value 3))
f-2 (Account (name John_Frei) (rule payment-delay) (value 5))
f-3 (Account (name Jim_Poll) (rule early-repayment) (value 10))
f-4 (Account (name Jim_Poll) (rule early-repayment) (value 12))
f-5 (Account (name John_Frei) (rule law-trouble) (value 4))
f-6 (Account (name Don_Carleon) (rule law-trouble) (value 10))
f-7 (Account (name John_Frei) (rule jobless) (value 1))
f-8 (Account (name Don_Carleon) (rule deposit) (value 3))
f-9 (Account (name Jim_Poll) (rule credit) (value 1))
f-10 (Account (name Don_Carleon) (rule own-property) (value 5))
f-11 (Account (name Jim_Poll) (rule own-property) (value 1))
f-12 (name John_Frei payment-delay 7 early-repayment 0 law-trouble 15 jobless 2 deposit 0 credit 5 own-property 0)
f-13 (name Jim_Poll early_repayment 5 law-trouble 0 deposit 5)
f-14 (name Carl_Markson own-property 2 credit 1)
f-15 (name Jane_Higglens jobless 1 deposit 2)
f-16 (name Maggy_Tommson credit 4 law-trouble 1)
f-17 (name Mark_Edisson own-property 1 law-trouble 0 deposit 5)
f-18 (name Lisa_Simpson payment-delay 0 early-repayment 10)
f-19 (name Bart_Simpson jobless 2 credit 5)
f-20 (name Conchita_Rigless credit 2 own-property 4)
For a total of 21 facts.
CLIPS> (assert (name Yi_Ling jobless 0 law-trouble 0 deposit 0))
<Fact-21>
CLIPS> (run)
CLIPS>


(deffacts init-list
(name John_Frei payment-delay 7 early-repayment 0 law-trouble 15 jobless 2 deposit 0 credit 5 own-property 0)
(name Jim_Poll early_repayment 5 law-trouble 0 deposit 5)
(name Carl_Markson own-property 2 credit 1)
(name Jane_Higglens jobless 1 deposit 2)
(name Maggy_Tommson credit 4 law-trouble 1)
(name Mark_Edisson own-property 1 law-trouble 0 deposit 5)
(name Lisa_Simpson payment-delay 0 early-repayment 10)
(name Bart_Simpson jobless 2 credit 5)
(name Conchita_Rigless credit 2 own-property 4)
(name Yi_Ling jobless 0 law-trouble 0 deposit 0)
)
CLIPS> (deftemplate Account (slot name) (slot rule) (slot value))

(assert
(Account (name John_Frei) (rule payment-delay) (value 3))
(Account (name John_Frei) (rule payment-delay) (value 5))
(Account (name Jim_Poll) (rule early-repayment) (value 10))
(Account (name Jim_Poll) (rule early-repayment) (value 12))
(Account (name John_Frei) (rule law-trouble) (value 4))
(Account (name Don_Carleon) (rule law-trouble) (value 10))
(Account (name John_Frei) (rule jobless) (value 1))
(Account (name Don_Carleon) (rule deposit) (value 3))
(Account (name Jim_Poll) (rule credit) (value 1))
(Account (name Don_Carleon) (rule own-property) (value 5))
)

(assert
(Account (name Yi_Ling) (rule payment-delay) (value 0))
)

(assert
(Account (name Jim_Poll) (rule jobless) (value 1))
)