Re: Recursion

From	Paul Rubin <no.email@nospam.invalid>
Newsgroups	comp.lang.forth
Subject	Re: Recursion
References	<0411f347-b5ae-46ab-8b63-574b2c032308@f5g2000vbt.googlegroups.com>
Date	2012-04-05 23:44 -0700
Message-ID	<7xsjghgxzu.fsf@ruckus.brouhaha.com> (permalink)
Organization	Nightsong/Fort GNOX

Show all headers | View raw

Mark Wills <markrobertwills@yahoo.co.uk> writes:
> Does anyone have any simple examples of recursion using RECURSE?
> Preferably something where one can see the 'un-winding' as each
> instance exits.

This relates to Euler problem 303.  Enumerate in increasing order, the
numbers that can be written in base 10 using just the digits 0, 1, and 2.

  : r ( n -- n ) 3 /mod dup if recurse 10 * + else drop then ;
  : test ( -- ) 50 0 do i r . loop ;

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

Thread

Recursion Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-05 08:15 -0700
  Re: Recursion Luca Saiu <positron@gnu.org> - 2012-04-05 21:12 +0200
    Re: Recursion Luca Saiu <positron@gnu.org> - 2012-04-05 21:30 +0200
      Re: Recursion Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-05 13:51 -0700
  Re: Recursion "David N. Williams" <williams@umich.edu> - 2012-04-05 17:02 -0400
  Re: Recursion "P.M.Lawrence" <pml540114@gmail.com> - 2012-04-05 23:26 -0700
  Re: Recursion Hugh Aguilar <hughaguilar96@yahoo.com> - 2012-04-05 23:38 -0700
    Re: Recursion Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-06 00:25 -0700
      Re: Recursion Hugh Aguilar <hughaguilar96@yahoo.com> - 2012-04-06 01:35 -0700
        Re: Recursion Ian Osgood <iano@quirkster.com> - 2012-04-11 17:39 -0700
          Re: Recursion Hugh Aguilar <hughaguilar96@yahoo.com> - 2012-04-12 18:51 -0700
      Re: Recursion "P.M.Lawrence" <pml540114@gmail.com> - 2012-04-06 17:34 -0700
  Re: Recursion Paul Rubin <no.email@nospam.invalid> - 2012-04-05 23:44 -0700
    Re: Recursion Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-04-06 06:16 -0500
      Re: Recursion anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-04-06 14:47 +0000
  Re: Recursion Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-04-06 10:03 +0000

csiph-web