Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CoprimeSet[n_, m_] := Pick[#, CoprimeQ @@@ #] &[Subsets[Range[n], {m}]]
- CoprimeSet[8,5]
- CoprimeRandomSet[n_, m_, kmin_, kmax_] :=
- Pick[#, CoprimeQ @@@ #] &[Subsets[RandomInteger[{kmin, kmax}, n], {m}]]
- CoprimeRandomSet[10, 5, 1800, 2000]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement