Skip to main content
Commonmark migration
Source Link

#Wolfram Language 101 bytes

Wolfram Language 101 bytes

There has got to be a much more efficient way to accomplish this.

(g=#;Column[Table[Grid@Map[Replace[#,Thread[Complement[u=Union@Flatten@g,{n}]->""]]&/@#&,g],{n,u}]])& 

#Wolfram Language 101 bytes

There has got to be a much more efficient way to accomplish this.

(g=#;Column[Table[Grid@Map[Replace[#,Thread[Complement[u=Union@Flatten@g,{n}]->""]]&/@#&,g],{n,u}]])& 

Wolfram Language 101 bytes

There has got to be a much more efficient way to accomplish this.

(g=#;Column[Table[Grid@Map[Replace[#,Thread[Complement[u=Union@Flatten@g,{n}]->""]]&/@#&,g],{n,u}]])& 
Source Link
DavidC
  • 25.5k
  • 2
  • 53
  • 106

#Wolfram Language 101 bytes

There has got to be a much more efficient way to accomplish this.

(g=#;Column[Table[Grid@Map[Replace[#,Thread[Complement[u=Union@Flatten@g,{n}]->""]]&/@#&,g],{n,u}]])&