各桁の和の整数乗がその数自身となる4桁の整数解を求めるforth編

　前回のをforthで書いてみる。

: M 10 mod ;
: N
10000 1001 ?DO
i M i 10 / M i 100 / M i 1000 / M + + +
i over
BEGIN
/mod swap dup 0=
WHILE
drop 2dup = if i . endif
over
REPEAT
2drop drop
LOOP ;
N

Ideone.com - LfN1Y2 - Online Forth Interpreter & Debugging Tool