1 | 8. x = 1of(u) 9. apply_alist([u / v];x;d) ~ if 1of(u) = x 2of(u) else apply_alist(v;x;d) fi 10. 1of(u) = x Pattern < x,apply_alist(v;x;d) > = u ( < x,apply_alist(v;x;d) > v) |
2 | 8. (x map(p.1of(p);v)) 9. apply_alist([u / v];x;d) ~ if 1of(u) = x 2of(u) else apply_alist(v;x;d) fi 10. 1of(u) = x Pattern < x,apply_alist(v;x;d) > = u ( < x,apply_alist(v;x;d) > v) |
About: