|
x← (?37 3⍴3) × 1+⎕ct×?37 3⍴2
k← ⍉ cluster⍤1 ⍉x
(k⍳k) {⊂⍵}⌸ x
┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┐
│0 1 1│1 2 0│1 1 0│0 0 0│2 2 1│2 0 2│2 0 0│0 0 2│1 1 1│1 0 2│0 2 1│1 0 1│2 1 0│2 1 2│1 0 0│0 2 0│1 2 1│1 2 2│0 0 1│2 2 0│0 1 2│
│0 1 1│1 2 0│1 1 0│ │ │2 0 2│ │0 0 2│1 1 1│1 0 2│ │1 0 1│ │ │ │ │1 2 1│ │0 0 1│ │0 1 2│
│0 1 1│1 2 0│1 1 0│ │ │2 0 2│ │ │1 1 1│ │ │ │ │ │ │ │ │ │ │ │ │
└─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┴─────┘
{(⍕⌊⍵),'+'⍴⍨×⍵-⌊⍵}¨¨ (k⍳k) {⊂⍵}⌸ x
┌─────────┬─────────┬─────────┬───────┬────────┬─────────┬────────┬────────┬──────────┬─────────┬─────────┬────────┬────────┬
│┌─┬──┬──┐│┌──┬──┬─┐│┌──┬──┬─┐│┌─┬─┬─┐│┌─┬──┬─┐│┌──┬─┬──┐│┌──┬─┬─┐│┌─┬─┬──┐│┌──┬──┬──┐│┌──┬─┬──┐│┌─┬──┬──┐│┌─┬─┬──┐│┌──┬─┬─┐│
││0│1+│1+│││1+│2 │0│││1+│1 │0│││0│0│0│││2│2+│1│││2 │0│2 │││2+│0│0│││0│0│2+│││1 │1 │1+│││1+│0│2+│││0│2+│1+│││1│0│1+│││2+│1│0││...
│├─┼──┼──┤│├──┼──┼─┤│├──┼──┼─┤│└─┴─┴─┘│└─┴──┴─┘│├──┼─┼──┤│└──┴─┴─┘│├─┼─┼──┤│├──┼──┼──┤│├──┼─┼──┤│└─┴──┴──┘│├─┼─┼──┤│└──┴─┴─┘│
││0│1 │1 │││1 │2 │0│││1 │1 │0││ │ ││2+│0│2+││ ││0│0│2+│││1 │1 │1+│││1+│0│2 ││ ││1│0│1 ││ │
│├─┼──┼──┤│├──┼──┼─┤│├──┼──┼─┤│ │ │├──┼─┼──┤│ │└─┴─┴──┘│├──┼──┼──┤│└──┴─┴──┘│ │└─┴─┴──┘│ │
││0│1 │1 │││1+│2+│0│││1+│1+│0││ │ ││2 │0│2 ││ │ ││1+│1+│1+││ │ │ │ │
│└─┴──┴──┘│└──┴──┴─┘│└──┴──┴─┘│ │ │└──┴─┴──┘│ │ │└──┴──┴──┘│ │ │ │ │
└─────────┴─────────┴─────────┴───────┴────────┴─────────┴────────┴────────┴──────────┴─────────┴─────────┴────────┴────────┴
{⊂⍵}⌸ k⍳k
┌──────┬───────┬──────┬─┬─┬───────┬─┬────┬────────┬─────┬──┬─────┬──┬──┬──┬──┬─────┬──┬─────┬──┬─────┐
│0 5 22│1 17 23│2 3 33│4│6│7 13 18│8│9 26│10 24 32│11 16│12│14 21│15│19│20│25│27 36│28│29 31│30│34 35│
└──────┴───────┴──────┴─┴─┴───────┴─┴────┴────────┴─────┴──┴─────┴──┴──┴──┴──┴─────┴──┴─────┴──┴─────┘
|