Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #29564

Re: Bitonic sort

From Melzzzzz <mel@zzzzz.com>
Newsgroups comp.lang.forth
Subject Re: Bitonic sort
Date 2014-04-12 14:08 +0200
Organization albasani.net
Message-ID <liback$2ql$1@news.albasani.net> (permalink)
References <534678a1$0$2861$e4fe514c@news2.news.xs4all.nl> <24dfc741-4169-4fcc-aca8-17996c505549@googlegroups.com>

Show all headers | View raw

On Thu, 10 Apr 2014 12:39:33 -0700 (PDT)
mhx@iae.nl wrote:

> On Thursday, April 10, 2014 12:55:59 PM UTC+2, The Beez wrote:
> > [censored]
> 
> An unquotable, mind curdling mess :-)
> 
> : (bitonicMerge) ( a n f -- )
> 	OVER 1 <= IF  3DROP EXIT  ENDIF
> 	0 LOCALS| m f n a |
> 	1 
> 	BEGIN  n OVER >  
> 	WHILE  1 LSHIFT  
> 	REPEAT 1 RSHIFT TO m
> 	a n m - CELL[]  a 
> 	       ?DO 
> 	    	   I m CELLS + @  I @ precedes  
> 	           f = IF I m CELL[] @   I @   
> 		   	  I m CELL[] !   I !   
> 		    ENDIF
> 	CELL +LOOP
> 	a          m     f  RECURSE
> 	a m CELL[] n m - f  RECURSE ; 
> 

What is CELL[] ?

-- 
Click OK to continue...

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

Thread

Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-10 12:55 +0200
  Re: Bitonic sort mhx@iae.nl - 2014-04-10 12:39 -0700
    Re: Bitonic sort Melzzzzz <mel@zzzzz.com> - 2014-04-12 14:08 +0200
      Re: Bitonic sort mhx@iae.nl - 2014-04-12 05:42 -0700
        Re: Bitonic sort Melzzzzz <mel@zzzzz.com> - 2014-04-12 19:02 +0200
          Re: Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-12 19:43 +0200
            Re: Bitonic sort Melzzzzz <mel@zzzzz.invalid> - 2014-04-12 20:16 +0200
              Re: Bitonic sort mhx@iae.nl - 2014-04-12 11:54 -0700
                Re: Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-12 23:14 +0200
        Re: Bitonic sort "Rod Pemberton" <dont_use_email@xnothavet.cqm> - 2014-04-12 18:25 -0400
          Re: Bitonic sort anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2014-04-13 13:07 +0000
      Re: Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-12 16:45 +0200
  Re: Bitonic sort "Rod Pemberton" <dont_use_email@xnothavet.cqm> - 2014-04-10 19:29 -0400
    Re: Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-11 11:29 +0200
      Re: Bitonic sort albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-04-11 09:49 +0000
        Re: Bitonic sort m.a.m.hendrix@tue.nl - 2014-04-11 04:17 -0700
          Re: Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-11 16:18 +0200
          Re: Bitonic sort albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-04-11 16:29 +0000
            Re: Bitonic sort anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2014-04-11 17:18 +0000
              Re: Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-12 00:13 +0200
  Re: Bitonic sort humptydumpty <ouatubi@gmail.com> - 2014-04-11 03:28 -0700
    Re: Bitonic sort humptydumpty <ouatubi@gmail.com> - 2014-04-11 22:35 -0700
      Re: Bitonic sort mhx@iae.nl - 2014-04-12 02:30 -0700
        Re: Bitonic sort humptydumpty <ouatubi@gmail.com> - 2014-04-12 04:09 -0700
        Re: Bitonic sort Hans Bezemer <the.beez.speaks@gmail.com> - 2014-04-12 14:16 +0200
          Re: Bitonic sort humptydumpty <ouatubi@gmail.com> - 2014-04-12 12:35 -0700

csiph-web