perl -e 'sub b{my($w,$x,$v)=@_;while(($y=$w*$w)+($z=$x*$x)<4&&(++$v<9)){$x=2*$w*$x+$_[1];$w=$y-$z+$_[0];}return$v+0;}foreach(0..3119){print"\033[4".b(($_%78-40)/20,(int($_/78)-19)/10)."m ".(($_%78^77)?"":" \033[0m\n");}'
Once you see what it does, it's totally obvious how it works. Until then, it's more than a little obscure.
Sorry folks, unless "command line", and "Perl" are in your vocabulary, it'll take more than a little explaining before this will make any sense at all.
Leave a Reply