Aliohjelma rekursiivinen-potenssi(A,k):
    jos k < 0
        virhe
    jos k = 0
        palauta I
    jos k = 1
        palauta A
    jos k on parillinen
        B := rekursiivinen-potenssi(A,k/2)
        palauta BB
    muuten
        B := rekursiivinen-potenssi(A,k-1)
        palauta AB

Solmu 1/1998-1999: Tietokonepalsta
Viimeksi muutettu: 5. marraskuuta 1998 klo 23:40:32