def blocks

cswap-bend-cli@0.1.0.0 · clilist.bend:96

import Base
import cswap-bend-cli@0.1.0.0/view.bend as View

96def blocks(as: List<&2, View.Acct>, +now: U32, +off: U32) -> String:
97  match as:
98    case Nil{}:
99      ""
100    case Con{h, Nil{}}:
101      acct_block(h, now, off)
102    case Con{h, Con{h2, t2}}:
103      acct_block(h, now, off) ++ "\n" ++ blocks(h2 <> t2, now, off)