Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #25803
| From | "WJ" <w_a_x_man@yahoo.com> |
|---|---|
| Newsgroups | comp.lang.forth |
| Subject | Re: well this code works and I had some guy say it doesn't |
| Date | 2013-09-19 09:16 +0000 |
| Organization | A noiseless patient Spider |
| Message-ID | <l1efdb$a6j$1@dont-email.me> (permalink) |
| References | <d7f43d90-5ea4-47f4-b309-de6fbad1f677@googlegroups.com> <5e19d09b-027f-420a-a569-5123a16319e6@googlegroups.com> <l1e7vl$6db$1@dont-email.me> |
rickman wrote:
> On 9/19/2013 2:35 AM, VoidVolker wrote:
> > четверг, 19 сентября 2013 г., 9:55:55 UTC+4 пользователь gavino_himself написал:
> > > $ gforth
> > > Gforth 0.7.2, Copyright (C) 1995-2008 Free Software Foundation, Inc.
> > > Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
> > > Type `bye' to exit
> > >
> > > : stock-gain 100 * swap / 100 - cr . ." precent" cr ; redefined stock-gain ok
> > > 34 55 stock-gain
> > > 61 precent
> >> ok
> > >
> > >
> > > IN YOUR FUCKING FACE!!
> >
> > Yes, the code is work, but it's calculate not percents =) Look here:
> >
> > 30 100 stock-gain
> > 233 precent
> >
> > 100 30 stock-gain .
> > -70 precent
> >
> > Now, let's calculate real percents - the word */ exist for it:
> > : p% 100 SWAP */ CR . ." %" CR ; ok
> > 34 55 p%
> > 61 %
> > ok
> >
> > Or:
> >
> > : p%2 10000 SWAP */ CR S>D<# [CHAR] % HOLD # # [CHAR] . HOLD #S #> TYPE CR ;
> > 34 55 p%2
> > 61.81%
> > ok
> >
> > 30 100 p%2
> > 30.00%
> > ok
> >
> > 100 30 p%2
> > 333.33%
> > ok
>
> I think you don't understand what Gavino's code is doing. It
> is calculating the percent gain or loss, not the simple
> percent ratio. To get gain you take the ratio, subtract one,
> then multiply by 100.
(I broke your lines for you. Anyone who knows anything whatsoever
about usenet knows that he must limit the length of his lines.)
Of course he doesn't understand. Forth is not used by men who
know much about computing; it is used by those who are too stupid
to learn another language.
Who would hire a workman who doesn't know how to use a screwdriver
and who uses a hammer for everything?
>
> / 1.0 - 100.0 * (floating point numbers, not literal forth)
>
>
Ruby:
def stock_gain before,after
(after * 100.0)/before - 100
end
==>nil
stock_gain 100,110
==>10.0
stock_gain 34,55
==>61.7647058823529
stock_gain 30,100
==>233.333333333333
stock_gain 100,30
==>-70.0
Forth is the perfect language for gavino.
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
well this code works and I had some guy say it doesn't gavino_himself <visploveslisp@gmail.com> - 2013-09-18 22:55 -0700
Re: well this code works and I had some guy say it doesn't gavino_himself <visploveslisp@gmail.com> - 2013-09-18 22:58 -0700
Re: well this code works and I had some guy say it doesn't VoidVolker <voidvolker@gmail.com> - 2013-09-18 23:35 -0700
Re: well this code works and I had some guy say it doesn't rickman <gnuarm@gmail.com> - 2013-09-19 03:09 -0400
Re: well this code works and I had some guy say it doesn't gavino_himself <visploveslisp@gmail.com> - 2013-09-19 01:11 -0700
Re: well this code works and I had some guy say it doesn't rickman <gnuarm@gmail.com> - 2013-09-19 04:32 -0400
Re: well this code works and I had some guy say it doesn't Elizabeth D Rather <erather@forth.com> - 2013-09-19 14:15 -1000
Re: well this code works and I had some guy say it doesn't "Ed" <invalid@invalid.com> - 2013-09-21 12:48 +1000
Re: well this code works and I had some guy say it doesn't "Elizabeth D. Rather" <erather@forth.com> - 2013-09-20 17:52 -1000
Re: well this code works and I had some guy say it doesn't rickman <gnuarm@gmail.com> - 2013-09-21 08:46 -0400
Re: well this code works and I had some guy say it doesn't Doug Hoffman <glidedog@gmail.com> - 2013-09-21 10:40 -0400
Re: well this code works and I had some guy say it doesn't rickman <gnuarm@gmail.com> - 2013-09-21 10:48 -0400
Re: well this code works and I had some guy say it doesn't Doug Hoffman <glidedog@gmail.com> - 2013-09-21 18:12 -0400
Re: well this code works and I had some guy say it doesn't albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-09-23 16:59 +0000
Re: well this code works and I had some guy say it doesn't "WJ" <w_a_x_man@yahoo.com> - 2013-09-21 17:48 +0000
Re: well this code works and I had some guy say it doesn't Doug Hoffman <glidedog@gmail.com> - 2013-09-21 19:34 -0400
Re: well this code works and I had some guy say it doesn't "Ed" <invalid@invalid.com> - 2013-09-22 11:51 +1000
Re: well this code works and I had some guy say it doesn't hughaguilar96@yahoo.com - 2013-09-21 21:09 -0700
Re: well this code works and I had some guy say it doesn't "Rod Pemberton" <dont_use_email@nohavenotit.com> - 2013-09-21 13:09 -0400
Re: well this code works and I had some guy say it doesn't "Elizabeth D. Rather" <erather@forth.com> - 2013-09-21 08:37 -1000
Re: well this code works and I had some guy say it doesn't albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-09-23 17:26 +0000
Re: well this code works and I had some guy say it doesn't the_gavino_himself <visphatesjava@gmail.com> - 2013-09-21 02:19 -0700
Re: well this code works and I had some guy say it doesn't "WJ" <w_a_x_man@yahoo.com> - 2013-09-19 09:16 +0000
Re: well this code works and I had some guy say it doesn't the_gavino_himself <visphatesjava@gmail.com> - 2013-09-20 23:08 -0700
Re: well this code works and I had some guy say it doesn't rickman <gnuarm@gmail.com> - 2013-09-21 08:47 -0400
Re: well this code works and I had some guy say it doesn't Spam@ControlQ.com - 2013-09-19 11:16 -0400
Re: well this code works and I had some guy say it doesn't the_gavino_himself <visphatesjava@gmail.com> - 2013-09-20 23:07 -0700
Re: well this code works and I had some guy say it doesn't "Rod Pemberton" <dont_use_email@nohavenotit.com> - 2013-09-20 04:37 -0400
Re: well this code works and I had some guy say it doesn't "Elizabeth D. Rather" <erather@forth.com> - 2013-09-19 22:45 -1000
Re: well this code works and I had some guy say it doesn't Howerd <howerdo@yahoo.co.uk> - 2013-09-20 01:49 -0700
Re: well this code works and I had some guy say it doesn't the_gavino_himself <visphatesjava@gmail.com> - 2013-09-20 23:10 -0700
Re: well this code works and I had some guy say it doesn't rickman <gnuarm@gmail.com> - 2013-09-20 08:19 -0400
Re: well this code works and I had some guy say it doesn't the_gavino_himself <visphatesjava@gmail.com> - 2013-09-20 23:11 -0700
Re: well this code works and I had some guy say it doesn't the_gavino_himself <visphatesjava@gmail.com> - 2013-09-20 23:09 -0700
Re: well this code works and I had some guy say it doesn't Mark Wills <markrobertwills@yahoo.co.uk> - 2013-09-24 07:46 -0700
csiph-web