encode_io.hs

import System.Random
import Control.Monad

subV :: Integer -> Integer -> Integer
subV x y | x == y = 0
         | otherwise = 1
 
encode :: [Integer] -> [Integer] -> [Integer]
encode [] _ = []
encode (p:ps) (v1:v1s) = [subV p v1] ++ encode ps v1s

main = do
    putStrLn "What's p? :"
    p <- getLine
    v1 <- replicateM (length (read p :: [Integer])) $ randomRIO (0,1)
    putStrLn "v1:"
    print v1
    putStrLn "v2:"
    print (encode (read p :: [Integer]) v1)