From 92eeab2815eae6cd9ef22530d2e50fe0a620ec46 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sun, 9 Jun 2024 05:13:44 +0900
Subject: Initial commit

---
 algebraic-structs.monad.list.base.scm | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 algebraic-structs.monad.list.base.scm

(limited to 'algebraic-structs.monad.list.base.scm')

diff --git a/algebraic-structs.monad.list.base.scm b/algebraic-structs.monad.list.base.scm
new file mode 100644
index 0000000..a7305a0
--- /dev/null
+++ b/algebraic-structs.monad.list.base.scm
@@ -0,0 +1,7 @@
+(module (algebraic-structs monad list base) (pure map map2 >>=)
+  (import (except scheme map)
+          (algebraic-structs applicative list)
+          (only (srfi 1) append-map))
+
+  (define (>>= lst f)
+    (append-map f lst)))
-- 
cgit v1.2.3