Getting truely random numbers from RANDOM.org in PureScript

README.md

Querying RANDOM.ORG in PureScript

RANDOM.ORG reference

• https://api.random.org/json-rpc/1/basic
• https://api.random.org/json-rpc/1/introduction

Main.purs

module Main where

-- bower install
-- "purescript-prelude": "^2.5.0"
-- "purescript-console": "^2.0.0"
-- "purescript-affjax": "^3.0.2"

import Prelude
import Control.Monad.Aff (launchAff)
import Control.Monad.Aff.Console (log)
import Data.Either (Either(..))
import Data.HTTP.Method (Method(..))
import Data.Maybe (Maybe(..))
import Network.HTTP.Affjax (affjax, defaultRequest)

main = launchAff $ do
  res <- affjax $ defaultRequest {
    url = "https://api.random.org/json-rpc/1/invoke",
    method = Left POST,
    content = Just """
      {
          "jsonrpc": "2.0",
          "method": "generateIntegers",
          "params": {
              "apiKey":"your-api-key-here",
              "n":20,
              "min":1,
              "max":20
          },
          "id": 42
      }
    """
  }
  log res.response