Filip Stachecki: /* EX43 */

2017-09-15T08:15:49Z

EX43

New page

[[Category:private]]
=Basic=
==EX1==
<source>
rule "exercise1"
when
s : Salgrade()
then
System.out.println(
s.grade + " " +
s.losal + "\t" +
s.hisal ) ;
end
</source>

==EX2==
<source>
rule "Exercise 2"
when
e : Emp(sal > 1000, sal <2000)
then
System.out.println(
e.id + " " +
e.name + "\t" +
e.job + " \t" +
e.mgr + "\t" +
e.hiredate + " " +
e.sal + " " +
e.deptno );
end
</source>

==EX3==
<source>
rule "Exercise 3"
when
e : Emp(job == "CLERK", deptno == 20)
then
System.out.println("\n" +
e.id + " " +
e.name + "\t" +
e.job + " \t" +
e.mgr + "\t" +
e.hiredate + " " +
e.sal + " " +
e.deptno );
end
</source>

==EX4==
<source>
rule "Exercise 4"
//enabled false
when
e : Emp(mgr != 0)
then
System.out.println(
e.id + " " +
e.name + "\t" +
e.job + " \t" +
e.mgr + "\t" +
e.hiredate + " " +
e.sal + " " +
e.deptno );
end
</source>

==EX5==
<source>
rule "Exercise 5"
//enabled false
when
e : Emp(job == 'MANAGER')
then
System.out.println(
e.id + " " +
e.name + "\t" +
e.job + " \t" +
e.mgr + "\t" +
e.hiredate + " " +
e.sal * 12 + " " +
e.deptno );
end
</source>

==EX6==
<source>
rule "Exercise 6"
//enabled false
when
e : Emp(name matches ".LA.*")
then
System.out.println(
e.id + " " +
e.name + "\t" +
e.job + " \t" +
e.mgr + "\t" +
e.hiredate + " " +
e.sal + " " +
e.deptno );
end
</source>

==EX7==
<source>
rule "Exercise 7"
when
e : Emp(name matches ".*T.*N")
then
System.out.println(
e.id + " " +
e.name + "\t" +
e.job + " \t" +
e.mgr + "\t" +
e.hiredate + " " +
e.sal + " " +
e.deptno );
end
</source>

==EX8==
<source>
rule "Exercise 8"
when
//e : Emp((job == "MANAGER" && deptno != 10) || (job != "MANAGER" && deptno == 10))
e : Emp((job == "MANAGER" || deptno == 10) && !(job == "MANAGER" && deptno == 10))
then
System.out.println(
e.name + "\t" +
e.job + " \t" +
e.deptno );
end
</source>

****ALTERNATE SOLUTION****
<source>
rule "Exercise 8"
//enabled false
when
e : Emp((job == "MANAGER" && deptno != 10) || (deptno == 10 && job != "MANAGER"))
then
System.out.println(e.name );
end
</source>
****ALTERNATE ALTERNATE SOLUTION****
<source lang="java">
rule "Exercise 8a"
when
$e : Emp(job == 'MANAGER' || deptno == 10)
not(exists(Emp($e.id == id, job == 'MANAGER', deptno == 10)))
then
System.out.println($e.id + " " + $e.name + " " + $e.job + " " + $e.mgr + " " + $e.hiredate + " " + $e.sal + " " + $e.deptno);
end
</source>

=Advanced=
==EX31==
<source>
rule "Exercise 31"
when
$e: Emp()
$d: Dept($e.deptno == deptno)
then
System.out.println( $e.name + "\t" + $d.loc );
end
</source>

==EX32==
<source>
rule "Exercise 32"
when
$d: Dept()
$e: Emp($d.deptno == deptno)
then
System.out.println( $e.name + "\t" + $d.dname + "\t" + $d.deptno );
end
</source>

==EX33==
<source>
rule "Exercise 33"
when
$e: Emp(sal > 2000)
$s: Salgrade($e.sal >= losal, $e.sal <= hisal)
then
System.out.println( $e.name + "\t" + $e.sal + "\t" + $s.grade );
end
</source>

==EX34==
<source>
rule "Exercise 34"
when
$d :Dept(loc == "LONDON")
$e :Emp($d.deptno == deptno)
then
System.out.println($e.name + "\t" + $d.loc )
end
</source>

==EX35==
<source>
rule "Exercise 35"
when
$d :Dept(loc != "LONDON")
$e :Emp($d.deptno == deptno)
$s :Salgrade($e.sal >= losal && $e.sal <= hisal)
then
System.out.println($e.name+ "\t" + $d.loc + "\t" + $s.grade )
end
</source>

