up

A priority search queue and LRU cache.
git clone git://git.jtobin.io/up.git
Log | Files | Refs

up_qor_has.c (391B)

      1 #include "all.h"
      2 
      3 c3_o
      4 u3qdu_qor_has(u3_noun a, u3_noun k)
      5 {
      6   u3_noun pre = u3qdu_qor_get(a, k);
      7 
      8   if (u3_nul == pre) {
      9     return c3n;
     10   }
     11   else {
     12     u3z(pre);
     13 
     14     return c3y;
     15   }
     16 }
     17 
     18 u3_noun
     19 u3wdu_qor_has(u3_noun cor)
     20 {
     21   u3_noun a, k;
     22 
     23   if (c3n == u3r_mean(cor, u3x_sam_2, &a, u3x_sam_3, &k, 0))
     24   {
     25     return u3m_bail(c3__exit);
     26   } else {
     27     return u3qdu_qor_has(a, k);
     28   }
     29 }
     30 
     31 
     32