niveum/.bin/toposort.nix

let
  lib = import <nixpkgs/lib>;
in
rec {
  inherit lib;

  input = [
    {
      x = [
        "pool"
        "zfs"
      ];
      y = [
        "mdadm"
        "raid1"
      ];
    }
    {
      x = [
        "pool"
        "zfs"
      ];
      y = [
        "disk"
        "sda"
      ];
    }
    {
      x = [
        "mdadm"
        "raid1"
      ];
      y = [
        "disk"
        "sdb"
      ];
    }
    {
      x = [
        "mdadm"
        "raid1"
      ];
      y = [
        "disk"
        "sdc"
      ];
    }
  ];

  outNodes = node: graph: lib.unique (builtins.map (e: e.y) (builtins.filter (v: v.x == node) graph));

  vertices = graph: lib.unique (builtins.map (x: x.y) graph ++ builtins.map (x: x.x) graph);

  deleteVertex = node: graph: (builtins.filter (v: v.x != node && v.y != node) graph);

  findSink =
    graph:
    lib.findFirst (v: outNodes v graph == [ ]) (lib.trace graph (builtins.abort "No sink found")) (
      vertices graph
    );

  topSort =
    graph:
    if graph == [ ] then
      [ ]
    else if builtins.length graph == 1 then
      let
        only = builtins.head graph;
      in
      [
        only.y
        only.x
      ]
    else
      let
        sink = findSink graph;
      in
      [ sink ] ++ topSort (deleteVertex sink graph);

  output = topSort input;
}