Skip to content

Instantly share code, notes, and snippets.

@games

games/gist:5967b2a96a6b093aa001

Last active August 29, 2015 14:23
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save games/5967b2a96a6b093aa001 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save games/5967b2a96a6b093aa001 to your computer and use it in GitHub Desktop.
Download ZIP
pick some one from list by weight
Raw
gistfile1.fs
let pick items weight =
let rec pick based =
function
| [] -> None
| (w, _) as h :: _ when weight <= w + based -> Some h
| (w, _) :: t -> pick (based + w) t
pick 0.0 items
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment