/**  Print Combinatorial function in standard notation **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: March, 1987 */
/*K: Format, Combinations */

/* Ho Hum. This indirection is necessary because Comb is tiered and I
need a delayed assignment. If the assignment is made direct a memory
fault occures. This would have to be the ALL TIME WORST kludge I have
ever written*/

_Comb[Pr]: %combpr

%combpr_:Tier
%combpr[$x,$y]:: \
	Fmt[{{0,1},{1,1},{2,1},{0,0},{1,0},{2,0}},\
    "/",Fmt[,Repl[" ",Max[Floor[(Prsize[$y][1]-Prsize[$x][1])/2],0]],$x],"\",\
    "\",Fmt[,Repl[" ",Max[Floor[(Prsize[$x][1]-Prsize[$y][1])/2],0]],$y],"/" ]

/* The next two lines are black magic necessary to make the printing
property work!! (erk)*/
%combpr[a,b]
_Comb

/*E:
SMP 1.5.0   (May 14 1986)
Mon Mar 23 14:47:47 1987


#I[1]::  <XCombPR;

#I[2]::  Comb[a,b]

#O[2]:*  /a\
	 \b/

#I[3]::  Comb[a+b+c,d]

#O[3]:*  /a + b + c\
	 \    d    /

#I[4]::  Comb[a+b,a-b]

#O[4]:*  /a + b\
	 \a - b/

#I[5]::  Comb[a+b,a+b-c]

#O[5]:*  /  a + b  \
	 \a + b - c/

#I[6]::  <end>
*/
