1 | 5. ||C|| > 0 6. i: (||C||-1). ||2of(C[i])|| > 0 7. q: St 8. a: Alph 9. p: St 10. NDA(C) q 11. NDA(q,a,p) 12. i:  13. 0 i 14. i < ||map( c. < 1of(c),a.2of(c) > ;C)||+1-1 15. i = ||C||-1 i < ||map( c. < 1of(c),a.2of(c) > ;C) @ [ < p,nil > ]|| |
2 | 5. ||C|| > 0 6. i: (||C||-1). ||2of(C[i])|| > 0 7. q: St 8. a: Alph 9. p: St 10. NDA(C) q 11. NDA(q,a,p) 12. i:  13. 0 i 14. i < ||map( c. < 1of(c),a.2of(c) > ;C)||+1-1 15. i = ||C||-1 i < ||map( c. < 1of(c),a.2of(c) > ;C) @ [ < p,nil > ]|| |
3 | 5. ||C|| > 0 6. i: (||C||-1). ||2of(C[i])|| > 0 7. q: St 8. a: Alph 9. p: St 10. NDA(C) q 11. NDA(q,a,p) 12. i:  13. 0 i 14. i < ||map( c. < 1of(c),a.2of(c) > ;C)||+1-1 15. i = ||C||-1 ||rev(2of((map( c. < 1of(c),a.2of(c) > ;C) @ [ < p,nil > ])[i]))|| 1 |
4 | 5. ||C|| > 0 6. i: (||C||-1). ||2of(C[i])|| > 0 7. q: St 8. a: Alph 9. p: St 10. NDA(C) q 11. NDA(q,a,p) 12. i:  13. 0 i 14. i < ||map( c. < 1of(c),a.2of(c) > ;C)||+1-1 15. i = ||C||-1 ||map( c. < 1of(c),a.2of(c) > ;C)|| i+1 |
5 | NDA
(1of((map( c. < 1of(c),a.2of(c) > ;C) @ [ < p,nil > ])[i])
,hd(rev(2of((map( c. < 1of(c),a.2of(c) > ;C) @ [ < p,nil > ])[i])))
,1of([ < p,nil > ][(i+1-||map( c. < 1of(c),a.2of(c) > ;C)||)])) |