Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #37975
| From | "WJ" <w_a_x_man@yahoo.com> |
|---|---|
| Newsgroups | comp.lang.forth |
| Subject | Re: tiny usable ycombinator |
| Date | 2015-04-05 19:38 +0000 |
| Organization | A noiseless patient Spider |
| Message-ID | <mfs2vr$drb$1@dont-email.me> (permalink) |
| References | <e0d82db3-c7d5-44a4-b3ee-64bae33849b6@googlegroups.com> |
humptydumpty wrote: > Example of use, calculate 5 factorial : > > > 1 5 :noname ( 1 n xt -- partfact m xt| ) > >r dup 1 > > IF tuck * swap 1- r> ELSE 2rdrop THEN ; YC dup execute drop . 120 ok Oforth: > 1 #* 5 seq apply .s [1] (Integer) 120
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
tiny usable ycombinator humptydumpty <ouatubi@gmail.com> - 2015-04-04 14:39 -0700
Re: tiny usable ycombinator Paul Rubin <no.email@nospam.invalid> - 2015-04-05 11:15 -0700
Re: tiny usable ycombinator humptydumpty <ouatubi@gmail.com> - 2015-04-05 12:55 -0700
Re: tiny usable ycombinator franck.bensusan@gmail.com - 2015-04-06 01:35 -0700
Re: tiny usable ycombinator "WJ" <w_a_x_man@yahoo.com> - 2015-04-05 19:38 +0000
Re: tiny usable ycombinator Paul Rubin <no.email@nospam.invalid> - 2015-04-05 12:50 -0700
csiph-web