$A++

[BooK]

This code has the side effect of incrementing $A. It also increments /A on its PostScript side, though /A is defined to avoid PostScript undefined error.

/${1}def/#{def}def/;{/A}def/++{add}def/A 0 def
; $ A ++ # % Did you know my printer counted?

There are more than fifty ways to obfuscate $A++ documented at Paris.pm. Have a look!

[stefp]

My turn to show off. Following the bilingual trend set by BooK I did a Perl/Lisp and a Perl/Forth $A++.

It is important not to be the man of only one language. :)

Lisp:


; q    
(setq A (if (boundp 'A) (+ 1 A) 1) ) ; $A++;

Forth:


( # ) VARIABLE A 0 A ! : $A++; A @ 1+ A ! ; : :-) ; : ); :-) ;
 ); 
 $A++;