fork download
copy 
  1. import Data.List
  2. import Data.Function
  3.  
  4. main = getContents >>= \vvod -> let
  5. 	bitiki = filter (all (`elem` "01")) $ words vvod 
  6. 	baytiki = sobratBaytiki bitiki
  7. 	in mapM_ (putStrLn . intercalate " + ") baytiki
  8.  
  9. skleitBaytik bitiki = f 0 [] bitiki where
  10.     f n baytik w@(~((c@(~(b:bs))):bitiki)) 
  11.         | n==8           = [(baytik,w)]
  12.         | 8<n || null w  = []
  13.         | null c = f n baytik bitiki
  14.         | otherwise      = take 1 (da ++ ne) where 
  15.             da = f (n+length b) (b:baytik) (bs:bitiki)
  16.             ne = map (fmap (c:)) (f n baytik bitiki)
  17.  
  18. sobratBaytiki bitiki = 
  19.     map fst $ concat $ takeWhile (/=[]) $ 
  20.     iterate (skleitBaytik . snd . head)
  21.     [([],podgotovit bitiki)]
  22.  
  23. podgotovit = groupBy ((==) `on` length) . sortBy (flip compare `on` length)
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
1001 1010 1 0010 111000 000 10 001 010 1 111 0100 0 0001 111 010 110 00
stdout
copy 
10 + 111000
1010 + 1001
0100 + 0010
1 + 000 + 0001
00 + 010 + 001
0 + 1 + 111 + 111
https://ideone.com/2qDF11
101010100 110010 10100 0101111 000011 1110 0000 1010
language:
Haskell (ghc 8.4.4)
created:
10 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!