Help for this page

Select Code to Download

Select or download this

sub ncr {
    my( $n, $r ) = @_;
...
                                                                      
+                                                                     
+                
print "ncr( 6, 3 ) = ", ncr( 6, 3), "\n";
# ncr( 6, 3 ) = 20