fix word name
							parent
							
								
									669104c2e6
								
							
						
					
					
						commit
						a6d0c33a94
					
				| 
						 | 
					@ -77,7 +77,7 @@ TUPLE: miller-rabin-bounds ;
 | 
				
			||||||
    >odd (find-relative-prime) ;
 | 
					    >odd (find-relative-prime) ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: find-relative-prime ( n -- p )
 | 
					: find-relative-prime ( n -- p )
 | 
				
			||||||
    dup random (find-relative-prime*) ;
 | 
					    dup random find-relative-prime* ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: unique-primes ( numbits n -- seq )
 | 
					: unique-primes ( numbits n -- seq )
 | 
				
			||||||
    #! generate two primes
 | 
					    #! generate two primes
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue