-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathListMonad.java
61 lines (51 loc) · 1.53 KB
/
ListMonad.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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
import java.util.ArrayList;
import java.util.List;
import java.util.function.Function;
public class MonadicList<T> {
private List<T> list;
public MonadicList() {
this.list = new ArrayList<>();
}
public MonadicList(T value) {
this();
this.list.add(value);
}
public MonadicList(List<T> list) {
this.list = new ArrayList<>(list);
}
public void pushBack(T element) {
list.add(element);
}
public <S> MonadicList<S> mBind(Function<T, MonadicList<S>> f) {
MonadicList<S> result = new MonadicList<>();
for (T item : list) {
MonadicList<S> temp = f.apply(item);
for (S val : temp.getList()) {
result.pushBack(val);
}
}
return result;
}
public void print() {
for (T element : list) {
System.out.print(element + " ");
}
System.out.println();
}
public List<T> getList() {
return list;
}
public static void main(String[] args) {
Function<Integer, MonadicList<Integer>> squareAndCube = n -> {
MonadicList<Integer> result = new MonadicList<>();
result.pushBack(n);
result.pushBack(n * n);
result.pushBack(n * n * n);
return result;
};
MonadicList<Integer> myList = new MonadicList<>(2);
MonadicList<Integer> resList = myList.mBind(squareAndCube).mBind(squareAndCube);
resList.print();
// Add code to use resList as needed
}
}