Haskell,
pasted
on Sep 25:
|
import Control.Monad
import Data.List
test = [3,2,6,4,5,1]
lsbs cs = filter ((==ml) . length) sortonly
where sortonly = filter (\a -> sort a == a) (subs cs)
ml = maximum $ map length sortonly
subs cs = filterM (\a -> [True, False]) cs
main = print $ lsbs test
|
Output:
|