9 lines
		
	
	
		
			326 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			9 lines
		
	
	
		
			326 B
		
	
	
	
		
			Factor
		
	
	
IN: present.tests
 | 
						|
USING: tools.test vocabs.hierarchy present math vocabs sequences kernel ;
 | 
						|
 | 
						|
[ "3" ] [ 3 present ] unit-test
 | 
						|
[ "Hi" ] [ "Hi" present ] unit-test
 | 
						|
[ "+" ] [ \ + present ] unit-test
 | 
						|
[ "kernel" ] [ "kernel" lookup-vocab present ] unit-test
 | 
						|
[ ] [ all-vocabs-recursive filter-vocabs [ present ] map drop ] unit-test
 |