Return to soma CVS log

Up to [Research Unix] / researchv10no / cmd / sno

Annotation of researchv10no/cmd/sno/soma, revision 1.1.1.1

1.1       root        1: define remove
                      2:        front */'1'* = ''
                      3:        back */'1'* = ''
                      4:        right */'1'* = ''
                      5:        left */'1'* = '' /(return)
                      6: 
                      7: define test(s)
                      8:        s */'2'* *ft/'1'* *bk/'1'* *lt/'1'* *rt/'1'* /f(xxx)
                      9:        front ** ft /s(freturn)
                     10:        back ** bk /s(freturn)
                     11:        left ** lt /s(freturn)
                     12:        right ** rt /s(freturn)
                     13:        front = ft front
                     14:        right = rt right
                     15:        left = lt left
                     16:        back = bk back /(return)
                     17: 
                     18: define build(s)
                     19:        $s *1/'1'* *2/'1'* *3/'1'* *4/'1'* *5/'1'* *6/'1'* /f(xxx)
                     20:        $(s '1') = 1 2 3 4 5 6
                     21:        $(s '2') = 1 2 6 5 3 4
                     22:        $(s '3') = 1 2 4 3 5 6
                     23:        $(s '4') = 1 2 5 6 4 3
                     24:        $(s '5') = 3 4 1 2 6 5
                     25:        $(s '6') = 3 4 5 6 1 2
                     26:        $(s '7') = 3 4 2 1 5 6
                     27:        $(s '8') = 3 4 6 5 2 1
                     28:        $(s '9') = 5 6 1 2 3 4
                     29:        $(s '10') = 5 6 4 3 1 2
                     30:        $(s '11') = 5 6 2 1 4 3
                     31:        $(s '12') = 5 6 3 4 2 1
                     32:        $(s '13') = 2 1 3 4 6 5
                     33:        $(s '14') = 2 1 6 5 4 3
                     34:        $(s '15') = 2 1 4 3 5 6
                     35:        $(s '16') = 2 1 5 6 3 4
                     36:        $(s '17') = 4 3 1 2 5 6
                     37:        $(s '18') = 4 3 5 6 2 1
                     38:        $(s '19') = 4 3 2 1 6 5
                     39:        $(s '20') = 4 3 6 5 1 2
                     40:        $(s '21') = 6 5 1 2 4 3
                     41:        $(s '22') = 6 5 4 3 2 1
                     42:        $(s '23') = 6 5 2 1 3 4
                     43:        $(s '24') = 6 5 3 4 1 2 /(return)
                     44: 
                     45: start  a = 'wbrrrg'
                     46:        b = 'wbbrgg'
                     47:        c = 'wbgrwg'
                     48:        d = 'wgwrrb'
                     49: 
                     50:        build('a')
                     51:        build('b')
                     52:        build('c')
                     53:        build('d')
                     54: 
                     55:        a = '1'
                     56: l1     x1 = $('a' a)
                     57:        test(x1) /f(xxx)
                     58:        b = '1'
                     59: l2     x2 = $('b' b)
                     60:        test(x2) /f(t2)
                     61:        c = '1'
                     62: l3     x3 = $('c' c)
                     63:        test(x3) /f(t3)
                     64:        d = '1'
                     65: l4     x4 = $('d' d)
                     66:        test(x4) /f(t4)
                     67:        syspot = x1
                     68:        syspot = x2
                     69:        syspot = x3
                     70:        syspot = x4
                     71:        remove()
                     72: t4     d = d + '1'
                     73:        d '25' /f(l4)
                     74:        remove()
                     75: t3     c = c + '1'
                     76:        c '25' /f(l3)
                     77:        remove()
                     78: t2     b = b + '1'
                     79:        b '25' /f(l2)
                     80:        remove()
                     81:        a = a + '1'
                     82:        a '13' /f(l1)
                     83: end    syspot = 'Done...'

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