src/main/java/au/id/zancanaro/Generator.java


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
34
35

package au.id.zancanaro;

import java.util.Random;
import java.util.function.Function;

public interface Generator<T> {
    RoseTree<T> generate(Random random, int size);

    static <T> Generator<T> pure(T value) {
        return (random, size) -> RoseTree.pure(value);
    }

    @SafeVarargs
    static <T> Generator<T[]> tuple(Generator<T>... generators) {
        return (random, size) -> {
            @SuppressWarnings("unchecked")
            RoseTree<T>[] result = (RoseTree<T>[]) new RoseTree[generators.length];
            int index = 0;
            for (Generator<T> generator : generators) {
                result[index++] = generator.generate(random, size);
            }
            return RoseTree.zip(Function.identity(), result);
        };
    }

    default <R> Generator<R> fmap(Function<T, R> f) {
        return (random, size) -> this.generate(random, size).fmap(f);
    }

    default <R> Generator<R> flatMap(Function<T, Generator<R>> action) {
        return (random, size) -> {
            return RoseTree.join(this.generate(random, size).fmap(action).fmap(g -> g.generate(random, size)));
        };
    }
}