aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Balanced-ternary/Haskell/balanced-ternary.hs
View file

@ -1,10 +1,9 @@
data BalancedTernary = Bt [Int]
zeroTrim a = if null s then [0] else s where
s = f [] [] a
f x _ [] = x
f x y (0:zs) = f x (y++[0]) zs
f x y (z:zs) = f (x++y++[z]) [] zs
s = fst $ foldl f ([],[]) a
f (x,y) 0 = (x, y++[0])
f (x,y) z = (x++y++[z], [])
btList (Bt a) = a