- 104 名前：名無しさん＠お腹いっぱい。 mailto:sage [2011/10/12(水) 12:25:37.21 ID:jRZCqaxf0]
- module Main (main) where
import System
main :: IO ()
main = do args <- getArgs
contents1 <- readFile $ head args
contents2 <- readFile $ args !! 1
putStr $ unlines $ ad (lines contents1) (lines contents2)
ad :: [[Char]]->[[Char]]->[[Char]]
ad _ []=[]
ad [] _=[]
ad(x:xs)(y:ys)=(x++","++y) : ad xs ys
