Function to find nCr
function nCr ( $ n , $ r ) { $ Nr = $ n ; $ Dr = 1 ; $ ans = 1 ; for ( $ i = 1 ; $ i <= $ r ; $ i ++ ) { $ ans = ( $ ans * $ Nr ) / ( $ Dr ) ; $ Nr -- ; $ Dr ++ ; } return $ ans ; }