balls2←{ d←1↓':;'(~⍤∊⍨⊆⊢)⍵ ×/⊃⌈/{d←2(⊢⍴⍨÷⍨∘≢,⊣)' ,'(~⍤∊⍨⊆⊢)⍵,', 0 green, 0 red, 0 blue' f←d[;2]{⍺,+/⍵}⌸⍎¨d[;1] f[;2][⍋f[;1]]}¨d }
threeight
lines←⊃⎕NGET'02.txt'1 rgb←{ n c←↓⍉↑' '(≠⊆⊢)¨1↓',:;'(~⍤∊⍨⊆⊢)⍵ ('rgb',⊃¨c)(⌈/⊢)⌸(3⍴0),⍎¨n }¨lines ⎕←+/⍸12 13 14∘(∧.≥)¨rgb ⎕←+/×/¨rgb
eight
e8t