summaryrefslogtreecommitdiff
path: root/3808/CH6/EX6.15/Ex6_15.sce
blob: d9a11552205f90245f8aeb65430ea13705537e16 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
//Chapter 06: Counting

clc;
clear;

function result=combination(n,r) //function definition
i=n
num=1
denominator=1
l=(n-r)+1
u=n
for i=l:u //to compute the value of the numerator
num=num*i
end
for j=1:r //to compute the value of the denominator
denominator=denominator*j
end
result=num/denominator 
return result
endfunction

fac=1
nc=52//no of cards in a standard deck
num1=input("Enter the number of cards to distribute:")
num2=input("Enter the number of players:")
for i=1:num2
    fac=fac*combination(nc,num1)
    nc=nc-num1
end

mprintf("The total number of ways to deal %d players %d cards each is",num2,num1)
disp(fac)