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

[Jon Awbrey]

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

TOP.  Commentary Note 36

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

Coup.

Coup 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 next form after 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 typical result:

 o-------------------------------------------------o
 |   o-----o   o-----o         o-----o   o-----o   |
 o-->| a   |-->| b   |-->···-->| )   |-->| n   |---o
     o-----o   o-----o         o-----o   o-----o
     ^                                   ^
this |                                   | coup (this)
     @                                   @

function coup (this: idea): idea;
begin
 coup := next (suit (this))
end;

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