==EX36==
<source>
rule "Exercise 36"
when
$d :Dept()
not (Emp(deptno == $d.deptno))
then
System.out.println( $d.dname )
end
</source>

==EX37==
<source>
rule "Exercise 37"
when
$e :Emp()
$m :Emp(id == $e.mgr)
then
System.out.println( $e.name + " boss is " + $m.name )
end
</source>

==EX38==
<source>
rule "Exercise 38"
when
$e: Emp($e.mgr == 0)
then
System.out.println( $e.name );
end
</source>

<source>
rule "Exercise 38"
when
$e :Emp()
not (Emp(id == $e.mgr))
then
System.out.println( $e.name)
end
</source>

==EX39==
<source>
rule "Exercise 39"
when
$e: Emp()
not Emp( $e.id == mgr)
then
System.out.println( $e.name );
end
</source>

==EX41==
<source>
rule "Exercise 41"
when
$m :Emp()
$e :Emp($m.id == mgr, hiredate < $m.hiredate)
then
System.out.println( $e.name + " was hired in " + $e.hiredate + ", their boss " + $m.name + " was hired in " + $m.hiredate )
end
</source>

==EX44==
<source>
rule "Exercise 44"
when
$e :Emp(deptno == 10)
not Emp($e.job == job, deptno == 20)
then
System.out.println( $e.job )
end
</source>

==EX23==
<source>
rule "Exercise 23"
//enabled false
when
accumulate (e :Emp(hiredate == 1981),
$avg : average(e.sal),
$min : min(e.sal),
$max : max(e.sal)
)

then
System.out.println(
"Average salary: " + $avg + "\n" +
"Min salary: " + $min + "\n" +
"Max salary: " + $max + "\n"
)
end
</source>

==EX24==
<source>
rule "Exercise 24"
//enabled false
when
accumulate (e :Emp(),
$min : min(e.sal),
$max : max(e.sal)
)

then
System.out.println($max - $min )
end
</source>

<source>
rule "Exercise 25"
//enabled false
when
accumulate (e :Emp(e.job == "MANAGER"),
$count : count(e)
)

then
System.out.println($count)
end
</source>

Look at this beautiful examples:

<source>
rule "Exercise 26"
when
$s : Integer() from accumulate (
Emp(job == 'MANAGER'),
init(int s = 0),
action(s += 1),
result(s)
)
then
System.out.println("Sum of Managers: " + $s);
end

rule "Exercise 26b"
when
accumulate (Emp(job == 'MANAGER'), $s: sum(1))
then
System.out.println("Sum of Managers: " + $s);
end
</source>

==EX25==
<source>
declare SalByJob
job : String
avgSal : Double
end

rule "Exercise 25"
when
Emp($j: job) and
not SalByJob($j == job)
accumulate ($e :Emp(job == $j), $avg : average($e.sal) )
then
System.out.println($j + " " + $avg )
insert(new SalByJob($j,$avg))
end

------------ other solution -------------------

declare CountedJob
job: String
end

rule "Exercise 25"
when
$e: Emp()
not CountedJob(job == $e.job)
accumulate (e1: Emp(job == $e.job), $avg: average(e1.sal) )
then
System.out.println( $e.job + "\t" + $avg)
insert(new CountedJob($e.job))
end

</source>

==EX27==
<source>
declare SalByDep
dep : int
avgSal : Double
end

rule "Exercise 27"
when
Emp($d: deptno) and
not SalByDep($d == dep)
accumulate ($e :Emp(deptno == $d), $avg : average($e.sal*12) )
then
System.out.println($d + " " + $avg )
insert(new SalByDep($d,$avg))
end
</source>

==EX43==
<source>
declare Jobs
job : String
end

rule "Exercise 43"
// INCORRECT
when
Emp($j: job, hiredate in (1982,1983)) and
not Jobs($j == job)
then
System.out.println($j )
insert(new Jobs($j))
end
</source>
<source>
rule "43+"
when
e1 : Emp(hiredate == 1982)
e2 : Emp(hiredate == 1983)
exists (Emp(e1.job == job, e2.job == job))
then
System.out.println( e1.job)
end
</source>
<source>
declare xJob
name : String
end

rule "Exercise 43" enabled true
when
$e1:Emp($job:job && hiredate == 1982)
$e2:Emp(job == $job && hiredate == 1983)
not(xJob(name == $job))
then
System.out.println($job)
insert(new xJob($job));
end
</source>

