Member 8575121 wrote:First: Any programming language can be (ab)used to write really obfuscated code.
Some programmer subcultures tend to write unreadable code, whatever language is
used, but if that is PHP, it leads other people to associate unreadable code
with that language. Furthermore, if most subcultures (ab)use the language
that way, the few programmers that use it properly might not be strong enough to
save the reputation of the language.
And some just come that way out of the box. :p
I like this:
IX1 D IXDUP ;22*130
F DDUCRFE=0:0 S DDUCRFE=$O(^DD(DDUCFI,0,"IX",DDUCXREF,DDUCRFI,DDUCRFE)) Q:DDUCRFE'>0 D
. I $D(^DD(DDUCRFI,DDUCRFE,0))[0 D WFI W """IX"" Subscript: "_DDUCXREF_" " D WFE,WMS D:DDUCFIX IX2 Q
. I $D(^DD(DDUCRFI,DDUCRFE,1,0))=0,$D(^DD(DDUCRFI,DDUCRFE,1))=10 S:DDUCFIX ^DD(DDUCRFI,DDUCRFE,1,0)="^.1"
. S DDUCRFE1=0,DDUCRFEX="" F S DDUCRFE1=$O(^DD(DDUCRFI,DDUCRFE,1,DDUCRFE1)) Q:DDUCRFE1'>0 S DDUCRFEX=$G(^(DDUCRFE1,0)) I $P(DDUCRFEX,U,2)=DDUCXREF K DDUCRFEX Q
. I $D(DDUCRFEX) W !?5,"Cross-reference logic is missing for """,DDUCXREF,""" x-ref" D:DDUCFIX IX2 Q
K DDUCRFE1 Q
Well, when I say "like", I mean No, you will never ever ever get me to program with m-code.