如何在 Agda 中生成随机数

Question

我需要在 Agda 中生成一个简单的随机数。

我尝试使用谷歌搜索 'random number agda' 之类的短语，但找不到任何有效代码。

在Haskell中，代码为

    import System.Random

main :: IO ()
main = do
    -- num :: Float
    num <- randomIO :: IO Float
    -- This "extracts" the float from IO Float and binds it to the name num
    print $ num

输出将是

0.7665119

或

0.43071353

什么样的 Agda 代码会达到相同的结果（如果可能的话）？

工作代码将不胜感激！

Answer 1

最简单的方法可能是假设存在这样一个原语，然后向 Agda 解释如何使用 COMPILE 编译指示编译它。

open import Agda.Builtin.Float
import IO.Primitive as Prim
open import IO

random : IO Float
random = lift primRandom where

 postulate primRandom : Prim.IO Float
 {-# FOREIGN GHC import qualified System.Random as Random #-}
 {-# COMPILE GHC primRandom = Random.randomIO #-}

open import Codata.Musical.Notation
open import Function

main : Prim.IO _
main = run $
  ♯ random >>= λ f → ♯ putStrLn (primShowFloat f)

我已经包含了一个 main 以便您可以编译此文件（使用 agda -c FILENAME）和运行它以查看您确实获得了随机浮点数。

如何在 Agda 中生成随机数

How to generate random numbers in Agda

random

agda