Revision as of 13:44, 30 November 2016 (view source) SqrtNegInf (talk \| contribs) m (→‎{{header\|Perl 6}}: various fixes) ← Older edit		Revision as of 03:08, 4 December 2016 (view source) rosettacode>Spoon! (→‎{{header\|Haskell}}) Newer edit →
Line 2,119: zeroTrim a = if null s then [0] else s where s = fst $ foldl f ([] ,[]) a f (x,y) ~~_ []~~0 = (x, y++[0]) f (x ,y ~~(0:zs~~) z = ~~f x~~ (x++y++[0z]), zs[]) ~~f x y (z:zs) = f (x++y++[z]) [] zs~~ btList (Bt a) = a

Balanced ternary: Difference between revisions

Balanced ternary (view source)