6cf7d3438bbea0d18189f26ef43e5b4bcaf7ca893d88ff5f240f361e609912c7

Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 1365

Preview (limited to 512 bytes)

"module Algo.HybCC (hybcc) where\n\nimport Data.Vector.Unboxed as V\n\nhybcc :: (Int, Vector Int, Vector Int) -> Vector Int\n{-# NOINLINE hybcc #-}\nhybcc (n, e1, e2) = concomp (V.zip e1 e2) n\n where\n concomp es n\n | V.null es = V.enumFromTo 0 (n-1)\n | otherwise = V.backpermute ins ins\n where\n p = shortcut_all\n $ V.update (V.enumFromTo 0 (n-1)) es\n\n (es',i) = compress p es\n r = concomp es' (V.length i)\n ins = V.update_ p i\n $ "

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete