Files
kraken/stdlib/poset.krak
Nathan Braswell e898e7b285 Pass system works
2018-06-14 00:08:55 -04:00

88 lines
2.5 KiB
Plaintext

import vec:*
import queue:*
import map:*
import set:*
import util:*
fun poset<T>(): poset<T> {
var to_ret.construct(): poset<T>
return to_ret
}
obj poset<T> (Object) {
var adj_matrix: map<T, set<T>>
fun construct(): *poset<T> {
adj_matrix.construct()
return this
}
fun copy_construct(old: *poset<T>) {
adj_matrix.copy_construct(&old->adj_matrix)
}
fun operator=(other: ref poset<T>) {
destruct()
copy_construct(&other)
}
fun destruct() {
adj_matrix.destruct()
}
fun size(): int {
return adj_matrix.size()
}
fun add_relationship(first: T, second: T) {
if (!adj_matrix.contains_key(first))
add_vertex(first)
if (!adj_matrix.contains_key(second))
add_vertex(second)
adj_matrix[first].add(second)
}
fun add_vertex(vertex: T) {
if (adj_matrix.contains_key(vertex))
return;
adj_matrix.set(vertex, set<T>())
}
fun get_depends_on(vertex: T): set<T> {
var depends_on = set<T>()
adj_matrix.for_each(fun(key: T, value: set<T>) {
if (value.contains(vertex))
depends_on.add(key)
})
return depends_on
}
fun pop(): T {
for (var i = 0; i < adj_matrix.keys.size; i++;) {
if (adj_matrix.values[i].size() == 0) {
var to_ret = adj_matrix.keys[i]
for (var j = 0; j < adj_matrix.keys.size; j++;) {
// remove is ok if it doesn't exist
/*if (adj_matrix.values[i].contains(to_ret)) {*/
adj_matrix.values[j].remove(to_ret)
/*}*/
}
adj_matrix.remove(to_ret)
return to_ret
}
}
error("Nothing to pop")
}
fun get_sorted(): vec<T> {
var sorted = vec<T>()
var to_do = queue<T>()
// because we're going to destructivly update
var temp_adj_matrix = adj_matrix
temp_adj_matrix.for_each(fun(key: T, value: set<T>)
if (temp_adj_matrix[key].size() == 0) to_do.push(key);)
while (!to_do.empty()) {
var current = to_do.pop()
sorted.add(current)
get_depends_on(current).for_each(fun(vert: T) {
temp_adj_matrix[vert].remove(current)
if (temp_adj_matrix[vert].size() == 0)
to_do.push(vert)
})
}
return sorted
}
}