5 lines
124 B
Racket
5 lines
124 B
Racket
#lang datalog
|
|
friend(arnold,arnold).
|
|
student(arnold,arnold,arnold) :- friend(arnold,arnold).
|
|
student(arnold,arnold,arnold)?
|