craig.oates
/
wet-pancake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
The purpose of this repository is to provide a way for people to generate random "placeholder text" -- with a Markov Chain. https://www.craigoates.net/Software/project/12
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
259 Commits
1 Branch
0 Tags
1.3 MiB
 
 
Branch: master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
wet-pancake/WetPancake/SystemServices.fs

9 lines
230 B
Raw Permalink Blame History

module internal SystemServices
open System
let PickRandomNumber min max = Random().Next(min, max)
let PickRandomItem seq =
let index = PickRandomNumber 0 (Seq.length seq)
seq |> Seq.item index