Path: csiph.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: minforth <minforth@gmx.net>
Newsgroups: comp.lang.forth
Subject: Re: Generating a random sequence of Forth words
Date: Wed, 1 Oct 2025 20:42:37 +0200
Lines: 12
Message-ID: <mk5b0uFubm8U1@mid.individual.net>
References: <2025Sep30.183350@mips.complang.tuwien.ac.at> <nnd$60c544bd$6fdf6f8e@13070880e71750ef>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: individual.net J7qJUQsUfCWUnzl7HGJH7wXVJbSwWhb6MXcjlK+sNW2yjNKvIF
Cancel-Lock: sha1:hY3CeHTjx9WlXCLf+p+qxbWyJ+c= sha256:5+C1B5Ko1abMZkdDZkr1oVb9cAJ6a7XNB6YCgc1flFQ=
User-Agent: Mozilla Thunderbird
In-Reply-To: <nnd$60c544bd$6fdf6f8e@13070880e71750ef>
Xref: csiph.com comp.lang.forth:134230

Am 01.10.2025 um 17:11 schrieb Hans Bezemer:
> I used something similar - but with a whole slew of stack operations. 
> Very handy thingy. I use it until this day.
> 
> ( abc -- abcabc)   >r over over r@ rot rot r> \ >r 2dup r@ -rot r>
> 

Different and probably not as efficient as your code generator:

MinForth 3.6
# : 3DUP { a b c == a b c a b c } ;