いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

552:デフォルトの名無しさん
09/07/23 20:11:31
>>548
msub :: (Num a) => [[a]] -> [[a]] -> [[a]]
msub = zipWith (zipWith (-))

main = do
mapM_ print $ a `msub` b
where
a = [[6, 3, 4], [5, 1, 2]]
b = [[1, 2, 3], [4, 5, 6]]

次ページ

続きを表示

1を表示