Re: Elegant code Was: Re: what kind of non microconroller app are done in forth?

Jonah Thomas <jethomas5@[EMAIL PROTECTED]
> wrote Re: Elegant code  Was: Re: what
kind of non microconroller app are done in forth?
[..]
> I want to ask anyone who's interested about a programming puzzle I ran
> into when I tried something similar.

> : GOOD-STRING2 0 0 { ca len xt ca' len' }
>   ca TO ca' len TO len' BEGIN 
>     len' 0 > WHILE   
>       ca' xt EXECUTE WHILE
>         ca' len' 1 /STRING TO len' TO ca'
>     REPEAT
>   THEN
>   ca len len' - ; 

Or:

: GOOD-STRING2 ( ca len xt -- ca' len' )
	LOCALS| xt len |
	len BOUNDS DO  	I xt EXECUTE 
			0= IF  I len UNLOOP EXIT  ENDIF
			-1 +TO len  
		 LOOP  	
	0. ;

-marcel