expert system - CLIPS defrule checking if multiple sides of a box are taken -


i working on program tell me moves make in dots-and-boxes game. trying implement defrule check see if box has 2 of possible 4 sides taken. if case don't want take 1 of remaining 2 lines, give opponent free point. 

(defrule player_move_no_box_1_1 (next_turn p) (turn_num ?t_num) (test(> ?t_num 3)) (line ?l1&~1) (not(line 1)) => (if    (not(or(and(any-factp ((?l line)) (member$ (+ ?l1 3) ?l:implied))(any-factp ((?l line)) (member$ (+ ?l1 4) ?l:implied)))        (and(any-factp ((?l line)) (member$ (+ ?l1 3) ?l:implied))(any-factp ((?l line)) (member$ (+ ?l1 7) ?l:implied)))        (and(any-factp ((?l line)) (member$ (+ ?l1 4) ?l:implied))(any-factp ((?l line)) (member$ (+ ?l1 7) ?l:implied)))))    (printout t "take line #1" crlf)    (assert(line 1))    (assert(next_turn c))))

i've been trying lot of different things, last code tried use, no success. piece of code i'm looking @ line 1 (clockwise starting top of box boxes numbered: x, x+4, x+7, x+3). there simpler way of making check, or way work , i've messed code somewhere?

i suggest explicitly representing each possible line fact , denote in fact whether line has been taken. pattern matching in conditions of rules rather actions. 

clips>   (deftemplate line    (slot id)    (slot taken (default no)))      clips>        (defrule player_move_top_line    ?take <- (line (id ?l1) (taken no))    (line (id =(+ ?l1 3)) (taken ?t3))    (line (id =(+ ?l1 4)) (taken ?t4))    (line (id =(+ ?l1 7)) (taken ?t7))    (test (not (or (and (eq ?t3 yes) (eq ?t4 yes) (eq ?t7 no))                   (and (eq ?t3 yes) (eq ?t4 no) (eq ?t7 yes))                   (and (eq ?t3 no) (eq ?t4 yes) (eq ?t7 yes)))))    =>    (printout t "take line #" ?l1 crlf)    (modify ?take (taken yes))) clips>

i've stripped out turn information original rule make easier test it.

clips> (assert (line (id 0)) (line (id 3)) (line (id 4)) (line (id 7))) <fact-4> clips> (agenda) 0      player_move_top_line: f-1,f-2,f-3,f-4 total of 1 activation. clips> (reset) clips> (assert (line (id 0)) (line (id 3)) (line (id 4)) (line (id 7) (taken yes))) <fact-4> clips> (agenda) 0      player_move_top_line: f-1,f-2,f-3,f-4 total of 1 activation. clips> (reset) clips> (assert (line (id 0)) (line (id 3)) (line (id 4) (taken yes)) (line (id 7))) <fact-4> clips> (agenda) 0      player_move_top_line: f-1,f-2,f-3,f-4 total of 1 activation. clips> (reset) clips> (assert (line (id 0)) (line (id 3) (taken yes)) (line (id 4)) (line (id 7))) <fact-4> clips> (agenda) 0      player_move_top_line: f-1,f-2,f-3,f-4 total of 1 activation. clips> (reset) clips> (assert (line (id 0)) (line (id 3) (taken yes)) (line (id 4) (taken yes)) (line (id 7))) <fact-4> clips> (agenda) clips> (reset) clips> (assert (line (id 0)) (line (id 3) (taken yes)) (line (id 4)) (line (id 7) (taken yes))) <fact-4> clips> (agenda) clips> (reset) clips> (assert (line (id 0)) (line (id 3)) (line (id 4) (taken yes)) (line (id 7) (taken yes))) <fact-4> clips> (agenda) clips> (reset) clips> (assert (line (id 0)) (line (id 3) (taken yes)) (line (id 4) (taken yes)) (line (id 7) (taken yes))) <fact-4> clips> (agenda) 0      player_move_top_line: f-1,f-2,f-3,f-4 total of 1 activation. clips>

Comments

Post a Comment

Popular posts from this blog

javascript - Google App Script ContentService downloadAsFile not working -

i have web app developed using google app script htmlservice , html form, populating excel sheet in google drive using spreadsheetapp . , 1 section calling contentservice download data excel file. function doget(e) { // read excel sheet //getappfile(); // render application html template return htmlservice.createtemplatefromfile('index').evaluate() .settitle('go smart') .setsandboxmode(htmlservice.sandboxmode.iframe); } function downloaddoublequatecsvfile() { var sheetid = propertiesservice.getscriptproperties().getproperty('sheetid'); var ss = spreadsheetapp.openbyid(sheetid).getactivesheet(); //var ss = spreadsheetapp.getactivespreadsheet().getactivesheet(); var maxcolumn = ss.getlastcolumn(); var maxrow = ss.getlastrow(); var data = ss.getrange(1, 1, maxrow, maxcolumn).getvalues(); if (data.length > 1) { var csv = ""; (var row = 0; row < data.length; row++) { (var c...
Read more

javascript - Function overwritting -

is there way overwrite function or event handling in function? using addeventlistener, can have many event handlers on element want var test=document.getelementbyid("div"); test.addeventlistener("click",function(){alert("im first");},false); test.addeventlistener("click",function(){alert("im second");},false); // alerts "im first" , after "im second" but if want overwrite function/event example based on client width example this function one() { alert("first"); } function two() { alert("second"); } window.onresize = function() { var test = document.getelementbyid("div"); if (window.innerwidth > 500) { test.onclick = 1 } else { test.onclick = two; } } is possible in javascript? in case use effective little known approach. addeventlistener can accept object property handleevent event handler. in case it's easy overwr...
Read more

php - Find a regex to take part of Email -

i have following emails need extract part from: bestellnummer xxx: 1 von xxx, 1er pack ------------- anfang der nachricht ------------- foo bar baz foo bar baz // <<<<< need text here ------------- ende der nachricht ------------- ------------- anfang der nachricht ------------- foo bar baz foo bar baz ------------- ende der nachricht ------------- there 0 unlimited occurences of ------------- anfang der nachricht ------------- ------------- ende der nachricht ------------- and i'm able extract first part regex: $re = "/------------- .*? -------------.?(.*?).?------------- .*? -------------/s"; but, i'm quite new on learning regex, i'm pretty sure there must better regex extract part (foo bar baz foo bar baz) of text between ------------- anfang der nachricht ------------- ------------- ende der nachricht ------------- as can in different languages, i'm using .? to match between hyphens. i...
Read more