From 8e224ab8125a3ec34e0c70ac9ef12ae389661aaf Mon Sep 17 00:00:00 2001 From: Marvin Borner Date: Sun, 15 Oct 2023 19:38:47 +0200 Subject: Fixed some minor things --- std/AIT/Beavers.bruijn | 2 ++ std/Combinator.bruijn | 3 +-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/std/AIT/Beavers.bruijn b/std/AIT/Beavers.bruijn index f75b6af..2dfa375 100644 --- a/std/AIT/Beavers.bruijn +++ b/std/AIT/Beavers.bruijn @@ -2,6 +2,8 @@ # all currently known binary busy beavers # originally proposed and calculated by John Tromp +# reduction results in OEIS sequence A333479 + invalid [0 0] [0 0] # not possible diff --git a/std/Combinator.bruijn b/std/Combinator.bruijn index 667f0bb..8efc534 100644 --- a/std/Combinator.bruijn +++ b/std/Combinator.bruijn @@ -20,7 +20,7 @@ b'' [[[[[4 (3 2 1 0)]]]]] ⧗ (d → e) → (a → b → c → d) → a → b # becard combinator b''' [[[[3 (2 (1 0))]]]] ⧗ (c → d) → (b → c) → (a → b) → a → d -# cardinal combinator: flip arguments: \f x y = f y z +# cardinal combinator: flip arguments: \f x y = f y x c [[[2 0 1]]] ⧗ (a → b → c) → b → a → c \‣ c @@ -238,6 +238,5 @@ z [[1 [1 1 0]] [1 [1 1 0]]] ⧗ (a → a) → a :test (i) (ι ι) :test (k) (ι (ι (ι ι))) :test (s) (ι (ι (ι (ι ι)))) -:test (b) (s (k s) k) :test (c) (s (s (k (s (k s) k)) s) (k k)) :test (w) (s s (s k)) -- cgit v1.2.3