def tree_word

mylsm-lsm-store@0.3.2.0 · src/BitTree.bend:115

import Base

115def tree_word(path: List<&2, Bool>, tree: WordTree) -> U32:
116  match path tree:
117    case Nil{} Empty{}:
118      0
119    case Nil{} Leaf{word}:
120      word
121    case Nil{} Fork{left, right}:
122      0
123    case Con{side, rest} Empty{}:
124      0
125    case Con{side, rest} Leaf{word}:
126      0
127    case Con{False{}, rest} Fork{left, right}:
128      tree_word(rest, left)
129    case Con{True{}, rest} Fork{left, right}:
130      tree_word(rest, right)