module Monolith.Constants where

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

import Data.Array
import Goldilocks

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

monolithRoundConstants :: Array (Int,Int) F
monolithRoundConstants = listArray ((0,0),(5,11)) $ map toF $ concat
  [ [ 0xbcaf2516e5926dcf
    , 0x4ec5a76bce1e7676
    , 0x9d804725bebb56ab
    , 0x2ec05fca215a5be3
    , 0xe16274e4acab86a0
    , 0x80b0fddcc3c4380f
    , 0xc87c769ad77ffece
    , 0x37f85ec9117d287c
    , 0x3b8d825b014c458d
    , 0xb7a01d0cb850d75e
    , 0x1333b751bac704bd
    , 0x7b7ef14183d47b6f
    ]
  , [ 0x2114517643e3b286
    , 0x542d15ea3cd12ade
    , 0xe847d363f17a93e9
    , 0x24f0421c6ff41c56
    , 0x66e3eda93e2ca216
    , 0xfb88d475279cb568
    , 0x7f421c6269938a22
    , 0xdbb973acce857401
    , 0xe172409cb1563a6a
    , 0x996f729f6340447d
    , 0x925c579738b6fa4a
    , 0x752e9ec9e0b34686
    ]
  , [ 0xdb419e0bd38469bd
    , 0xba41cee828bd26d8
    , 0xd6630f8f0969db39
    , 0x2340e955ae2f0d94
    , 0x282f553d35872e2e
    , 0x77f7c3ff1ae496b3
    , 0xf5f2efab64bc5eef
    , 0x47b23a00830284f4
    , 0xe18a2d2242486fa
    , 0x3d101838a773dab0
    , 0x47d686fd16856524
    , 0x3eb2d254189b3534
    ]
  , [ 0xfe886e291ca8c5bd
    , 0xb97ec74df1e4b0b6
    , 0x574fdef3a600e370
    , 0x8ad61c6f132d4feb
    , 0x41e69ca4ecc7e8c7
    , 0x151ad562e1f90ca4
    , 0x747c051439a5603c
    , 0x990151d3e52d502c
    , 0x532c7f258282ea12
    , 0x65e62cb34275dd5
    , 0x5288008954f5d0b2
    , 0xee7c3407cf3d6e02
    ]
  , [ 0xda07029808bad5de
    , 0x7bebdf38dcc7a673
    , 0x20a3f252688c312d
    , 0x9c5248f7bbf8d188
    , 0xcf1cf778994382d4
    , 0x8c434b1738b8338c
    , 0xfe504398813b67a8
    , 0xe879562fdef813b9
    , 0xd4666793b2a2f191
    , 0xd9096b87de22de01
    , 0xcaf4cea5f22abf34
    , 0x3128d1e75d0204fa
    ]
  , replicate 12 0
  ]

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