Home Explore Help
Sign In
CNI
/
HaskellCourse
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Implement `choosePrime`

DricomDragon 5 years ago
parent
12260b9a8d
commit
6126112558
1 changed files with 3 additions and 0 deletions
Split View Show Diff Stats
  1. 3 0
      tp/rsa/main.hs

+ 3 - 0
tp/rsa/main.hs
View File 

@@ -60,3 +60,6 @@ dividers n = [k | k <- takeWhile (\k -> k * k <= n) primeinf, rem n k == 0]
 
 prime n = null (dividers n)
 
 primeinf = 2:3:[n | n <- primecandidates, prime n]
 
 
+choosePrime::Int -> Int
 
+choosePrime b = head $ dropWhile (<= b) primeinf
 
+