27 lines
953 B
Perl
27 lines
953 B
Perl
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
|
|
% clp(q,r) version 1.3.2 %
|
||
|
|
% %
|
||
|
|
% (c) Copyright 1992,1993,1994,1995 %
|
||
|
|
% Austrian Research Institute for Artificial Intelligence (OFAI) %
|
||
|
|
% Schottengasse 3 %
|
||
|
|
% A-1010 Vienna, Austria %
|
||
|
|
% %
|
||
|
|
% File: monash.pl %
|
||
|
|
% Author: Christian Holzbaur christian@ai.univie.ac.at %
|
||
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||
|
|
|
||
|
|
|
||
|
|
%
|
||
|
|
% Monash compatibility
|
||
|
|
%
|
||
|
|
|
||
|
|
:- op( 700, xfx, <=).
|
||
|
|
:- op( 150, fx, #).
|
||
|
|
|
||
|
|
:- use_module( printf).
|
||
|
|
:- use_module( expand).
|
||
|
|
|
||
|
|
:- prolog_flag( unknown, _, fail).
|
||
|
|
|
||
|
|
dump. % cheating
|
||
|
|
dump( L) :- ordering( L).
|