mbudde / aplacc Goto Github PK

module Main where
import qualified Prelude as P
import Prelude ((+), (-), (*), (/))
import Data.Array.Accelerate
import qualified Data.Array.Accelerate.Interpreter as Backend
import qualified APLAcc.Primitives as Prim

program :: P.IO (Acc (Scalar P.Double))
aplacc: cannot type cast Prim.bench Backend.run1 Backend.run
  (\ v259 ->
     Prim.reduce P.min (constant (2147483647 :: P.Int))
       (Prim.eachV
          (\ v324 ->
             the
               (Prim.reduce P.max (constant (-2147483648 :: P.Int))
                  (Prim.eachV
                     (\ v355 ->  
...