blob: e6a36ada688d341bdcf9629b3827d6a2879435d0 (
about) (
plain)
1
2
3
4
5
6
7
|
(module (algebraic-structures monad list base) (pure map map2 >>=)
(import (except scheme map)
(algebraic-structures applicative list)
(only (srfi 1) append-map))
(define (>>= lst f)
(append-map f lst)))
|