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