On 29 Oct 2009 at 13:51, Sidney Reilley II wrote:
> hey all....
>
> the following code is an excerpt from Corre's publication, "Icon
> Programming for Humanists":
>
> #!/opt/local/bin/icon
>
> global letters
> procedure main()
> while word_length(read())
# word_length can stop the program
# before it moves to the next line
> printout()
# never reached?
> end
>
> procedure word_length(line)
> local length
> initial letters := list(20,0)
> if line == "." then stop("Bye")
# this line could cause the program to stop.
# (depending on your data)
> line ? while length := (write(*tab(many(&letters)))) do {
> tab(many(' .,;:!'))
> letters[length] +:= 1
> }
> return
> end
>
> procedure printout()
> local n
> every n:= 1 to 10 do
> write("There are ",letters[n],"",n,"letter words.")
> return
> end
>
> Nothing terribly difficult. I had to "local"ize n and length, and
> "global"ize letters, to stop the compiler from squawking.
>
> The program works, but for some reason printout() never gets called.
> Can anybody spot why? TIA.... -- Sid
>
>...Unicon-group mailing
> list [email protected]
> https://lists.sourceforge.net/lists/listinfo/unicon-group
>
Jay Hammond
[email protected]
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
Unicon-group mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/unicon-group
