Groups > comp.lang.forth > #20949

Re: Pfannkuch revisited

From	"WJ" <w_a_x_man@yahoo.com>
Newsgroups	comp.lang.forth
Subject	Re: Pfannkuch revisited
Date	2013-03-21 08:39 +0000
Organization	A noiseless patient Spider
Message-ID	<kiegv5$u0v$1@dont-email.me> (permalink)
References	<83979309918435@frunobulax.edu>

Show all headers | View raw

Marcel Hendrix wrote:

> -- N = 10
> 64BIT? 
>   [IF]
> : special-move ( -- )
> 	  perm1 1+   @   perm 1+   !
> 	  perm1 9 + C@   perm 9 + C! ; 
> [ELSE]
> : special-move ( -- )
> 	  perm1 1+   @   perm 1+   !
> 	  perm1 5 +  @   perm 5 +  ! 
> 	  perm1 9 + C@   perm 9 + C! ; 
> [THEN]

Pascal:

perm := permp ;

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

Thread

Re: Pfannkuch revisited "WJ" <w_a_x_man@yahoo.com> - 2013-03-21 08:39 +0000
  Re: Pfannkuch revisited m.a.m.hendrix@tue.nl - 2013-03-21 02:29 -0700

csiph-web