Groups > comp.lang.forth > #20884

Re: Pfannkuch revisited

From	"WJ" <w_a_x_man@yahoo.com>
Newsgroups	comp.lang.forth
Subject	Re: Pfannkuch revisited
Date	2013-03-20 05:38 +0000
Organization	A noiseless patient Spider
Message-ID	<kibi0k$341$1@dont-email.me> (permalink)
References	<83979309918435@frunobulax.edu> <ki9k38$gev$1@dont-email.me>

Show all headers | View raw

WJ wrote:

> 
> procedure print_vector( CONST vec : vector );
> var  i : int32 ;
> begin
>   for i := low( vec ) to high( vec ) do
>     write( vec[ i ] + 1 ) ;

Easier:

  for i in vec do  write( i + 1 ) ;



>   writeln
> end;



--

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar

Thread

Re: Pfannkuch revisited "WJ" <w_a_x_man@yahoo.com> - 2013-03-19 12:01 +0000
  Re: Pfannkuch revisited "WJ" <w_a_x_man@yahoo.com> - 2013-03-20 05:38 +0000

csiph-web