digits =: 10&#.^:_1
next =: +/@:*:@:digits
chain =: next`]@.(=&89)
endNum =: (chain^:_)"0
problem92 =: +/89=endNum i.1e7 NB. Takes about 60 seconds on my machine