-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathMonadicList.java
40 lines (33 loc) · 927 Bytes
/
MonadicList.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
import java.util.Arrays;
import java.util.List;
import java.util.ArrayList;
//List (similar to Haskell's []) Monad implementation as an adapter pattern:
class MonadicList implements Monad<MonadicList> {
//Haskell return method:
static MonadicList returnMonad(Object element) {
List<Object> list = Arrays.asList(element);
return new MonadicList(list);
}
//Haskell bind operator (>>=)
@Override
public MonadicList bind(ToMonadFunction<MonadicList> f) {
MonadicList m = new MonadicList();
for (Object value : list) {
MonadicList result = f.execute(value);
m.list.addAll(result.list);
}
return m;
}
//Plain Java stuff to make it run:
public MonadicList(List<Object> fromList) {
list = fromList;
}
public MonadicList() {
list = new ArrayList<>();
}
@Override
public String toString() {
return list.toString();
}
private List<Object> list;
}