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

[Jon Awbrey]

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

TOP.  Commentary Note 27

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

List.

Step 1.
          o-------------------------------o
          |   o-----o           o-----o   |
          o-->|     |--> ··· -->|     |---o
              o-----o           o-----o
                                ^
                           this |               mark = "a"
                                @

Step 2.
          o-------------------------------o   o-------------o
          |   o-----o           o-----o   |   |   o-----o   |
          o-->|     |--> ··· -->|     |---o   o-->| a 0 |---o
              o-----o           o-----o           o-----o
                                ^                 ^
                           this |             bud |
                                @                 @

Step 3.
          o-------------------------------------------------o
          |   o-----o           o-----o           o-----o   |
          o-->|     |--> ··· -->|     |---------->| a 0 |---o
              o-----o           o-----o           o-----o
                                                  ^
                                             list |
                                                  @

function list (this: idea;
               mark: char): idea;
begin
 list := graft (this, bud (mark))
end;

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