Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!rutgers!ames!ucbcad!ucbvax!hplabs!hpcea!hpisla!parrish
From: parrish@hpisla.UUCP
Newsgroups: comp.lang.prolog
Subject: tak function
Message-ID: <5440003@hpisla.HP.COM>
Date: Thu, 23-Apr-87 11:44:35 EST
Article-I.D.: hpisla.5440003
Posted: Thu Apr 23 11:44:35 1987
Date-Received: Sat, 25-Apr-87 08:36:09 EST
Organization: HP Instrument Systems Lab - Loveland, CO
Lines: 13


Could anyone please tell me the origin and purpose(s) of the takeuchi (sp?)
function which goes something like this:
  
  tak(I, J, K, L) :- I<=J, L is K.
  tak(I, J, K, L) :- tak(I-1, J, K, L1),
                     tak(J-1, K, I, L2),
                     tak(K-1, I, J, L3),
                     tak(L1, L2, L3, L).

Thanks in advance.

Frank.