Wide Periodic Table by tybalt89

@t=($"x129 .$/)x22;s/Am/am/,$n+=/\d/?$_*8:map{substr$t[$x++%4+3*($n>>7)],$n%128,5,$_}$@='+---+',(map{sprintf'|%3s|',$_}++$c,$_),$@for'He15H LiBe12B C N O F NeNaMg12AlSiP S ClArK Ca7ScTiV CrMnFeCoNiCuZnGaGeAsSeBrKrRbSr7Y ZrNbMoTcRuRhPdAgCdInSnSbTeI XeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaW ReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaU NpPuAmCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnUutUuqUupUuhUusUuo'=~/[A-Z][a-z ]*|\d+/g;print@t

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page