11.3.11 E ora per qualcosa di completamente differente

Il programma seguente è stato scritto da Davide Brini ed è pubblicato sul suo sito web. Serve come sua firma nel gruppo Usenet comp.lang.awk. Questi sono i termini da lui stabiliti per il copyright:

Copyright © 2008 Davide Brini

Copying and distribution of the code published in this page, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved.

Ecco il programma:

awk 'BEGIN{O="~"~"~";o="=="=="==";o+=+o;x=O""O;while(X++<=x+o+o)c=c"%c";
printf c,(x-O)*(x-O),x*(x-o)-o,x*(x-O)+x-O-o,+x*(x-O)-x+o,X*(o*o+O)+x-O,
X*(X-x)-o*o,(x+X)*o*o+o,x*(X-x)-O-O,x-O+(O+o+X+x)*(o+O),X*X-X*(x-O)-x+O,
O+X*(o*(o+O)+O),+x+O+X*o,x*(x-o),(o+X+x)*o*o-(x-O-O),O+(X-x)*(X+O),x-O}'

Viene lasciato al lettore il piacere di stabilire cosa fa il programma. (Se si è sull’orlo della disperazione nel tentativo di comprensione, si veda la spiegazione di Chris Johansen, che è contenuta nel file sorgente Texinfo di questo Documento.)