Fractran: Difference between revisions
Updated to work with Nim 2.0.
(Updated to work with Nim 2.0.) |
|||
Line 2,921:
result.add(newRat(f))
proc run(progStr: string; init
## Run the program described by string "progStr" with initial value "init",
## stopping after "maxSteps" (0 means for ever).
Line 2,940:
if isZero(val and (val - 1)):
# This is a power of two.
yield val.digits(2).int - 1 # Compute the exponent as number of binary digits minus one.
inc count
if count == n:
| |||