From c9b30f99992c98745d52807f5e45a12f6aee2c5f Mon Sep 17 00:00:00 2001 From: Marvin Borner Date: Wed, 21 Feb 2024 20:28:55 +0100 Subject: Additions for Rosetta Code --- std/Combinator.bruijn | 2 ++ 1 file changed, 2 insertions(+) (limited to 'std/Combinator.bruijn') diff --git a/std/Combinator.bruijn b/std/Combinator.bruijn index 71ad078..81db105 100644 --- a/std/Combinator.bruijn +++ b/std/Combinator.bruijn @@ -126,6 +126,8 @@ o [[0 (1 0)]] ⧗ ((a → b) → a) → (a → b) → b # queer bird combinator: reverse function composition q [[[1 (2 0)]]] ⧗ (a → b) → (b → c) → a → c +…→… q + # quixotic bird combinator q' [[[2 (0 1)]]] ⧗ (b → c) → a → (a → b) → c -- cgit v1.2.3