Return to 'HANOI CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / B / ex / hanoi

Annotation of 43BSD/contrib/B/ex/hanoi/'HANOI, revision 1.1.1.1

1.1       root        1: HOW'TO HANOI n:
                      2:        INITIALISE
                      3:        FOR i IN {1..(2**n)-1}:
                      4:                SELECT'PROCESS
                      5:                WRITE 'Move piece', piece, 'from', from, 'to', to/
                      6:                RE'SCHEDULE
                      7: INITIALISE:
                      8:        PUT {} IN process
                      9:        FOR i IN {1..n}:
                     10:                INSERT 2**(i-1), i, 1, (-1)**(i+n), 2**i IN process
                     11: SELECT'PROCESS:
                     12:        PUT min process IN time, piece, from, direction, wait
                     13:        REMOVE min process FROM process
                     14: RE'SCHEDULE:
                     15:        INSERT time+wait, piece, to, direction, wait IN process
                     16: to:
                     17:        RETURN ((from+direction-1) mod 3) + 1

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.