1 /* j/6/flip.c
2 **
3 */
4 #include "all.h"
5 
6 
7 /* functions
8 */
9   u3_noun
u3qf_flip(u3_noun hel)10   u3qf_flip(u3_noun hel)
11   {
12     if ( c3y == u3r_sing(1, u3h(hel)) ) {
13       if ( (c3y == u3t(hel)) ) {
14         return u3nc(1, c3n);
15       }
16       else {
17         c3_assert((c3n == u3t(hel)));
18 
19         return u3nc(1, c3y);
20       }
21     }
22     else {
23       return u3nq(6,
24                   u3k(hel),
25                   u3nc(1, c3n),
26                   u3nc(1, c3y));
27     }
28   }
29   u3_noun
u3wf_flip(u3_noun cor)30   u3wf_flip(u3_noun cor)
31   {
32     u3_noun hel;
33 
34     if ( u3_none == (hel = u3r_at(u3x_sam, cor)) ) {
35       return u3m_bail(c3__fail);
36     } else {
37       return u3qf_flip(hel);
38     }
39   }
40