ools-benchmark.6.0.0.Beta2.source-code.propReactive16P.drl Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of drools-benchmark Show documentation

Drools Benchmark

There is a newer version: 7.36.1.Final

declare A
@propertyReactive
  a1 : int
  a2 : int
end

declare B
@propertyReactive
  b1 : int
  b2 : int
end

declare C
@propertyReactive
  c1 : int
  c2 : int
end

declare D
@propertyReactive
  d1 : int
  d2 : int
end

declare E
@propertyReactive
  e1 : int
  e2 : int
end

declare F
@propertyReactive
  f1 : int
  f2 : int
end

declare G
@propertyReactive
  g1 : int
  g2 : int
end

declare H
@propertyReactive
  h1 : int
  h2 : int
end

declare I
@propertyReactive
  i1 : int
  i2 : int
end

declare J
@propertyReactive
  j1 : int
  j2 : int
end

declare K
@propertyReactive
  k1 : int
  k2 : int
end

declare L
@propertyReactive
  l1 : int
  l2 : int
end

declare M
@propertyReactive
  m1 : int
  m2 : int
end

declare N
@propertyReactive
  n1 : int
  n2 : int
end

declare O
@propertyReactive
  o1 : int
  o2 : int
end

declare P
@propertyReactive
  p1 : int
  p2 : int
end

declare Q
@propertyReactive
  q1 : int
  q2 : int
end

rule Init salience 100
when
then
    for (int i = 0; i < 1000000; i++) {
        insert( new A(1, 1) );
    }
    insert( new B(0, 2) );
    insert( new C(-1, 2) );
    insert( new D(-2, 2) );
    insert( new E(-3, 2) );
    insert( new F(-4, 2) );
    insert( new G(-5, 2) );
    insert( new H(-6, 2) );
    insert( new I(-7, 2) );
    insert( new J(-8, 2) );
    insert( new K(-9, 2) );
    insert( new L(-10, 2) );
    insert( new M(-11, 2) );
    insert( new N(-12, 2) );
    insert( new O(-13, 2) );
    insert( new P(-14, 2) );
    insert( new Q(-15, 2) );
end

rule R1
when
    $a: A( a1 < 10 )
    $b: B( b1 < $a.a1 )
    $c: C( c1 < $b.b1 )
    $d: D( d1 < $c.c1 )
    $e: E( e1 < $d.d1 )
    $f: F( f1 < $e.e1 )
    $g: G( g1 < $f.f1 )
    $h: H( h1 < $g.g1 )
    $i: I( i1 < $h.h1 )
    $j: J( j1 < $i.i1 )
    $k: K( k1 < $j.j1 )
    $l: L( l1 < $k.k1 )
    $m: M( m1 < $l.l1 )
    $n: N( n1 < $m.m1 )
    $o: O( o1 < $n.n1 )
    $p: P( p1 < $o.o1 )
    $q: Q( q1 < $p.p1 )
then
    modify( $a ) { setA2( $q.getQ2() + 1 ) };
end