September 2017 Update
This commit is contained in:
parent
bba7bfd280
commit
ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
23
Task/Almost-prime/Nim/almost-prime.nim
Normal file
23
Task/Almost-prime/Nim/almost-prime.nim
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
proc prime(k: int, listLen: int): seq[int] =
|
||||
result = @[]
|
||||
var
|
||||
test: int = 2
|
||||
curseur: int = 0
|
||||
while curseur < listLen:
|
||||
var
|
||||
i: int = 2
|
||||
compte = 0
|
||||
n = test
|
||||
while i <= n:
|
||||
if (n mod i)==0:
|
||||
n = n div i
|
||||
compte += 1
|
||||
else:
|
||||
i += 1
|
||||
if compte == k:
|
||||
result.add(test)
|
||||
curseur += 1
|
||||
test += 1
|
||||
|
||||
for k in 1..5:
|
||||
echo "k = ",k," : ",prime(k,10)
|
||||
Loading…
Add table
Add a link
Reference in a new issue