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())
printout()
end
procedure word_length(line)
local length
initial letters := list(20,0)
if line == "." then stop("Bye")
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
------------------------------------------------------------------------------
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
