Re: Sum of squares

From	Helmar Wodtke <helmwo@gmail.com>
Newsgroups	comp.lang.forth
Subject	Re: Sum of squares
Date	2012-03-27 04:03 -0700
Organization	http://groups.google.com
Message-ID	<27162337.0.1332846184146.JavaMail.geo-discussion-forums@yngr3> (permalink)
References	<10851509008435@frunobulax.edu> <slrnjn3bv2.2uh.zbigniew2011REMOVE@Tichy.myhome.org>

Show all headers | View raw

Am Dienstag, 27. März 2012 13:13:15 UTC+2 schrieb Zbiggy:
> In comp.lang.forth, Marcel Hendrix wrote:
> 
> >   Define a procedure that takes three numbers as arguments and returns 
> >   the sum of the squares of the two larger numbers.
> 
> : 3dup ( n1 n2 n3 -- n1 n2 n3 n1 n2 n3 )   dup 2over rot ;
> : square ( n -- n^2 )   dup * ;
> : solution
>   3dup min min swap 2swap
>   square swap square rot square + + swap square -
> ;
> 
> -- 
> Forth is a preserver of health (Hippocrates)

I've just for fun also a SWAP- and ROT-free version ;)

: ^2      dup * ;
: result  2dup max ^2 >r min max ^2 r> + ;

Regards,
-Helmar

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

Thread

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