Re: 100 Random Single Variable Linear Equations

Mike Sanders <porkchop@invalid.foo> wrote:

Yes, certainly, let me study & consider your code & see if I can weave
it into the project. Sounds interesting.

ok, a start, but still need to rework loop, hopefully this weekend.

also added global SEED allowing for re-use...

awk -f algebra.awk -v SEED=$RANDOM

BEGIN {

    SEED = SEED ? SEED : 1

    srand(SEED) # seed random number generator

    # keep generating until we have exactly 100 unique equations
    while (u < 100) {
        a = rnd(1, 20) # random value 1 to 20
        b = rnd(1, 20) # random value 1 to 20
        c = rnd(1, 50) # random value 1 to 50
        z = (rnd(1, 2) == 1) ? "+" : "-"          # safe/janis: random operator
      # z = substr("*-/+", (++q % 4) + 1, 1)      # wild/mike: cycle operators
        e = sprintf("%dx %s %d = %d", a, z, b, c) # formatted equation

        # store equation in array if it doesn't already exist
        if (!(e in equ)) {
            equ[e] = 1 # mark element as reserved
            u++        # increment u for each unique equation
        }
    }

    # print equations
    printf("SEED: %d\n\n", SEED)
    for (j in equ) printf("%03d. %s\n\n\n\n\n\n\n", ++n, j)
}

function rnd(min, max) { return int(rand() * (max - min + 1)) + min }

# eof

--
:wq
Mike Sanders