...then the branch combinator works as intended. (Although the constraint-based stuff was also cool, it would have captured information from the comparison.) ?- joy(`[32 >] [++] [--] ifte`, Si, So). Si = [_6598|_6600], So = [_6598+1|_6600] ; Si = [_6598|_6600], So = [_6598-1|_6600] ; false. ?- sjc(hmm, `[32 >] [++] [--] ifte`). func(hmm, [A|B], [A+1|B]). true ; func(hmm, [A|B], [A-1|B]). true ; false. |
||
|---|---|---|
| .. | ||
| compiler.pl | ||
| defs.txt | ||
| metalogical.pl | ||
| thun.pl | ||