Cómo encontrar el número de núcleos en tiempo de ejecución en Haskell

Question

¿Tiene Haskell un método para determinar el número de núcleos de CPU presentes en una máquina en tiempo de ejecución?

Answer 1

Sí, existe ese método. Código de "Real World Haskell": http://book.realworldhaskell.org/read/concurrent-and-multicore-programming.html

import GHC.Conc (numCapabilities) 

main = putStrLn $ "number of cores: " ++ show numCapabilities 

Answer 2

Se podría Copy'n'Paste this code en un archivo llamado numCores y compilarlo con su código de Haskell. Que se puede utilizar el FFI importar su definición y utilizarlo directamente en el código Haskell:

{-# LANGUAGE ForeignFunctionInterface #-} 
import Control.Applicative ((<$>)) 
import Foreign.C.Types (CInt) 

foreign import ccall "getNumCores" c_getNumCores :: IO CInt 
getNumCores :: IO Int 
getNumCores = fromEnum <$> c_getNumCores 

Answer 3

Desde la versión 6.12, GHC RTS includes a function getNumberOfProcessors, que se utiliza para implementar +RTS -N. Puede acceder a él de la misma manera que las funciones extranjeras ordinarias. Advertencia: GHC-solamente y sólo funciona si el programa fue construido con -threaded:

{-# LANGUAGE ForeignFunctionInterface #-} 
import Foreign.C.Types (CInt) 

foreign import ccall "getNumberOfProcessors" c_getNumberOfProcessors :: IO CInt 

main :: IO() 
main = c_getNumberOfProcessors >>= print 

Pruebas:

$ ghc --make -threaded Main.hs 
[1 of 1] Compiling Main    (Main.hs, Main.o) 
Linking Main ... 
$ ./Main      
1 

Answer 4

Desde base 4.5 se puede utilizar getNumProcessors de GHC.Conc. Esto es bueno ya que el número de capacidades ahora puede establecerse dinámicamente con setNumCapabilities desde el mismo.

Answer 5

Es GHC.Conc.getNumProcessors :: IO Int getNumCapabilities dice cuántos hilos se sugirió a GHC (y depende de +RTS -N opción de parámetros.)