/ http://ll1.ai.mit.edu/shriram-talk.pdf

m:1 @'[4 256#0;_ic("";"c";"adr";"r");:;(!0;2;2 2 3;3)]\_ic

m'("car";"cdr";"cadr";"cddr";"cdar";"caddr")

t:"cadr"10000_draw 4
\t m t

t:"cadr"100000_draw 4
\t m t

t:"cadr"1000000_draw 4
\t m t

\

krishnamurthi's state machine:

i : c -> m
m : a -> m
    d -> m
    r -> e
e : r -> e

development time: 2 minutes + 10 seconds (improvement)
bugs: 1 (forgot to offset states by 1)
performance (pentium 4, 3ghz):
 10k: 0 ms
 100k: 15 ms
 1m: 187 ms

execute this script:

(1 2 2 3
 1 2 2 3
 1 2 2 2 3
 1 2 2 2 3
 1 2 2 2 3
 1 2 2 2 2 3)
0
15
187

parser:

a:"
icm
mam
 dm
 re
ere"

p:{
 a:1_'(&x="\n")_ x
 g:(i:&~" "=a[;0])_
 s:@'[((1+#i),256)#0;_ic(,""),g a[;1];:;(,!0),1+a[i;0]?/:/:g a[;2]]
 1 s\_ic}

p[a]'("car";"cdr";"cadr";"cddr";"cdar";"caddr")

development time:  10 minutes
bugs: 5
performance - same