26 lines
473 B
Plaintext
26 lines
473 B
Plaintext
|
|
failure(L) :- hmmf(L,[r0],C,2), C >= 1000.
|
|
success(L) :- hmmf(L,[r0],C,2), C<1000.
|
|
|
|
hmmf([p|L],S,C1,N):0.4 ; hmmf([s|L],S,C2,N):0.6 :- N>0,
|
|
S=[r0|_],
|
|
tr(S,R2),
|
|
N2 is N-1,
|
|
hmmf(L,[R2|S],C,N2),
|
|
C1 is C+900,
|
|
C2 is C+400.
|
|
|
|
hmmf([s|L],S,C1,N):0.5 ; hmmf([h|L],S,C2,N):0.5 :- N>0,
|
|
S=[r1|_],
|
|
tr(S,R2),
|
|
N2 is N-1,
|
|
hmmf(L,[R2|S],C,N2),
|
|
C1 is C+500,
|
|
C2 is C+400.
|
|
|
|
|
|
hmmf([],S,0,0).
|
|
|
|
tr([r0|T],r0): 0.7 ; tr([r0|T],r1) : 0.3.
|
|
tr([r1|T],r0): 0.3 ; tr([r1|T],r1) : 0.7.
|