1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#![feature(generic_associated_types)]
#![allow(incomplete_features)]

extern crate rust_fp_categories;

pub mod list;
pub mod set;
pub mod stack;
pub mod tree;

#[cfg(test)]
mod tests {
    use list::List;
    use rust_fp_categories::bind::*;
    use rust_fp_categories::empty::*;
    use rust_fp_categories::functor::*;
    use stack::Stack;

    #[test]
    fn it_works() {
        let list1: List<i32> = List::empty().cons(30).cons(20).cons(10);
        println!("{:?}", list1);
        let list2 = list1.bind(|x| List::empty().cons(x * 2).fmap(|x| x - 1));
        println!("{:?}", list2);
    }
}