1 files changed, 32 insertions, 0 deletions
diff --git a/3808/CH6/EX6.15/Ex6_15.sce b/3808/CH6/EX6.15/Ex6_15.sce
new file mode 100644
index 000000000..d9a115522
--- /dev/null
+++ b/3808/CH6/EX6.15/Ex6_15.sce
@@ -0,0 +1,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)