Path: g2news2.google.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
From: Colin MacIntyre <mr.gao...@gmail.com>
Newsgroups: comp.lang.forth
Subject: Re: Someone complained about not enough Forth code
Date: Wed, 18 May 2011 02:17:08 -0700 (PDT)
Organization: http://groups.google.com
Lines: 15
Message-ID: <8222508f-e353-4dbf-95bd-d9700a8d8744@glegroupsg2000goo.googlegroups.com>
Reply-To: comp.lang.forth@googlegroups.com
NNTP-Posting-Host: 65.49.68.160
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1305710236 30043 127.0.0.1 (18 May 2011 09:17:16 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Wed, 18 May 2011 09:17:16 +0000 (UTC)
In-Reply-To: <c3f4dcf5-ebc1-4612-99da-276841c1a09b@24g2000yqk.googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=65.49.68.160; posting-account=TxdANQoAAACpRZOJyMomGwnSvwZ8CcJr
User-Agent: G2/1.0

On Wednesday, May 18, 2011 5:09:51 PM UTC+8, ron wrote:
> On May 18, 11:07=A0am, Colin MacIntyre <mr.g...@gmail.com> wrote:
> > SPEC: Return a random number between 0 and 1, weighted to the latter 10=
0% of the time.
> >
> > needs random/gm
> >
> > : randbyte =A0rand temp tuck ! c@ ;
> > : 1or0 =A0 =A0 =A0rand abs 0 do randbyte dup -1 > over 2 < and if unloo=
p ;then drop loop 1or0 ;
> > : spec =A0 =A0 =A01or0 drop 1 ;
>=20
> You may want to point out that you're writing Reva code, not ANS ...

That is true!