Subversion Repositories programming

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 ira 1
/* pair.pl -- pairs of digits with replacement */
2
 
3
pair(L) :- L=[X,Y],
4
           digit(X),
5
           digit(Y).
6
 
7
digit(0).
8
digit(1).
9
digit(2).
10