Maple - zestaw 6 - zadanie 2

#-------------------------
# zadanie 2 a
#-------------------------

def policz(a,b):

    wynik = 0

    while a != b:
        wynik = wynik + 1
        if a < b:
            b = b - a
        else:
            a = a - b

    return wynik

#-------------------------

print policz(1,1) # 0

print policz(1,2) # 1
print policz(2,1) # 1

print policz(1,3) # 2
print policz(3,2) # 2
print policz(2,3) # 2
print policz(3,1) # 2

print policz(3,5) # 3
print policz(5,3) # 3

print policz(8,5) # 4
print policz(7,3) # 4

#-------------------------
# zadanie 2 b
#-------------------------

def nty(n):                     # nty := proc(n)

                                # local lista, k, a, b, x;

    lista = [ [1,1] ]           # lista := [ [1,1] ];
    k = 0                       # k := 1;

    while len(lista) <= n:      # while nops(lista) <= n+1 do
        x = lista[k]            #   x := op(k, lista);
        a = x[0]                #   a := op(1, x);
        b = x[1]                #   b := op(2, x);
        k += 1                  #   k := k + 1;
        lista.append( (a,a+b) ) #   lista := [ op(lista), [a,a+b], [a+b,b] ];
        lista.append( (a+b,b) )
                                # do;
    return lista, lista[n]      # op(n, lista);
                                # end:
#------------------------

n = 7
lista, wynik = nty(n)
print lista
print n, ':', wynik

# [(1, 1), (1, 2), (2, 1), (1, 3), (3, 2), (2, 3), (3, 1), (1, 4), (4, 3)]
# 7 : (1, 4)

n = 22
lista, wynik = nty(n)
print lista
print n, ':', wynik

# [(1, 1), (1, 2), (2, 1), (1, 3), (3, 2), (2, 3), (3, 1), (1, 4), (4, 3), (3, 5), (5, 2), (2, 5), (5, 3), (3, 4), (4, 1), (1, 5), (5, 4), (4, 7), (7, 3), (3, 8), (8, 5), (5, 7), (7, 2)]
# 22 : (7, 2)