12 lines
		
	
	
		
			317 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			12 lines
		
	
	
		
			317 B
		
	
	
	
		
			Factor
		
	
	
USING: kernel math namespaces tools.test ;
 | 
						|
IN: math.tests
 | 
						|
 | 
						|
[ ] [ 5 [ ] times ] unit-test
 | 
						|
[ ] [ 0 [ ] times ] unit-test
 | 
						|
[ ] [ -1 [ ] times ] unit-test
 | 
						|
 | 
						|
[ ] [ 5 [ drop ] each-integer ] unit-test
 | 
						|
[ [ 0 1 2 3 4 ] ] [ [ 5 [ , ] each-integer ] [ ] make ] unit-test
 | 
						|
[ [ ] ] [ [ -1 [ , ] each-integer ] [ ] make ] unit-test
 | 
						|
 |