Sign in
gerrit
/
prolog-cafe
/
2087b0595ecf7a8bbaa6b7cdb5dca2989cedf231
/
.
/
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
).