yohei #7428(2008/08/27 12:30 GMT) [ Prolog ] Rating0/0=0.00
SWI-Prologで
1
p(N):-L is-N,between(L,N,X),K is N-abs(X),writef('%r\n',[*,K]),X=N.
Rating0/0=0.00-0+
[ reply ]
yohei
#7428()
[
Prolog
]
Rating0/0=0.00
SWI-Prologで
p(N):-L is-N,between(L,N,X),K is N-abs(X),writef('%r\n',[*,K]),X=N.Rating0/0=0.00-0+
[ reply ]