From 9745ed389dc281e785c6d1c56db13369319b7381 Mon Sep 17 00:00:00 2001
From: Jared Krinke <jared.krinke@gmail.com>
Date: Mon, 20 Jan 2025 10:28:02 -0800
Subject: [PATCH] Simplifications

---
 src/p53.k | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/p53.k b/src/p53.k
index f630b94..b2a66ab 100644
--- a/src/p53.k
+++ b/src/p53.k
@@ -1,3 +1,3 @@
-fact:{*/1+!x}
+fact:*/1+!:
 choose:{(fact x)%(fact y)*fact x-y}
-+/{$[x>1000000;1;0]}',/{x choose'x-!x}'1+!100
++/1000000<,/{x choose'x-!x}'1+!100