Return to soma CVS log

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

Annotation of researchv10no/cmd/sno/soma, revision 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.