Sign in
gerrit
/
prolog-cafe
/
cdbce7081751fdfe9370e9f7c29aa426273c4b50
/
.
/
examples
/
benchmarks
/
portland
/
cd.pl
blob: 880eda35e1c9bc34342ef8cdf559968bec48ebbd [
file
] [
log
] [
blame
]
/*
VAX C
-
Prolog
Benchmark
Package
*
/
/
*
Copyright
1985
by
Tektronix
,
Inc
.,
and
Portland
State
University
*
/
/
*
cd
(
Up
,
Down
)
counts down from
Up
to
Down
*/
cd
(
X
,
X
).
cd
(
Up
,
Down
)
:-
X is
Up
-
1
,
cd
(
X
,
Down
).