mirror of
https://github.com/logos-storage/logos-storage-proofs-circuits.git
synced 2026-01-03 05:53:11 +00:00
41 lines
1.0 KiB
Haskell
41 lines
1.0 KiB
Haskell
|
|
module Main where
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Slot ( SlotIdx(..) , DataSource(..) , Seed(..) )
|
|
import DataSet
|
|
import Sampling
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
smallDataSetCfg :: DataSetCfg
|
|
smallDataSetCfg = MkDataSetCfg
|
|
{ _nSlots = 5
|
|
, _cellSize = 128
|
|
, _blockSize = 4096
|
|
, _nCells = 256
|
|
, _nSamples = 5
|
|
, _dataSrc = FakeData (Seed 12345)
|
|
}
|
|
|
|
bigDataSetCfg :: DataSetCfg
|
|
bigDataSetCfg = MkDataSetCfg
|
|
{ _nSlots = 13
|
|
, _cellSize = 2048
|
|
, _blockSize = 65536
|
|
, _nCells = 512
|
|
, _nSamples = 5
|
|
, _dataSrc = FakeData (Seed 666)
|
|
}
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let dsetCfg = smallDataSetCfg
|
|
let slotIdx = SlotIdx 3
|
|
let entropy = 1234567 :: Entropy
|
|
circomMainComponent dsetCfg "./json/slot_main.circom"
|
|
samplingTest dsetCfg slotIdx entropy "./json/input_example.json"
|