Return to m4.test5 CVS log

Up to [Research Unix] / researchv10dc / cmd / m4

Annotation of researchv10dc/cmd/m4/m4.test5, revision 1.1

1.1     ! root        1: define(i0,`ifelse($1,0,1,`i1($1)')')
        !             2: define(i1,`ifelse($1,1,2,`i2($1)')')
        !             3: define(i2,`ifelse($1,2,3,`i3($1)')')
        !             4: define(i3,`ifelse($1,3,4,`i4($1)')')
        !             5: define(i4,`ifelse($1,4,5,`i5($1)')')
        !             6: define(i5,`ifelse($1,5,6,`i6($1)')')
        !             7: define(i6,`ifelse($1,6,7,`i7($1)')')
        !             8: define(i7,`ifelse($1,7,8,`i8($1)')')
        !             9: define(i8,`ifelse($1,8,9,C0)')
        !            10: define(f,`substr($1,0,1)')
        !            11: define(s,`substr($1,1,1)')
        !            12: define(r,`substr($1,1)')
        !            13: define(ir,`ifelse($1,,,`ifelse(f(ir(r($1))),C,`i0(f($1))`'r(ir(r($1)))',`f($1)`'ir(r($1))')')')
        !            14: define(`inc',`ifelse(f(ir($1C)),C,`1`'r(ir($1C))',`ir($1C)')')
        !            15: ir(3C) inc(3)
        !            16: ir(9C) inc(9)
        !            17: ir(18C) inc(18)
        !            18: ir(19C) inc(19)
        !            19: ir(8899C) inc(8899)
        !            20: ir(99999C) inc(99999)
        !            21: define(add3,`ifelse($2,$3,$1,`add3(inc($1),$2,inc($3))')')
        !            22: define(add,`add3($1,$2,0)')
        !            23: 
        !            24: add(17,0)
        !            25: add(17,1)
        !            26: add(7,3)
        !            27: add(18,2)
        !            28: add(12,13)

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