Depth of nested list

[Gilles]

A solution in "RPL + ListExt library" or "newRPL + LstX library"

Code:

« 1 → n 
 « WHILE DUP LXIL SWAP OVER SAME NOT REPEAT 1 'n' STO+ END DROP n »
»

The idea is very simple : 'explode' inner list (LXIL) while something changes.

If you dont want to install the library, LXIL is :

Code:

'LXIL' « 1 « IF DUP TYPE 62 == THEN LIST→ DROP END » DOSUBS »