Можно мини ревью? создание последовательности рандомных чисел от 0 до

Question

Можно мини ревью? создание последовательности рандомных чисел от 0 до

max
let rec uniqRand set max=
match Set.count set = max with
| true -> None
| false ->
let r = new System.Random()
let i = r.Next max
if Set.contains i set then uniqRand set max
else Some i

let rgen max acc =
match uniqRand acc max with
| None -> None
| Some item -> Some (item, Set.add item acc)

let rand max =
Seq.unfold (rgen max) Set.empty

#fsharp #programming #russian

0

10.02.2019

1 ответов

4 просмотра

Yv y · Answer 1

Yv y Автор вопроса

кстати, не лучше тут генерацию числа(r.Next) вынести как аргумент? Ведь каждую вложенность создавать Random такое себе

0

10.02.2019

169 похожих чатов

Можно мини ревью? создание последовательности рандомных чисел от 0 до

1 ответов

Похожие вопросы