Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #34704
| From | "WJ" <w_a_x_man@yahoo.com> |
|---|---|
| Newsgroups | comp.lang.forth |
| Subject | Re: Epic failure (was Epic Fail) |
| Date | 2014-11-30 02:13 +0000 |
| Organization | A noiseless patient Spider |
| Message-ID | <m5dufq$vcm$1@dont-email.me> (permalink) |
| References | <f357fc56-c996-4d72-a53d-194a13e276ec@googlegroups.com> <m5d9cn$o3s$1@dont-email.me> |
WJ wrote:
> The phrase "epic fail" is meaningless. "Fail" is not a noun.
> You know very little about the English language and very little
> about programming languages.
>
>
> > Why did Forth fail so badly?
> >
> > I mean the win of Java VS the fail of Forth is so
> > absolute as to be mind boggling. I'd like to hear
> > a real answer, and not that "Forth Sucks" because
> > I think that Forth is a darn good mousetrap. It
> > is still quite usable and is extremely flexible.
>
> I broke your lines for you. Anyone who knows anything about
> usenet knows that he must limit the length of his lines.
>
> You should have written "the failure of Forth".
> You will find it easier to communicate if you learn a
> human language.
>
> Forth is an extremely low-level and crude language, suitable only
> for programming embedded controllers.
>
> Gauche Scheme:
>
> (use srfi-42)
> (let1 table (make-hash-table)
> (dolist (ch (filter #[a-z] (string->list
> "The Wikipedia article on Java states that in 2014
> Java is the most popular programming language with
> 9 million developers. How many developers do you
> think actually make money programming in Forth?
> Probably about 9!")))
> (hash-table-update! table ch (pa$ + 1) 0))
> (do-ec (: ch #\a #\z)
> (print ch " " (make-string (hash-table-get table ch 0) #\*))))
>
>
> a *******************
> b ***
> c **
> d ****
> e **************
> f
> g ******
> h ******
> i *************
> j
> k ***
> l **********
> m *********
> n **********
> o ***************
> p *******
> q
> r **********
> s ******
> t ************
> u *****
> v ****
> w **
> x
> y *****
> z
>
> Now struggle to program the equivalent in Forth.
I apologize creating a challenge that's far too easy.
This one is a bit harder.
(use srfi-13)
(let1 table (make-hash-table 'string=?)
(dolist (word (string-tokenize (string-downcase
"How badly did we fail? Well, out of the
Billions and Billions of cellphones which
have ever been produced, not a single one
has been programmed in Forth or uses Forth
as an operating system! 99.99% of them are
programmed in Java? Why? I mean I had a
$15 cell phone. The hardware is probably
more powerful than my old Atari ST. It has
a faster processor and more RAM. There are
only about 5 games for it, and they are all
programmed in Java. Truth be known, these
games are so slow as to be nearly
unplayable. It would be undoable to put
Llamatron on the thing, not because of the
small screen size, but because it just
couldn't use a Java library to push around a
sufficient number of sprites very well. I
know that all of you I.T. people in here are
just going to say buy a more expensive
phone, but that's not my point.") #[a-zA-Z']))
(hash-table-update! table word (pa$ + 1) 0))
(let* ((words (sort
(filter (^x (> (cdr x) 1)) (hash-table->alist table))
(^(a b) (if (= (cdr a) (cdr b))
(string<? (car a) (car b))
(> (cdr a) (cdr b))))))
(word-size (apply max (map (.$ string-length car) words))))
(dolist (word words)
(format #t "~va ~a\n" word-size (car word) (make-string (cdr word) #\*)))))
a ******
of ******
are *****
i ****
in ****
it ****
the ****
to ****
and ***
be ***
java ***
more ***
not ***
programmed ***
all **
as **
because **
been **
billions **
but **
forth **
games **
has **
just **
my **
phone **
well **
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Re: Epic failure (was Epic Fail) "WJ" <w_a_x_man@yahoo.com> - 2014-11-29 20:13 +0000
Re: Epic failure (was Epic Fail) C G Montgomery <cgm@physics.utoledo.edu> - 2014-11-29 17:15 -0500
Re: Epic failure (was Epic Fail) Pablo Hugo Reda <pabloreda@gmail.com> - 2014-11-29 14:20 -0800
Re: Epic failure awegel@arcor.de (Alexander Wegel) - 2014-11-29 23:35 +0100
Re: Epic failure (was Epic Fail) Bernd Paysan <bernd.paysan@gmx.de> - 2014-11-30 00:31 +0100
Re: Epic failure (was Epic Fail) Julian Fondren <julian.fondren@gmail.com> - 2014-11-29 17:41 -0800
Re: Epic failure (was Epic Fail) mhx@iae.nl - 2014-11-30 00:04 -0800
Re: Epic failure (was Epic Fail) mhx@iae.nl - 2014-11-30 00:09 -0800
Re: Epic failure (was Epic Fail) Bernd Paysan <bernd.paysan@gmx.de> - 2014-11-30 17:22 +0100
Re: Epic failure (was Epic Fail) "WJ" <w_a_x_man@yahoo.com> - 2014-11-30 02:13 +0000
Re: Epic failure (was Epic Fail) Julian Fondren <julian.fondren@gmail.com> - 2014-11-29 18:55 -0800
Re: Epic failure (was Epic Fail) albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-11-30 16:50 +0000
Re: Epic failure (was Epic Fail) Bernd Paysan <bernd.paysan@gmx.de> - 2014-12-01 01:22 +0100
Re: Epic failure (was Epic Fail) Melzzzzz <mel@zzzzz.com> - 2014-12-02 06:00 +0100
Re: Epic failure (was Epic Fail) Melzzzzz <mel@zzzzz.com> - 2014-12-02 06:37 +0100
Re: Epic failure (was Epic Fail) albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-12-02 12:28 +0000
Re: Epic failure Paul Rubin <no.email@nospam.invalid> - 2014-12-02 18:03 -0800
Re: Epic failure (was Epic Fail) the_gavino_himself <visphatesjava@gmail.com> - 2014-12-05 10:10 -0800
Re: Epic failure (was Epic Fail) rickman <gnuarm@gmail.com> - 2014-12-05 16:23 -0500
Re: Epic failure (was Epic Fail) Jason Damisch <jasondamisch@yahoo.com> - 2014-12-05 13:46 -0800
Re: Epic failure (was Epic Fail) "WJ" <w_a_x_man@yahoo.com> - 2014-12-01 07:54 +0000
Re: Epic failure awegel@arcor.de (Alexander Wegel) - 2014-12-01 14:02 +0100
Re: Epic failure hughaguilar96@gmail.com - 2014-12-01 15:04 -0800
Re: Epic failure awegel@arcor.de (Alexander Wegel) - 2014-12-02 04:54 +0100
csiph-web