logos-storage-proofs-circuits/reference/haskell/Poseidon2/Example.hs

module Poseidon2.Example where

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

import ZK.Algebra.Curves.BN128.Fr.Mont (Fr)

import Poseidon2.Permutation

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

-- BN254 example test vector
exInput, exOutput :: (Fr,Fr,Fr)
exInput = (0,1,2) 
exOutput = 
  ( 0x30610a447b7dec194697fb50786aa7421494bd64c221ba4d3b1af25fb07bd103 
  , 0x13f731d6ffbad391be22d2ac364151849e19fa38eced4e761bcd21dbdc600288 
  , 0x1433e2c8f68382c447c5c14b8b3df7cbfd9273dd655fe52f1357c27150da786f 
  )

kats :: Bool  
kats = permutation exInput == exOutput 

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