Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
sd(X,R) :- X>=0, X=<50, R is ((50-X)/50). md(X,R) :- X>=0, X=<50, R is (X/50); X>=50, X=<100, R is ((100-X)/50). hd(X,R) :- X>=50, X=<100, R is ((X-50)/50). results(X,R):-(sd(X,R); md(X,R); hd(X,R)). /** <examples> ?- X = 1, findall(R, results(X,R), Rs). */