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

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.