Re: Elementary but surprisingly difficult.

From: Slava Pestov <slava@xxxxxxxxx>
Date: Sat, 24 May 2008 15:23:29 -0700 (PDT)

On May 24, 4:36 pm, Bernd Paysan <bernd.pay...@xxxxxx> wrote:

: uniquify ( addr u -- addr u' )
over >r bounds dup dup c@ 2swap 1+ ?DO
I c@ tuck <> IF swap 1+ 2dup c! swap THEN LOOP
drop r> swap over - ;

This is why stack-based languages have a reputation of unreadability.

Slava
.

Follow-Ups:
- Re: Elementary but surprisingly difficult.
  - From: Doug Hoffman
- Re: Elementary but surprisingly difficult.
  - From: Bruce McFarling

References:
- Elementary but surprisingly difficult.
  - From: Albert van der Horst
- Re: Elementary but surprisingly difficult.
  - From: Slava Pestov
- Re: Elementary but surprisingly difficult.
  - From: Bernd Paysan

Prev by Date: Re: Elementary but surprisingly difficult.
Next by Date: Re: Elementary but surprisingly difficult.
Previous by thread: Re: Elementary but surprisingly difficult.
Next by thread: Re: Elementary but surprisingly difficult.
Index(es):
- Date
- Thread

Relevant Pages

Re: vm-pageout-throttling.patch: hanging in throttle_vm_writeout/blk_congestion_wait
... By swapping to a loop device over a file, ... and putting the filesystem back under swap. ... Device backed loop is capable of encrypting swap on 2.4 ... File backed loops can't be used for swap. ...
(Linux-Kernel)
Re: [PATCH, RFC/T] Fix handling of write failures to swap devices
... SIGBUS, so that will have to be found and fixed individually. ... Notice swap write errors during page reclaim, ... The patch below is a diff on top of the patch linked to above so you can ... locking to try_to_unusebut this is complicated by the retry loop. ...
(Linux-Kernel)
Re: Royal Institution Christmas lectures
... The bubble-sort algorithm seemed rather flawed --- the termination condition was something like "are they in the correct order?", rather than a check on whether a swap had occurred in the loop just completed. ... or only the first compared pair resulted in a swap, ... last = array + nmemb; ...
(comp.programming)
Re: [PATCH] swap: Fix swap size in case of block devices
... in setup_swap_extents's loop. ... if there is even a single page in swap file that is not usable ... its not correct to compare size repored by mkswap and ... reported by mkswap and swapon can vary wildly. ...
(Linux-Kernel)
Re: counted loops (was: Toward a Forth thats easier to learn)
... Underneath it is the closing index value. ... loop values. ... n 0 SWAP FOR 1 STEP ... ... Negative Loops ...
(comp.lang.forth)