rust-monadic

• A monad bloc macro based on Bind and Monad as supertraits of IntoIterator (iterables)
• A monad bloc macro based directly on IntoIterator and Iterator methods
• A Writer monad bloc macro
• A State monad bloc macro

The macro mdo!

A macro to write Haskell style monadic code

for IntoIterator (iterables) as monads

Each step monad expression is flat_mapped with the rest into a lazy FlatMap expression which implements IntoIterator with lambdas as move closures capturing the environment and argument. The lambda body will be recursively parsed as monadic, and its type should also be an instance of IntoIterator.

The traits Bind and Monad are defined in module monad as supertraits of IntoIterator.

You can use:

• to return an expression value: pure return_expresion
• to use the monad result: v <- monadic_expression
• to ignore the monad result: _ <- monadic_expression
• to combine monad results: let z = expression
• to filter results: guard boolean_expression

Note: let, within the macro, introduces an expression, not a block.

Example1: monadic comprehensions à la Haskell (file: examples/comprehension.rs)

use monadic::{mdo, monad::{Bind, Monad}};
use num::Integer;

fn main() {
    let xs = mdo!{ 
    
        x <- 1..7;
        y <- 1..x;
        guard (&y).is_odd() ;
        let z = match x.is_even() { 
                    true => &y + 1,
                    _ => &y - 1,
                };
        pure (x, z)
        
    }.collect::<Vec<(i32,i32)>>();
    
    println!("result: {:?}", xs); 
}

Execution:

$ cargo run --example comprehension

result: [(2, 2), (3, 0), (4, 2), (4, 4), (5, 0), (5, 2), (6, 2), (6, 4), (6, 6)]

Example2: variation with references to container and lambda argument position (file: examples/comprehension2.rs)

use monadic::{mdo, monad::{Bind, Monad}};
use num::Integer;

fn main() {
    let xs = mdo!{ 
    
        &x <- &vec![1,2,3,4];   // with item refs (&x) in the lambda argument position
        guard x.is_odd() ;
        let z = x + 1 ;
        pure (x, z)
        
    }.collect::<Vec<(i32,i32)>>();
    
    println!("result: {:?}", xs); 
}

Execution:

$ cargo run --example comprehension2

result: [(1, 2), (3, 4)]

The original macro monadic!

Same functionality as mdo using IntoIterator and Iterator methods directly, avoiding intermixed Bind and Monad traits definitions.

Here is example1 using it:

use monadic::monadic;
use num::Integer;

fn main() {
    let xs = monadic!{ 
    
        x <- 1..7;
        y <- 1..x;
        guard (&y).is_odd() ;
        let z = match x.is_even() { 
                    true => &y + 1,
                    _ => &y - 1,
                };
        pure (x, z)
        
    }.collect::<Vec<(i32,i32)>>();
    
    println!("result: {:?}", xs); 
}

The Writer monad macro wrdo!

A Writer monad adaptation macro example with String as logger, from examples/writer1.rs

//! you may set the logger type by beginning with a `tell...` function within the macro `wrdo` 
//! or by declaring it as the result type where String is the default if omitted
//! as in `let res : Writer<(i32,i32),String> = wrdo!{...}`

use monadic::{wrdo, writer::{Writer, tell_str}};
use monadic::util::concat_string_str;
use partial_application::partial;

fn main() {
    
    let res = wrdo!{ 
        _ <- tell_str( "log1") ;  // either `tell(String::from("log1"))`
        x <-  Writer::pure(1) ;
        let z = x+1;
        pure (x, z)
    }.censor( partial!( concat_string_str => _, "log2")
            ).listen() ;
    
    println!("result: {:?}", res.unwrap()); 
}

Exec:

$ cargo run --example writer1

result: ((1, 2), "log1log2")

Example 2 with Vec as logger from examples/writer2.rs

use monadic::{wrdo, writer::{Writer, tell}};
use monadic::util::concat_vec_array;
use partial_application::partial;


fn main() {

    let res = wrdo!{ 
        _ <- tell( vec![1,2,3]) ;
        x <-  Writer::pure(1) ;
        let z = x+1;
        pure (x, z)
    }.censor( partial!( concat_vec_array => _, &[4,5,6])
            ).listen() ;
    
    println!("result: {:?}", res.unwrap()); 
}

$ cargo run --example writer2

result: ((1, 2), [1, 2, 3, 4, 5, 6])

The State monad macro stdo!

A State monad adaptation macro example from examples/state1.rs

use monadic::{stdo, state::{State, get, put}};

fn main() {
  let res = stdo!{
  
            x <- get();
            _ <- put( 1);
            y <- get(); 
            pure (x, y) 
            
            }.initial( 0);

  println!("result: {:?}", res);  
}

$ cargo run --example state1

result: ((0, 1), 1)