?- h := newHash([paul/34, john/25, mary/18]);

    true

  ?- ^h;

    {john/25, paul/34, mary/18}
      

  ?- hGet(^h, paul);

    34

  ?- hGet(^h, george);

    null

      

  ?- hasKey(^h, john);

    true

  ?- hasKey(^h, george);

    fail
      

  ?- hRemove(^h, john);

    25

  ?- ^h;

    {paul/34, mary/18}

  ?- hPut(^h, george, 48);

    true

  ?- ^h;

    {paul/34, george/48, mary/18}

  ?- hClear(^h);

    {}
      

  john() :- <person sex="male" age="25">john</person>;

  ?- getXAttrs(john());

    {age/25, sex/"male"}

  ?- hGet(getXAttrs(john()), "age");

    25
      

---

mПримечания

Работа в интерпретаторе:

---

m Что делалось