aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-09-01 09:35:06 -07:00
parent 61b93a2cd1
commit 5af6d93694
858 changed files with 20572 additions and 2082 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Fractran/Nim/fractran-1.nim
View file

@ -20,7 +20,7 @@ func toFractions(fractList: string): seq[Rat] =
for f in fractList.split():
result.add(newRat(f))
proc run(progStr: string; init, maxSteps: Natural = 0) =
proc run(progStr: string; init: Natural; maxSteps: Natural = 0) =
## Run the program described by string "progStr" with initial value "init",
## stopping after "maxSteps" (0 means for ever).
## Display the value after each step.
@ -39,7 +39,7 @@ iterator primes(n: Natural): int =
for val in prog.values(2):
if isZero(val and (val - 1)):
# This is a power of two.
yield val.digits(2) - 1 # Compute the exponent as number of binary digits minus one.
yield val.digits(2).int - 1 # Compute the exponent as number of binary digits minus one.
inc count
if count == n:
break