[Inquiry] Re: Theme One Program -- Commentary -- Suit

[Jon Awbrey]

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o

TOP.  Commentary Note 35

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o

Suit.

Suit is a transformation of ideas that operates on the assumption that
its input idea points to a form in a cycle of forms.  Its functional
value is the address of the first form in the given cycle, if any,
starting with the indicated form, whose 'sign' field contains
a right parenthesis, otherwise it returns a value of nil.

The following figure illustrates a successful search:

 o-------------------------------------------------o
 |   o-----o   o-----o         o-----o   o-----o   |
 o-->| a   |-->| b   |-->···-->| m   |-->| )   |---o
     o-----o   o-----o         o-----o   o-----o
     ^                                   ^
this |                                   | suit (this)
     @                                   @

function suit (this: idea): idea;
begin
 suit := find (right, this)
end;

o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o
inquiry e-lab: http://stderr.org/pipermail/inquiry/
o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o~~~~~~~~~o