Fix for changed effect of uncons
							parent
							
								
									1bd222228c
								
							
						
					
					
						commit
						10e5c074d9
					
				| 
						 | 
				
			
			@ -39,7 +39,7 @@ IN: project-euler.134
 | 
			
		|||
PRIVATE>
 | 
			
		||||
 | 
			
		||||
: euler134 ( -- answer )
 | 
			
		||||
    0 5 lprimes-from uncons [ 1000000 > ] luntil
 | 
			
		||||
    0 5 lprimes-from uncons swap [ 1000000 > ] luntil
 | 
			
		||||
    [ [ s + ] keep ] leach drop ;
 | 
			
		||||
 | 
			
		||||
! [ euler134 ] 10 ave-time
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue