12 lines
		
	
	
		
			190 B
		
	
	
	
		
			Factor
		
	
	
		
		
			
		
	
	
			12 lines
		
	
	
		
			190 B
		
	
	
	
		
			Factor
		
	
	
| 
								 | 
							
								USING: adsoda.combinators
							 | 
						||
| 
								 | 
							
								sequences
							 | 
						||
| 
								 | 
							
								    tools.test 
							 | 
						||
| 
								 | 
							
								 ;
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								IN: adsoda.combinators.tests
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								[ { "atoto" "b" "ctoto" } ] [ { "a" "b" "c" } 1 [ "toto" append ] map-but ] 
							 | 
						||
| 
								 | 
							
								    unit-test
							 | 
						||
| 
								 | 
							
								
							 |