8 lines
87 B
Racket
8 lines
87 B
Racket
#lang datalog
|
|
|
|
sym(a).
|
|
sym(b).
|
|
sym(c).
|
|
perm(X,Y) :- sym(X), sym(Y), X != Y.
|
|
|
|
perm(X,Y)? |