mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 04:13:46 +00:00
a0f4980d9d
extras/windows_installer_generator/sample/images/Exclam.ico:
extras/windows_installer_generator/sample/images/Info.ico:
extras/windows_installer_generator/sample/images/banner.bmp:
extras/windows_installer_generator/sample/images/bg.bmp:
samples/solutions/all_solutions.m:
samples/solutions/some_solutions.m:
These files had their execute bit set unnecessarily.
25 lines
548 B
Mathematica
25 lines
548 B
Mathematica
% An example program to illustrate the use of all-solutions predicates
|
|
% in Mercury. This program just prints out all solutions to the
|
|
% predicate hello/1.
|
|
|
|
% This source file is hereby placed in the public domain. -fjh (the author).
|
|
|
|
:- module all_solutions.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module solutions.
|
|
|
|
main(!IO) :-
|
|
solutions(hello, List),
|
|
io.write_strings(List, !IO).
|
|
|
|
:- pred hello(string::out) is multi.
|
|
|
|
hello("Hello, world\n").
|
|
hello("Hello again, world\n").
|
|
|