14 lines
No EOL
320 B
Haskell
14 lines
No EOL
320 B
Haskell
module Main where
|
|
|
|
import System.Random
|
|
import Kairos
|
|
|
|
main :: IO ()
|
|
main = do
|
|
g <- newStdGen
|
|
let i = take 10 $ randoms g
|
|
i' = coherence i 0.1
|
|
sumAbs = sum $ map abs i'
|
|
if sumAbs > 0
|
|
then putStrLn "Kairos test passed: Coherence updated"
|
|
else putStrLn "Kairos test failed" >> error "Test failed" |