6262dcdb1109d0c914074af26d0b062235c050e0053b9c57495543069e20053d

Download raw

Created: 2019-10-12 06:53:48.403379 UTC

Size: 1333

Preview (limited to 512 bytes)

"{-# OPTIONS -fno-spec-constr-count #-}\nmodule Algo.AwShCC (awshcc) where\n\nimport Data.Vector.Unboxed as V\n\nawshcc :: (Int, Vector Int, Vector Int) -> Vector Int\n{-# NOINLINE awshcc #-}\nawshcc (n, es1, es2) = concomp ds es1' es2'\n where\n ds = V.enumFromTo 0 (n-1) V.++ V.enumFromTo 0 (n-1)\n es1' = es1 V.++ es2\n es2' = es2 V.++ es1\n\n starCheck ds = V.backpermute st' gs\n where\n gs = V.backpermute ds ds\n st = V.zipWith (==) ds gs\n st' = V.update st . V.f"


A service provided by FP Complete