which included commits to RCS files with non-trunk default branches. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
		
			
				
	
	
		
			22 lines
		
	
	
		
			589 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			22 lines
		
	
	
		
			589 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| /tmp/clpq
 | |
| 
 | |
| yes
 | |
| | ?- [library('clpqr/examples/squares')].
 | |
| {consulting /freyung/christian/sicstus2.1.9.clp/library/clpqr/examples/squares.pl...}
 | |
| {Warning: [X1,X2,X3,X4,X5,X6,X7,X8,X9] - singleton variables in rectangle/2 in lines 1-40}
 | |
| {/freyung/christian/sicstus2.1.9.clp/library/clpqr/examples/squares.pl consulted, 30 msec 2928 bytes}
 | |
| 
 | |
| yes
 | |
| | ?- time(rectangle(A,Rs)).
 | |
| %%% Timing 00:01:10.950    70.950
 | |
| 
 | |
| A = 33/32,
 | |
| Rs = [15/32,9/16,1/4,7/32,1/8,7/16,1/32,5/16,9/32] ? ;
 | |
| %%% Timing 00:00:08.730     8.730
 | |
| 
 | |
| A = 69/61,
 | |
| Rs = [33/61,36/61,28/61,5/61,2/61,9/61,25/61,7/61,16/61] ? 
 | |
| 
 | |
| yes
 | |
| | ?- ^D
 |