Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #21459

Re: if i learn forth, will I be able to solve 99%programming problems?

Show all headers | View raw

WJ wrote:

> Ruby is a high-level language, suitable for high-level tasks.
> This program counts how many distinct words are found in
> "Moby Dick" and finds the most common word.
> 
> table = {} ; table.default = 0
> IO.read("moby10b.txt").scan( /[a-z]+/i ).each{|s| table[s] += 1} ;
> p table.size, table.max_by{|k,v| v}

Here's a Tcl version.

package require fileutil
set table [dict create]
::fileutil::foreachLine myline "moby10b.txt" {
  foreach word [regexp -nocase -all -inline {[a-z]+} $myline] {
    dict incr table $word } }
set maxi 0
dict for {k v} $table {
  if {$v > $maxi} { set word $k ; set maxi $v } }
puts [format "%d\n%s %d" [dict size $table] $word $maxi]


Follow this link for a very nice Tcl/Tk program that displays a rotating
polyhedron:
http://wiki.tcl.tk/14283

Back to comp.lang.forth | Previous | Next | Find similar

Thread

Re: if i learn forth, will I be able to solve 99%programming problems? "WJ" <w_a_x_man@yahoo.com> - 2013-04-06 12:58 +0000

csiph-web