vendor - lingo-ap-tracker - Autotracker for the Lingo Archipelago integration

about summary refs log tree commit diff stats

Mode	Name	Size
m---------	vendor/apclientpp @ 6866205	0	log stats blame
m---------	vendor/asio @ 12e0ce9	0	log stats blame
m---------	vendor/hkutil @ bfe86f5	0	log stats blame
d---------	nlohmann / nlohmann	35	log stats plain
d---------	quadtree	143	log stats plain
m---------	vendor/valijson @ 2acde8e	0	log stats blame
m---------	vendor/vcpkg @ 3dd44b9	0	log stats blame
d---------	whereami	115	log stats plain
m---------	vendor/wswrap @ 9b5b11e	0	log stats blame

hlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */ .highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */ .highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */ .highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */ .highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */ .highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */ .highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */ .highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */ .highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */ .highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */ .highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */ .highlight .vc { color: #336699 } /* Name.Variable.Class */ .highlight .vg { color: #dd7700 } /* Name.Variable.Global */ .highlight .vi { color: #3333bb } /* Name.Variable.Instance */ .highlight .vm { color: #336699 } /* Name.Variable.Magic */ .highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */

module Fallen.Util
( randomSetElement
) where
  import System.Random
  
  randomSetElement rg set = do
    let (index,rg') = randomR (0,length set - 1) rg :: (Int,StdGen)
    (set !! index, rg')