⍝ Association lists:

    ⊢ found ← ('milly' 'molly' 'may') ('star' 'thing' 'stone')
┌─────────────────┬──────────────────┐
│┌─────┬─────┬───┐│┌────┬─────┬─────┐│
││milly│molly│may│││star│thing│stone││
│└─────┴─────┴───┘│└────┴─────┴─────┘│
└─────────────────┴──────────────────┘
    ⊢ found ← found alpush 'maggie' 'shell'     ⍝ Maggie found a shell
┌────────────────────────┬────────────────────────┐
│┌──────┬─────┬─────┬───┐│┌─────┬────┬─────┬─────┐│
││maggie│milly│molly│may│││shell│star│thing│stone││
│└──────┴─────┴─────┴───┘│└─────┴────┴─────┴─────┘│
└────────────────────────┴────────────────────────┘
    ⊢ item found ← found alpop'molly'           ⍝ Pop Molly and her finding
┌─────┬───────────────────────────────────────┐
│thing│┌──────────────────┬──────────────────┐│
│     ││┌──────┬─────┬───┐│┌─────┬────┬─────┐││
│     │││maggie│milly│may│││shell│star│stone│││
│     ││└──────┴─────┴───┘│└─────┴────┴─────┘││
│     │└──────────────────┴──────────────────┘│
└─────┴───────────────────────────────────────┘
    found alget 'may'                           ⍝ May's finding
stone
    ⊢ found ← found alset 'may' 'pebble'        ⍝ s/stone/pebble/
┌──────────────────┬───────────────────┐
│┌──────┬─────┬───┐│┌─────┬────┬──────┐│
││maggie│milly│may│││shell│star│pebble││
│└──────┴─────┴───┘│└─────┴────┴──────┘│
└──────────────────┴───────────────────┘
    found alget 'may'                           ⍝ alist updated
pebble

⍝∇ alset alget alpush alpop

Back to: code

Back to: Workspaces