Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #10560
| From | Helmar Wodtke <helmwo@gmail.com> |
|---|---|
| Newsgroups | comp.lang.forth |
| Subject | Re: Sum of squares |
| Date | 2012-03-27 03:15 -0700 |
| Organization | http://groups.google.com |
| Message-ID | <23403720.182.1332843312154.JavaMail.geo-discussion-forums@ynlw24> (permalink) |
| References | <10851509008435@frunobulax.edu> <7x62dqapjr.fsf@ruckus.brouhaha.com> |
Am Dienstag, 27. März 2012 01:52:08 UTC+2 schrieb Paul Rubin:
> mhx@iae.nl (Marcel Hendrix) writes:
> > Define a procedure that takes three numbers as arguments and returns
> > the sum of the squares of the two larger numbers.
>
> : 2sort ( x y -- largest smallest ) 2dup < if swap endif ;
> : 3sort ( x y z -- largest middle smallest )
> 2sort -rot 2sort rot 2sort ;
> : square ( n -- n^2 ) dup * ;
> : sum2 ( x y z -- largest^2 + middle^2 )
> 3sort drop square swap square + ;
Mhm, why not (using your idea):
: keep 2dup > if swap then ;
: ^2 dup * ;
: result keep -rot keep nip
^2 swap ^2 + ;
Regards,
-Helmar
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar
Sum of squares mhx@iae.nl (Marcel Hendrix) - 2012-03-26 20:50 +0200
Re: Sum of squares "A. K." <akk@nospam.org> - 2012-03-26 21:43 +0200
Re: Sum of squares Paul Rubin <no.email@nospam.invalid> - 2012-03-26 16:52 -0700
Re: Sum of squares Helmar Wodtke <helmwo@gmail.com> - 2012-03-27 03:15 -0700
Re: Sum of squares Paul Rubin <no.email@nospam.invalid> - 2012-03-28 08:16 -0700
Re: Sum of squares BruceMcF <agila61@netscape.net> - 2012-03-28 06:06 -0700
Re: Sum of squares Zbiggy <zbigniew2011REMOVE@gmail.REMOVE.com> - 2012-03-27 12:13 +0100
Re: Sum of squares Helmar Wodtke <helmwo@gmail.com> - 2012-03-27 04:03 -0700
Re: Sum of squares Zbiggy <zbigniew2011REMOVE@gmail.REMOVE.com> - 2012-03-27 13:55 +0100
Re: Sum of squares Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-03-27 11:05 +0000
Re: Sum of squares Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-03-28 11:41 +0000
Re: Sum of squares Paul Rubin <no.email@nospam.invalid> - 2012-03-28 07:41 -0700
Re: Sum of squares mhx@iae.nl (Marcel Hendrix) - 2012-03-29 22:06 +0200
Re: Sum of squares Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-03-31 11:48 +0000
Re: Sum of squares Alexander Adler <alexander.adler@stud.uni-frankfurt.de> - 2012-03-29 19:33 +0200
Re: Sum of squares Helmar Wodtke <helmwo@gmail.com> - 2012-03-29 11:16 -0700
Re: Sum of squares Albert van der Horst <albert@spenarnc.xs4all.nl> - 2012-04-03 09:47 +0000
Re: Sum of squares Helmar Wodtke <helmwo@gmail.com> - 2012-03-28 09:42 -0700
Re: Sum of squares Helmar Wodtke <helmwo@gmail.com> - 2012-03-28 11:08 -0700
Re: Sum of squares Ecki <ecki@intershop.de> - 2012-03-27 16:15 +0200
Re: Sum of squares Helmar Wodtke <helmwo@gmail.com> - 2012-03-27 07:35 -0700
Re: Sum of squares hwfwguy@gmail.com - 2012-03-27 08:00 -0700
Re: Sum of squares Helmar Wodtke <helmwo@gmail.com> - 2012-03-27 08:21 -0700
Re: Sum of squares Ecki <ecki@intershop.de> - 2012-03-29 09:05 +0200
csiph-web