Newsgroups: comp.lang.prolog
Path: cantaloupe.srv.cs.cmu.edu!rochester!cornellcs!newsstand.cit.cornell.edu!portc01.blue.aol.com!portc02.blue.aol.com!howland.erols.net!news-peer.gsl.net!news.gsl.net!mr.net!newshub.tc.umn.edu!fu-berlin.de!news-ber1.dfn.de!news-ham1.dfn.de!news-han1.dfn.de!news.uni-bielefeld.de!news
From: Clemens Meier <clmeier@lili6.lili.uni-bielefeld.de>
Subject: Re: Helpppp!! sory to be so impatient but i need serious help
Sender: news@hermes.hrz.uni-bielefeld.de (News Administrator)
Message-ID: <q9ohebmmu8.fsf@lili6.lili.uni-bielefeld.de>
Date: Mon, 27 Jan 1997 10:30:55 GMT
References: <5bbpk4$mfl@sifon.cc.mcgill.ca> <32DC1FA1.4D36@eexi.gr>
	<5bhq1k$rno$1@goanna.cs.rmit.EDU.AU>
	<wuj680svpz8.fsf@wistaria.i-have-a-misconfigured-system-so-shoot-me>
	<5bvsqr$927@mulga.cs.mu.OZ.AU> <5c3vv6$h6a$1@goanna.cs.rmit.EDU.AU>
Nntp-Posting-Host: lili6.lili.uni-bielefeld.de
Organization: Universitaet Bielefeld, Linguistik und Literaturwissenschaft, Germany
X-Newsreader: Gnus v5.3/Emacs 19.34
Lines: 41


Hello!

ok@goanna.cs.rmit.EDU.AU (Richard A. O'Keefe) writes:

> 	assignment_activities(dishonest) :-
> 	    cheat,
> 	    hand_in,
> 	    fail.

Well, you _can_ get lucky, can't you? In order to simulate
that, we'll have to borrow from Intercal:

	:- op(1111, xfx, percents).
	
	P percents Goal :-
		random(R),
		percents(R, P, Goal).

	percents(R, P, Goal) :-
		(   R < P ->
		    call(Goal)
		;   true
		).

And thus

	assignment_activities(dishonest) :-
		cheat,
		hand_in,
		99 percents fail.

CU

Clemens	

-----------------------------------------------------------------------------
When there is useful information which [your]   clmeier@lili.uni-bielefeld.de
program can send to the terminal but not get                    Clemens Meier
at itself, your customers start to say very    GO C++ 3$ UL L+>+++ E++>+++ P-
unkindly things about you.       R.A.O'Keefe   N++ R+>+++ G'''' b++ TWERPS+++
