mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-25 22:34:26 +00:00
51497341cc
Estimated hours taken: 0.1 Add the DPPD (dozens of problems in partial deduction) suite to the tests directory.
74 lines
2.0 KiB
Mathematica
74 lines
2.0 KiB
Mathematica
/*
|
|
The "dvisor" Benchmark
|
|
|
|
Part of the DPPD Library.
|
|
|
|
General Description
|
|
|
|
This is a benchmark developed by Thomas Horvath. It can be fully
|
|
unfolded and contains no built-in's nor negations.
|
|
|
|
The benchmark program
|
|
*/
|
|
|
|
|
|
:- module advisor.
|
|
|
|
:- interface.
|
|
|
|
:- pred advisor is semidet.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module advisor_impl, run.
|
|
|
|
advisor :-
|
|
what_to_do_today_may( sunny, Program1 ),
|
|
use(Program1),
|
|
what_to_do_today_may( Weather1, enjoy_yourself_at_home ),
|
|
use(Weather1),
|
|
what_to_do_today_may( foggy, Program2 ),
|
|
use(Program2),
|
|
what_to_do_today_may( Weather2, wash_your_car ),
|
|
use(Weather2).
|
|
% type error !
|
|
%what_to_do_today_may( nice, wash_your_car ).
|
|
|
|
|
|
/*
|
|
The partial deduction query
|
|
|
|
:- what_to_do_today( first_of_may, _weather, _program ).
|
|
|
|
The renamed run-time queries
|
|
|
|
:- what_to_do_today__1( sunny, _program ).
|
|
:- what_to_do_today__1( _wheather, enjoy_yourself_at_home ).
|
|
:- what_to_do_today__1( foggy, _program ).
|
|
:- what_to_do_today__1( _wheather, wash_your_car ).
|
|
:- what_to_do_today__1( nice, wash_your_car )
|
|
|
|
Example solution
|
|
|
|
what_to_do_today__1(sunny,go_out_to_the_nature).
|
|
what_to_do_today__1(sunny,visit_the_golf_club).
|
|
what_to_do_today__1(sunny,wash_your_car).
|
|
what_to_do_today__1(sunny,it_is_fun_to_learn_Japanese).
|
|
what_to_do_today__1(rainy,go_out_to_the_town).
|
|
what_to_do_today__1(rainy,visit_the_bridge_club).
|
|
what_to_do_today__1(rainy,enjoy_yourself_at_home).
|
|
what_to_do_today__1(rainy,it_is_fun_to_learn_Japanese).
|
|
what_to_do_today__1(foggy,go_out_to_the_town).
|
|
what_to_do_today__1(foggy,visit_the_bridge_club).
|
|
what_to_do_today__1(foggy,enjoy_yourself_at_home).
|
|
what_to_do_today__1(foggy,it_is_fun_to_learn_Japanese).
|
|
what_to_do_today__1(windy,go_out_to_the_town).
|
|
what_to_do_today__1(windy,visit_the_bridge_club).
|
|
what_to_do_today__1(windy,enjoy_yourself_at_home).
|
|
what_to_do_today__1(windy,it_is_fun_to_learn_Japanese).
|
|
_________________________________________________________________
|
|
|
|
|
|
Michael Leuschel / K.U. Leuven / michael@cs.kuleuven.ac.be
|
|
*/
|