Generates a random seed for Balatro every day.

balatro-daily-seed.hs

#! /usr/bin/env cabal
{- cabal:
build-depends: base, random, time
-}
import qualified Data.Time as Time
import qualified System.Random as Random

main :: IO ()
main =
  putStrLn
    . fmap (toEnum . (\x -> x + if x < 10 then 48 else 55))
    . fst
    . Random.uniformListR 8 (0, 35)
    . Random.mkStdGen
    . fromIntegral
    . Time.toModifiedJulianDay
    . Time.utctDay
    =<< Time.getCurrentTime