⍝ Conditional function power:

    ,∘'.' while (80>⍴) 'Note'               ⍝ Extend while less than 80 wide.
Note............................................................................

    1 disp ↓ while {1<⍴⍴⍵} 2 2 2 2⍴⍳16      ⍝ Split while high rank.
┌→────────────────────┬────────────────────────────┐
│┌→────────┬─────────┐│┌→───────────┬─────────────┐│
││┌→──┬───┐│┌→──┬───┐│││┌→───┬─────┐│┌→────┬─────┐││
│││1 2│3 4│││5 6│7 8│││││9 10│11 12│││13 14│15 16│││
││└~─→┴~─→┘│└~─→┴~─→┘│││└~──→┴~───→┘│└~───→┴~───→┘││
│└────────→┴────────→┘│└───────────→┴────────────→┘│
└────────────────────→┴───────────────────────────→┘

    {⍵+1} while {0} 0                       ⍝ {⍵+1} applied 0 times.
0

⍝∇ while

Back to: code

Back to: Workspaces