convert into list

[Gintaras]

Code:

Copy      Help

dll msvcrt #isdigit char
dll msvcrt #isupper char
dll msvcrt #isalpha char

str s="r1bqk2r/pppp1ppp/2n2n2/2b1p3/2P1P3/2NP4/PP3PPP/R1BQKBNR w KQkq -"
str ss
int i c
for i 0 s.len
,c=s[i]
,if(isdigit(c)) ss.set('0' ss.len c-'0')
,else if(isupper(c)) ss+"1"
,else if(isalpha(c)) ss+"2"
,else ss.geta(s i 1)

ARRAY(str) a
tok(ss a -1 "/")
for i 0 a.len
,out a[i]