⍝ ⍺-separated segments of ⍵:

    song ← 'Any old iron, any old iron? Any old, any old, iron?'

    '?'segs song
┌──────────────────────────┬───────────────────────┐
│Any old iron, any old iron│ Any old, any old, iron│
└──────────────────────────┴───────────────────────┘
    ','segs¨ '?'segs song
┌────────────────────────────┬─────────────────────────┐
│┌────────────┬─────────────┐│┌────────┬────────┬─────┐│
││Any old iron│ any old iron│││ Any old│ any old│ iron││
│└────────────┴─────────────┘│└────────┴────────┴─────┘│
└────────────────────────────┴─────────────────────────┘
    ' 'segs¨¨ ','segs¨ '?'segs song
┌───────────────────────────────┬────────────────────────────┐
│┌──────────────┬──────────────┐│┌─────────┬─────────┬──────┐│
││┌───┬───┬────┐│┌───┬───┬────┐│││┌───┬───┐│┌───┬───┐│┌────┐││
│││Any│old│iron│││any│old│iron│││││Any│old│││any│old│││iron│││
││└───┴───┴────┘│└───┴───┴────┘│││└───┴───┘│└───┴───┘│└────┘││
│└──────────────┴──────────────┘│└─────────┴─────────┴──────┘│
└───────────────────────────────┴────────────────────────────┘

    vec ← 'aa:bb→cc  dd:ee→ff gg:hh→kk'

    ' 'segs vec
┌────────┬────────┬────────┐
│aa:bb→cc│dd:ee→ff│gg:hh→kk│
└────────┴────────┴────────┘
    ' :→'segs vec
┌──┬──┬──┬──┬──┬──┬──┬──┬──┐
│aa│bb│cc│dd│ee│ff│gg│hh│kk│
└──┴──┴──┴──┴──┴──┴──┴──┴──┘
    ':→'∘segs¨' 'segs vec
┌──────────┬──────────┬──────────┐
│┌──┬──┬──┐│┌──┬──┬──┐│┌──┬──┬──┐│
││aa│bb│cc│││dd│ee│ff│││gg│hh│kk││
│└──┴──┴──┘│└──┴──┴──┘│└──┴──┴──┘│
└──────────┴──────────┴──────────┘
    1 disp' 'segs''   ⍝ null
┌⊖┐
│ │
└⊖┘

    vex←'A:B→C' 'D:E→F' '' 'G:H→I' '' '' 'J:K→L M:N→O'
    vex
┌─────┬─────┬┬─────┬┬┬───────────┐
│A:B→C│D:E→F││G:H→I│││J:K→L M:N→O│
└─────┴─────┴┴─────┴┴┴───────────┘
    ' 'segs¨ vex
┌───────┬───────┬┬───────┬┬┬─────────────┐
│┌─────┐│┌─────┐││┌─────┐│││┌─────┬─────┐│
││A:B→C│││D:E→F││││G:H→I│││││J:K→L│M:N→O││
│└─────┘│└─────┘││└─────┘│││└─────┴─────┘│
└───────┴───────┴┴───────┴┴┴─────────────┘
    (⊂0⍴⊂'')segs ' 'segs¨ vex
┌─────────────────┬─────────┬───────────────┐
│┌───────┬───────┐│┌───────┐│┌─────────────┐│
││┌─────┐│┌─────┐│││┌─────┐│││┌─────┬─────┐││
│││A:B→C│││D:E→F│││││G:H→I│││││J:K→L│M:N→O│││
││└─────┘│└─────┘│││└─────┘│││└─────┴─────┘││
│└───────┴───────┘│└───────┘│└─────────────┘│
└─────────────────┴─────────┴───────────────┘
    ':→'∘segs¨¨ ' 'segs¨ vex
┌─────────┬─────────┬┬─────────┬┬┬─────────────────┐
│┌───────┐│┌───────┐││┌───────┐│││┌───────┬───────┐│
││┌─┬─┬─┐│││┌─┬─┬─┐││││┌─┬─┬─┐│││││┌─┬─┬─┐│┌─┬─┬─┐││
│││A│B│C│││││D│E│F││││││G│H│I│││││││J│K│L│││M│N│O│││
││└─┴─┴─┘│││└─┴─┴─┘││││└─┴─┴─┘│││││└─┴─┴─┘│└─┴─┴─┘││
│└───────┘│└───────┘││└───────┘│││└───────┴───────┘│
└─────────┴─────────┴┴─────────┴┴┴─────────────────┘
    (⊂0⍴⊂0⍴⊂0⍴' ')segs ':→'∘segs¨¨ ' 'segs¨ vex
┌─────────────────────┬───────────┬───────────────────┐
│┌─────────┬─────────┐│┌─────────┐│┌─────────────────┐│
││┌───────┐│┌───────┐│││┌───────┐│││┌───────┬───────┐││
│││┌─┬─┬─┐│││┌─┬─┬─┐│││││┌─┬─┬─┐│││││┌─┬─┬─┐│┌─┬─┬─┐│││
││││A│B│C│││││D│E│F│││││││G│H│I│││││││J│K│L│││M│N│O││││
│││└─┴─┴─┘│││└─┴─┴─┘│││││└─┴─┴─┘│││││└─┴─┴─┘│└─┴─┴─┘│││
││└───────┘│└───────┘│││└───────┘│││└───────┴───────┘││
│└─────────┴─────────┘│└─────────┘│└─────────────────┘│
└─────────────────────┴───────────┴───────────────────┘

⍝∇ segs

Back to: code

Back to: Workspaces