anarchy golf - the source code

data order by pooq

dim a(300)
1input""a(i)
if a(i)i=i+1:goto 1
for b=0to i-1z=1
for c=0to i-1z=z+(a(b)<a(c))next
?z
next

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