/usr/web/sources/contrib/fernan/nhc98/src/libraries/fps/tests/zipwith.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/libraries/fps/tests/zipwith.hs


import qualified Data.ByteString as P
import qualified Data.ByteString.Char8 as C

main = do
    a <- P.readFile "bigdata"
    b <- P.readFile "bigdata"
    print . P.length $ (P.pack (P.zipWith (const) a b)) -- should specialise

(Return to Plan 9 Home Page)