diff --git a/algorithms/math/binomial-coefficient.rkt b/algorithms/math/binomial-coefficient.rkt
new file mode 100644
index 0000000..e28b2a2
--- /dev/null
+++ b/algorithms/math/binomial-coefficient.rkt
@@ -0,0 +1,9 @@
+#lang racket
+
+(provide binomial)
+
+(define (binomial n k)
+  (let ([fac (lambda (n)
+               (let loop ([acc 1] [n n])
+                 (if (zero? n) acc (loop (* acc n) (sub1 n)))))])
+    (/ (fac n) (fac k) (fac (- n k)))))