From 9745ed389dc281e785c6d1c56db13369319b7381 Mon Sep 17 00:00:00 2001 From: Jared Krinke 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