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
27
28
29
30
31
32
33

pub struct ListSome<F: ListFn> {
    pub first: F::Item,
    pub next: F,
}

/// A list.
pub enum ListState<F: ListFn> {
    Some(ListSome<F>),
    /// The end of the list.
    End(F::End),
}

impl<F: ListFn> ListState<F> {
    pub fn some(first: F::Item, next: F) -> Self {
        ListState::Some(ListSome { first, next })
    }
    pub fn unwrap(self) -> ListSome<F> {
        match self {
            ListState::Some(v) => v,
            ListState::End(_) => panic!(),
        }
    }
}

/// A function which returns a list.
pub trait ListFn: Sized {
    /// A list item type.
    type Item;
    /// A value which is returned when the list has no more items.
    type End;
    /// The main function which returns a list.
    fn next(self) -> ListState<Self>;
}