public override Predicate exec(Prolog engine) { engine.setB0(); Term a1, a2, a3, a4, a5, a6; Predicate p1, p2, p3; a1 = arg1.Dereference(); a2 = arg2.Dereference(); a3 = arg3.Dereference(); if (a1.IsList()) { a4 = ((ListTerm)a1).cdr; } else if (a1.IsVariable()) { a4 = engine.makeVariable(); if (!a1.Unify(new ListTerm(engine.makeVariable(), a4), engine.trail)) { return(engine.fail()); } } else { return(engine.fail()); } a5 = engine.makeVariable(); Term[] h2 = { engine.makeVariable() }; a6 = new StructureTerm(f1, h2); p1 = new Predicates.dollar_cut_1(a5, cont); p2 = new Predicates.CrearTrofeo_4(a4, a2, s3, a3, p1); p3 = new Predicates.Retractall_1(a6, p2); return(new Predicates.dollar_getLevel_1(a5, p3)); }
public override Predicate exec( Prolog engine ) { engine.setB0(); Term a1, a2; Predicate p1; Term[] h2 = {engine.makeVariable()}; a1 = new StructureTerm(f1, h2); Term[] h4 = {engine.makeVariable()}; a2 = new StructureTerm(f3, h4); p1 = new Predicates.Retractall_1(a2, cont); return new Predicates.Retractall_1(a1, p1); }
public override Predicate exec(Prolog engine) { engine.setB0(); Term a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21; Predicate p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16; a1 = arg1.Dereference(); a2 = arg2.Dereference(); a3 = arg3.Dereference(); a4 = arg4.Dereference(); a5 = arg5.Dereference(); a6 = engine.makeVariable(); a7 = engine.makeVariable(); a8 = engine.makeVariable(); a9 = engine.makeVariable(); a10 = engine.makeVariable(); Term[] h2 = { engine.makeVariable() }; a11 = new StructureTerm(f1, h2); a12 = engine.makeVariable(); Term[] h4 = { engine.makeVariable(), engine.makeVariable() }; a13 = new StructureTerm(f3, h4); Term[] h6 = { engine.makeVariable() }; a14 = new StructureTerm(f5, h6); a15 = engine.makeVariable(); a16 = engine.makeVariable(); Term[] h9 = { engine.makeVariable() }; a17 = new StructureTerm(f8, h9); a18 = engine.makeVariable(); a19 = engine.makeVariable(); a20 = new ListTerm(a12, s10); a21 = new ListTerm(a19, s10); p1 = new Predicates.dollar_cut_1(a6, cont); p2 = new Predicates.Verificar_Laberinto_1(a1, p1); p3 = new Predicates.Concatenar_Arreglos_3(a20, a21, a1, p2); p4 = new Predicates.ObtenerArregloTrofeos_1(a19, p3); p5 = new Predicates.CrearTrofeos_3(a12, a8, a18, p4); p6 = new Predicates.Calcular_Cant_Trofeos_3(a16, a4, a18, p5); p7 = new Predicates.Retractall_1(a17, p6); p8 = new Predicates.dollar_minus_3(a15, s7, a16, p7); p9 = new Predicates.Contar_2(a12, a15, p8); p10 = new Predicates.Retractall_1(a14, p9); p11 = new Predicates.Retractall_1(a13, p10); p12 = new Predicates.GenerarCamino_5(a12, a9, a10, a2, a3, p11); p13 = new Predicates.Retractall_1(a11, p12); p14 = new Predicates.CrearCamino_5(a2, a3, a7, a9, a10, p13); p15 = new Predicates.dollar_multi_3(a2, a3, a8, p14); p16 = new Predicates.Calcular_Cant_Muros_2(a2, a7, p15); return(new Predicates.dollar_getLevel_1(a6, p16)); }
public override Predicate exec(Prolog engine) { Term a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16; Predicate p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12; a1 = engine.aregs[1].Dereference(); a2 = engine.aregs[2].Dereference(); a3 = engine.aregs[3].Dereference(); a4 = engine.aregs[4].Dereference(); a5 = engine.aregs[5].Dereference(); a6 = engine.aregs[6].Dereference(); a7 = engine.aregs[7].Dereference(); a8 = engine.aregs[8].Dereference(); a9 = engine.aregs[9].Dereference(); Predicate cont = engine.cont; a10 = engine.makeVariable(); Term[] h2 = { a6 }; a11 = new StructureTerm(f1, h2); Term[] h4 = { a7 }; a12 = new StructureTerm(f3, h4); Term[] h6 = { a8 }; a13 = new StructureTerm(f5, h6); Term[] h7 = { a4 }; a14 = new StructureTerm(f5, h7); Term[] h8 = { a5 }; a15 = new StructureTerm(f1, h8); Term[] h9 = { a5 }; a16 = new StructureTerm(f5, h9); p1 = new Predicates.dollar_cut_1(a10, cont); p2 = new Predicates.CrearMuros_2(a9, a3, p1); p3 = new Predicates.dollar_multi_3(a1, a2, a9, p2); p4 = new Predicates.Assert_1(a16, p3); p5 = new Predicates.Assert_1(a15, p4); p6 = new Predicates.Assert_1(a14, p5); p7 = new Predicates.dollar_dummy__189511930__2_4(a1, a2, a4, a5, p6); p8 = new Predicates.CrearCaminoAux_4(a1, a2, a4, a5, p7); p9 = new Predicates.AgregarAdyacentes_2(a1, a2, p8); p10 = new Predicates.Retractall_1(a13, p9); p11 = new Predicates.Retractall_1(a12, p10); p12 = new Predicates.Retractall_1(a11, p11); return(new Predicates.dollar_getLevel_1(a10, p12)); }
public override Predicate exec(Prolog engine) { engine.setB0(); Term a1, a2, a3, a4, a5; Predicate p1, p2, p3, p4; a1 = arg1.Dereference(); a2 = arg2.Dereference(); a3 = engine.makeVariable(); Term[] h2 = { engine.makeVariable(), engine.makeVariable() }; a4 = new StructureTerm(f1, h2); a5 = engine.makeVariable(); p1 = new Predicates.dollar_cut_1(a3, cont); p2 = new Predicates.AgregarAdyacentes_3(a5, a1, a2, p1); p3 = new Predicates.dollar_multi_3(a1, a2, a5, p2); p4 = new Predicates.Retractall_1(a4, p3); return(new Predicates.dollar_getLevel_1(a3, p4)); }