logos-storage-proofs-circuits/test/Params.hs

module Params where

--------------------------------------------------------------------------------

import Data.Bits

--------------------------------------------------------------------------------

-- | The size of the scalar field
r :: Integer
r = 21888242871839275222246405745257275088548364400416034343698204186575808495617

toBitsLE :: Integer -> [Int]
toBitsLE = go where
  go 0 = []
  go n = fromInteger (n .&. 1) : go (shiftR n 1)

--------------------------------------------------------------------------------