You are viewing a single comment's thread. Return to all comments →
inspired by solving some of the bit flipping problems:
module Main where import Data.Array import Data.Bits solve xs = elems $ ixmap (0,n-1) (xor 1) $ listArray (0,n-1) xs where n = length xs main = interact $ unlines . fmap solve . tail . lines
Seems like cookies are disabled on this browser, please enable them to open this website
String-o-Permute
You are viewing a single comment's thread. Return to all comments →
inspired by solving some of the bit flipping problems: