Haskell 언어로 행렬 곱셈하는 간단한 소스 (정수로 이루어진 행렬, 분수로 이루어진 행렬, 부동소수점수로 이루어진 행렬, 복소수로 이루어진 행렬 들릐 곱셈을 처리합니다.) -- Filename: testMatrixMultiplication.hs -- -- 참조: http://rosettacode.org/wiki/Matrix_multiplication#Haskell module Main where import Data.Complex import Data.Ratio import Text.Printf import Data.List -- 행렬 곱셉 함수 mmult :: Num a => [[a]] -> [[a]] -> [[a]] mmult a b = [ [ sum $ zipWith (*) ar bc | bc