Binary dictionary

Description

Dictionary lookup in a binary tree

Source: The Art of Prolog

Download

Program source code: binary_dictionary.pl

Listing

/*	
    lookup(Key,Dictionary,Value) :-
	Dictionary contains the value indexed under Key.
	Dictionary is represented as an ordered binary tree.
 
*/
 
	lookup(Key,dict(Key,X,Left,Right),Value) :-
		!, X = Value.
	lookup(Key,dict(Key1,X,Left,Right),Value) :-
		Key < Key1 , lookup(Key,Left,Value).
	lookup(Key,dict(Key1,X,Left,Right),Value) :-
		Key > Key1, lookup(Key,Right,Value).
 
%	Program 15.9: Dictionary lookup in a binary tree

Comments

pl/prolog/pllib/binary_dictionary.txt · ostatnio zmienione: 2017/07/17 08:08 (edycja zewnętrzna)
www.chimeric.de Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0