def Mag.group

bend-kit-bignum@0.1.0.0 · bigint.bend:325

import Base

325# Digits, least significant first, four to a limb.
326def Mag.group(ds: List<&2, U32>) -> List<&2, U32>:
327  match ds:
328    case Con{a, Con{b, Con{c, Con{d, t}}}}:
329      Con{(a + 10 * b + 100 * c + 1000 * d : U32), Mag.group(t)}
330    case Con{a, Con{b, Con{c, Nil{}}}}:
331      Con{(a + 10 * b + 100 * c : U32), Nil{}}
332    case Con{a, Con{b, Nil{}}}:
333      Con{(a + 10 * b : U32), Nil{}}
334    case Con{a, Nil{}}:
335      Con{a, Nil{}}
336    case Nil{}:
337      Nil{}