| Author | 
		Message | 
	
		 
		Martin
 
  
 
    
		 | 
		
		 | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
		 
		Sponsor Sponsor 
		 
  
		 | 
		
 | 
	
	 
		  | 
	
				 
		Catalyst
 
  
 
    
		 | 
		
		
			
				  Posted: Thu Oct 02, 2003 11:40 pm    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				| #1 or #2? | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		Catalyst
 
  
 
    
		 | 
		
		
			
				  Posted: Fri Oct 03, 2003 12:07 am    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				heres #2
 
 
	  | code: | 	 		  proc Bubble (var a : array 1 .. * of real, n : int)
 
    var hold : real
 
    for i : 1 .. n
 
        for k : 1 .. n - 1
 
            if a (k) > a (k + 1) then
 
                hold := a (k)
 
                a (k) := a (k + 1)
 
                a (k + 1) := hold
 
            end if
 
        end for
 
    end for
 
end Bubble
 
function Distance (x1, y1, x2, y2 : real) : real
 
    result ((x1 - x2) ** 2 + (y1 - y2) ** 2) ** 0.5
 
end Distance
 
 
var numCases : int
 
var numWithSat : int
 
var numStations : int
 
 
get numCases
 
get numWithSat
 
get numStations
 
 
var stationListx : array 1 .. numStations of int
 
var stationListy : array 1 .. numStations of int
 
var stationListd : array 1 .. numStations, 1 .. numStations of real
 
var stationListassc : array 1 .. numStations, 1 .. numStations of int
 
 
var satList : array 1 .. numWithSat + 1 of real
 
for i : 1 .. numWithSat + 1
 
    satList (i) := 100005
 
end for
 
 
for i : 1 .. numStations
 
    get stationListx (i)
 
    get stationListy (i)
 
end for
 
 
 
for i : 1 .. numStations
 
    for k : 1 .. numStations
 
        stationListd (i, k) := Distance (stationListx (i), stationListy (i), stationListx (k), stationListy (k))
 
    end for
 
end for
 
 
for i : 1 .. numStations
 
    for k : 1 .. numStations
 
        if (i not= k) then
 
            Bubble (satList, numWithSat + 1)
 
            for j : 1 .. numWithSat + 1
 
                if (stationListd (i, k) <= satList (numWithSat + 1)) then
 
                    satList (numWithSat + 1) := stationListd (i, k)
 
                end if
 
            end for
 
        end if
 
    end for
 
end for
 
 
Bubble (satList, numWithSat + 1)
 
 
for i : 1 .. numWithSat + 1
 
    put satList (i):2:2
 
end for  | 	 
  | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		Amailer
 
  
 
    
		 | 
		
		
			
				  Posted: Fri Oct 03, 2003 12:44 am    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				if that works...
 
you'll never have a problem with bits for the rest of your life! | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		Martin
 
  
 
    
		 | 
		
		
			
				  Posted: Fri Oct 03, 2003 1:31 am    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				No, number 1. Number 2's easy enough it seems...
 
 
By the way Catalyst, where'd you get your avatar from...it looks awesome. | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		Catalyst
 
  
 
    
		 | 
		
		 | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		Martin
 
  
 
    
		 | 
		
		
			
				  Posted: Fri Oct 03, 2003 7:58 am    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				That is awesome   | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		Tony
 
  
 
    
		 | 
		
		
			
				  Posted: Fri Oct 03, 2003 4:35 pm    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				can someone teach me the basics of depth-first-search?
 
 
I wanna try to solve that problem, seems interesting enough. | 
			 
			
				 
Tony's programming blog. DWITE - a programming contest. | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
		 
		Sponsor Sponsor 
		 
  
		 | 
		
 | 
	
	 
		  | 
	
				 
		Catalyst
 
  
 
    
		 | 
		
		
			
				  Posted: Fri Oct 03, 2003 10:41 pm    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				| might be a little difficult to solve since they provide nothing to test it against | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		Tony
 
  
 
    
		 | 
		
		
			
				  Posted: Fri Oct 03, 2003 11:03 pm    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				just make your own data file. Print out a copy of visual data generated by the data file.
 
 
Now keep it simple, use a ruler to measure the shortest path. That * DPI = your answer in piixels to compare against. +- a few would be a good output. | 
			 
			
				 
Tony's programming blog. DWITE - a programming contest. | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		bugzpodder
 
  
 
    
		 | 
		
		
			
				  Posted: Sat Oct 04, 2003 7:16 pm    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				The first problem is, well, shall I say solved.  the website has already outlined the solution ... all you have to do is follow its instructions...
 
The second problem is as stated: quiet easy. but i would like to see someone emailing Gordon Cormack though... | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		bugzpodder
 
  
 
    
		 | 
		
		 | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		bugzpodder
 
  
 
    
		 | 
		
		
			
				  Posted: Sat Oct 04, 2003 7:32 pm    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				| 2000 bits to anyone who successfully solves 10270 (the 3rd link in the above thread) before Oct 30, 2003 | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		rizzix
 
 
 
    
		 | 
		
		 | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		bugzpodder
 
  
 
    
		 | 
		
		
			
				  Posted: Sat Oct 04, 2003 9:21 pm    Post subject: (No subject)  | 
	
				
				 | 
			 
			 
				
  | 
			 
			
				| do you participate in regular topcoder SRMs rizzix?  do you have a username? | 
			 
			
				 | 
			 
		  | 
	
	 
		 | 
		
		 | 
	
	
 
		  | 
	
				 
		 |