83 lines
		
	
	
		
			2.0 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			83 lines
		
	
	
		
			2.0 KiB
		
	
	
	
		
			Factor
		
	
	
 | 
						|
USING: kernel quotations help.syntax help.markup ;
 | 
						|
 | 
						|
IN: combinators.cleave
 | 
						|
 | 
						|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
						|
 | 
						|
ARTICLE: "cleave-combinators" "Cleave Combinators"
 | 
						|
 | 
						|
{ $subsection bi  }
 | 
						|
{ $subsection tri }
 | 
						|
 | 
						|
{ $notes
 | 
						|
  "From the Merriam-Webster Dictionary: "
 | 
						|
  $nl
 | 
						|
  { $strong "cleave" }
 | 
						|
  { $list
 | 
						|
    { $emphasis "To divide by or as if by a cutting blow" }
 | 
						|
    { $emphasis "To separate into distinct parts and especially into "
 | 
						|
                "groups having divergent views" } }
 | 
						|
  $nl
 | 
						|
  "The Joy programming language has a " { $emphasis "cleave" } " combinator." }
 | 
						|
 | 
						|
;
 | 
						|
 | 
						|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
						|
 | 
						|
HELP: bi
 | 
						|
 | 
						|
  { $values { "x" object }
 | 
						|
            { "p" quotation }
 | 
						|
            { "q" quotation }
 | 
						|
          
 | 
						|
            { "p(x)" "p applied to x" }
 | 
						|
            { "q(x)" "q applied to x" } } ;
 | 
						|
 | 
						|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
						|
 | 
						|
HELP: tri
 | 
						|
 | 
						|
  { $values { "x" object }
 | 
						|
            { "p" quotation }
 | 
						|
            { "q" quotation }
 | 
						|
            { "r" quotation }
 | 
						|
          
 | 
						|
            { "p(x)" "p applied to x" }
 | 
						|
            { "q(x)" "q applied to x" }
 | 
						|
            { "r(x)" "r applied to x" } } ;
 | 
						|
 | 
						|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
						|
 | 
						|
ARTICLE: "spread-combinators" "Spread Combinators"
 | 
						|
 | 
						|
{ $subsection bi* }
 | 
						|
{ $subsection tri* } ;
 | 
						|
 | 
						|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
						|
 | 
						|
HELP: bi*
 | 
						|
 | 
						|
  { $values { "x" object }
 | 
						|
            { "y" object }
 | 
						|
            { "p" quotation }
 | 
						|
            { "q" quotation }
 | 
						|
          
 | 
						|
            { "p(x)" "p applied to x" }
 | 
						|
            { "q(y)" "q applied to y" } } ;
 | 
						|
 | 
						|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 | 
						|
 | 
						|
HELP: tri*
 | 
						|
 | 
						|
  { $values { "x" object }
 | 
						|
            { "y" object }
 | 
						|
            { "z" object }
 | 
						|
            { "p" quotation }
 | 
						|
            { "q" quotation }
 | 
						|
            { "r" quotation }
 | 
						|
          
 | 
						|
            { "p(x)" "p applied to x" }
 | 
						|
            { "q(y)" "q applied to y" }
 | 
						|
            { "r(z)" "r applied to z" } } ;
 |