Filip Stachecki at 03:11, 19 September 2017

2017-09-19T03:11:23Z

New page

[[Category:Private]]
=Basic=
==EX1==
<source>
rule "Exercise 1"
enabled false
when
$s : Salgrade()

then
System.out.println($s.toString())

end
</source>

==EX2==
<source>
rule "Exercise 2"
enabled false
when
$e : Emp ( sal > 1000 , sal<2000 )

then
System.out.println($e.toString())

end
</source>

==EX3==
<source>
rule "Exercise 3"
enabled false
when
$e : Emp ( deptno==20 , job=="CLERK")

then
System.out.println($e.toString())

end
</source>

==EX4==
<source>
rule "Exercise 4"
enabled false
when
$e : Emp ( mgr != 0)

then
System.out.println($e.toString())

end
</source>

==EX5==
<source>
rule "Exercise 5"
enabled false
when
$e : Emp ( job == "MANAGER" , $s: (sal * 12))

then
//$e.setSal($e.getSal*12)
System.out.println($e.toString() + " Roczne wynagrodzenie: " + $s)

end
</source>

==EX6==
<source>
rule "Exercise 6"
enabled false
when
$e : Emp ( name matches ".LA.*")

then
System.out.println($e.toString())

end
</source>

==EX7==
<source>
rule "Exercise 7"
enabled false
when
$e : Emp ( name matches ".*T.*N")

then
System.out.println($e.toString())

end
</source>

==EX8==
<source>
rule "Exercise 8"
when
$e : Emp ( (job == "MANAGER" && deptno != 10) || (job != "MANAGER" && deptno == 10))

then
System.out.println($e.toString())

end
</source>
<source>
rule "Exercise 8"
enabled true
when
$e : Emp((job=="MANAGER" || deptno==10) not in ((job=="MANAGER" && deptno==10)))
then

System.out.println($e.toString())
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()
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(deptno == 20, job == $e.job))
then
System.out.println( $e.job + " " + $e.deptno)
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("Salary range: " + ($max - $min))

end
</source>

==EX26==
<source>
rule "Exercise 26"
//enabled false
when
accumulate ($e: Emp($e.job == "MANAGER"),
$count : count() )
then
System.out.println("MANAGER: " + $count)

end
</source>

==EX25==
<source>
declare SalByJob
job : String
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( "Average salary in position " + j + " is: " + $avg + "\n" )
insert(new SalByJob(j))
end
</source>

==EX27==
<source>
declare Dep
$depno : int
end

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

==EX43==
<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>
rule "Exercise 43"
enabled true
when
$d:Emp(hiredate==1982)
$dd:Emp($d.job==$dd.job,hiredate==1983)
then
System.out.println($dd.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>
<source>
declare Depts
dept : Integer
end

rule "Find departments with more than 3 workers."
when
Emp(d: deptno) and not Depts(d == dept)
accumulate (e :Emp(deptno == d),
$c : count(e)
)
Number(doubleValue > 3) from $c
then
System.out.println("deptno: " + d + " count: " + $c)
insert(new Depts(d))
end
</source>
<source lang="java">
rule "Exercise 28"
enabled true
when
Emp($d: deptno) and
not Dep($depno == $d)
accumulate (e :Emp( deptno== $d), $c : count(e.name))
Number(intValue > 3) from $c

then
System.out.println($d + " " + ($c))
insert(new Dep($d))
end
</source>

==EX45==
<source>
rule "Exercise 45 Find employees earning more than the manager’s (job=='MANAGER') average." enabled false
when
Number($avgNumber : longValue) from accumulate (e:Emp(job=='MANAGER'), average(e.sal))
$e:Emp(sal > $avgNumber)
then
System.out.println($e.name + ":" + $e.sal)
end
</source>

<source lang=java>
declare SalByJob
$job : String
$d: double
end

rule "Exercise 45"
enabled true
when
Emp($j: job, job=="MANAGER") //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

rule "Exercise 45a"
enabled true
when
$dd: SalByJob()
$e: Emp(sal>$dd.$d)
then
System.out.println($e)
end

</source>

==EX46==
<source>
rule "Exercise 46 Select employees earning the maximum salaries in their positions (jobs)." enabled false
when
$e:Emp()
Number($max : longValue) from accumulate (e:Emp(job==$e.job), max(e.sal))
Number(doubleValue == $e.sal) from $max
then
System.out.println($e.name + " " +$e.job + ":" + $e.sal)
end
</source>

=DSL=
==EX1==
<source>
[condition][]There are employees earning more than {salary}=e:Emp(sal > {salary})
[*][]Show name and salary=System.out.println("Name: " + e.name + " Salary: " + e.sal)
</source>
<source>
package rules1
import com.nobleprog.FactModel.*;
import java.lang.Math
dialect "mvel"

expander Exercise01.dsl

rule "Rule 1"

when
There are employees earning more than 2000
then
Show name and salary

end
</source>

==EX2==
<source>
[condition][]There is a department which:=d: Dept()
[condition][]- is located in {city}=loc == "{city}"
[consequence][]Show department name=System.out.println(d.dname)
[condition][]- department number is greater than {cnt}=deptno > {cnt}

</source>
<source>
package rules2
import com.nobleprog.FactModel.*;
import java.lang.Math
dialect "mvel"

expander Exercise02.dsl

rule "Rule 2"
when
There is a department which:
- is located in LONDON
- department number is greater than 5
then
Show department name
end
</source>

Drools Orange 13092017 - Revision history

Filip Stachecki at 03:11, 19 September 2017