==EX28==
<source>
rule "28 Find departments with more than 3 workers. "
when
x: Dept(d: deptno)
accumulate (e :Emp(deptno == d),
$count : count()
)
Number(doubleValue > 3) from $count
then
System.out.println(x.deptno + " " + $count
)
end
</source>

==EX45==
<source>
</source>
==EX46==
<source>
</source>
==EX51==
<source>
</source>
==EX55==
<source>
</source>
=inserLogical=
==rule==
<source>
import com.nobleprog.FactModel.*
dialect "mvel"

declare AccessToSecretFile
emp : Emp
end

rule "Grant access to employees of Dept. 10"
when
e : Emp( deptno == 10 )
then
insertLogical( new AccessToSecretFile(e) )
end
</source>

==jUnit==
<source>
</source>
=Shopping Example=
==Fact Model==
<source lang="java">
package com.nobleprog;

public class FactModel{

public static class Customer {
private String name;
private int discount;

public Customer(String name,
int discount) {
this.name = name;
this.discount = discount;
}

public String getName() {
return name;
}

public int getDiscount() {
return discount;
}

public void setDiscount(int discount) {
this.discount = discount;
}

}

public static class Discount {
private Customer customer;
private int amount;

public Discount(Customer customer,
int amount) {
this.customer = customer;
this.amount = amount;
}

public Customer getCustomer() {
return customer;
}

public int getAmount() {
return amount;
}

}

public static class Product {
private String name;
private float price;

public Product(String name,
float price) {
this.name = name;
this.price = price;
}

public String getName() {
return name;
}

public float getPrice() {
return price;
}

}

public static class Purchase {
private Customer customer;
private Product product;

public Purchase(Customer customer,
Product product) {
this.customer = customer;
this.product = product;
}

public Customer getCustomer() {
return customer;
}

public Product getProduct() {
return product;
}
}

}
</source>

==rules==
<source lang="java">
package _30_mvel
import com.nobleprog.FactModel.*
import java.lang.Math
import java.util.ArrayList
dialect "mvel"

rule "Purchase notification"
//salience 10

when
$c : Customer()
$p : Purchase( customer == $c )
then
System.out.println( "Customer " + $c.name + " just purchased " + $p.product.name );
end

rule "Discount removed notification"
when
$c : Customer()
not Discount( customer == $c )
then
$c.discount = 0;
System.out.println( "Customer " + $c.name + " now has a discount of " + $c.discount );
end

rule "Discount awarded notification"
when
$c : Customer()
$d : Discount( customer == $c )
then
System.out.println( "Customer " + $c.name + " now has a discount of " + $d.amount );
end

rule "Apply 10% discount if total purchases is over 100"
no-loop true
dialect "java"
when
$c : Customer()
$i : Double(doubleValue > 100) from accumulate (
Purchase( customer == $c, $price : product.price ),
sum( $price )
)
then
$c.setDiscount( 10 );
insertLogical( new Discount( $c, 10 ) );
System.out.println( "Customer " + $c.getName() + " now has a shopping total of " + $i );
end
</source>

==jUnit==
<source lang="java">
package com.nobleprog;

import com.nobleprog.*;
import org.junit.Test;
import org.kie.api.KieServices;
import org.kie.api.runtime.KieContainer;
import org.kie.api.runtime.KieSession;
import org.kie.api.runtime.rule.FactHandle;

import com.nobleprog.FactModel.*;

public class Test01 {
@Test
public void test1() {
KieServices ks = KieServices.Factory.get();
KieContainer kContainer = ks.getKieClasspathContainer();
KieSession ksession = kContainer.newKieSession("ksession-rules");

//KieSession ksession = kc.newKieSession("ShoppingKS");

Customer mark = new Customer( "mark",
0 );
ksession.insert( mark );

Product shoes = new Product( "shoes",
60 );
ksession.insert( shoes );

Product hat = new Product( "hat",
60 );
ksession.insert( hat );

ksession.insert( new Purchase( mark,
shoes ) );

FactHandle hatPurchaseHandle = ksession.insert( new Purchase( mark,
hat ) );

ksession.fireAllRules();

ksession.delete( hatPurchaseHandle );
System.out.println( "Customer mark has returned the hat" );
ksession.fireAllRules();
}
}
</source>

Drools Wellesley - Revision history

Filip Stachecki: /* EX43 */