Histogram.col.one: def of bend-parallel@0.1.0.0
Import: import bend-parallel@0.1.0.0/histogram.bend as Histogram
Lines 249-258 of bend-parallel@0.1.0.0/histogram.bend: https://jend.leeeet.dev/read.txt?path=bend-parallel@0.1.0.0/histogram.bend&start_line=249&end_line=258

import Base

# Column c's count into cs[c]: the sum of its nb + 1 entries from o + c,
# step apart (the groups' last rows), when c < K; else 0.
def col.one(lt: Bool, +c: U32, +o: U32, +step: U32, +nb: Nat, p: Two) -> Two:
  match lt:
    case True{}:
      Two{t, cs} = p
      col.put(c, cs, col.go(nb, (o + c : U32), step, 0, t[(o + c : U32)]))
    case False{}:
      Two{t, cs} = p
      Two{t, cs[c] <- 0}

Uses (9):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array.get
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array.set
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.add
  https://jend.leeeet.dev/definition.txt?path=bend-parallel@0.1.0.0/histogram.bend&name=Two
  https://jend.leeeet.dev/definition.txt?path=bend-parallel@0.1.0.0/histogram.bend&name=col.go
  https://jend.leeeet.dev/definition.txt?path=bend-parallel@0.1.0.0/histogram.bend&name=col.put