blob: 2ad686e4ba7416e577b7e2243c227fbf5b16c74d (
plain)
1
2
3
4
5
6
7
8
9
10
|
import System(getArgs)
import Numeric.LinearAlgebra
import Control.Parallel.Strategies
work k = vectorMax s
where (_,s,_) = svd (ident k :: Matrix Double)
main = do
args <- (read . head) `fmap` getArgs
print $ sum $ parMap rnf work args
|