Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!newsfeed.fsmpi.rwth-aachen.de!eternal-september.org!feeder.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Paul Rubin <no.email@nospam.invalid>
Newsgroups: comp.lang.forth
Subject: Re: revisiting a prgramming problem
Date: Tue, 21 Oct 2014 09:09:04 -0700
Organization: Nightsong/Fort GNOX
Lines: 7
Message-ID: <7xsiih2yn3.fsf@ruckus.brouhaha.com>
References: <2ccb76c4-b929-43fe-b53e-9fd85ace01a6@googlegroups.com> <43dda9f8-27b0-4014-aa4a-9d534193ba1a@googlegroups.com> <5446822d$0$2885$e4fe514c@news2.news.xs4all.nl>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Injection-Info: mx02.eternal-september.org; posting-host="8ff39c3b56f8fea9a226ae9d8294e48e"; logging-data="21292"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+CVxMZnG/8B0s/BqJ7PEHz"
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux)
Cancel-Lock: sha1:F6GCNej/p/G6gt7Yw7/0onXpxBA= sha1:qjcruJyOPdwR94Ul10phlm7ht0s=
Xref: csiph.com comp.lang.forth:34059

Hans Bezemer <the.beez.speaks@gmail.com> writes:
> Duh.. : sumofsquare over max dup * >r max dup * r> + ;

1 2 3 sumofsquare . 13  ok
2 3 1 sumofsquare . 18  ok

Oops.