我是 smalltalk 的新手，我无法弄清楚为什么会出现此解析错误。错误是：
/newanimal.st:52: parse error, expected ')'
我试图遍历名为 grid 的集合，它是字典的集合，在每个字典中，我想比较每一行和 col 的值，以查看它们是否与传递给该方法的值匹配。现在我只能让它接受方法的一个参数，如果有人能告诉我如何传递多个参数，那也很棒。我也在使用 gnu smalltalk 和 gst 来测试这个。我正在运行的命令如下：(FileStream open: 'newanimal.st' mode: 'r') fileIn . !
第 52 行是：
(tempAnimal at: type := 'lynx') ifTrue: temp := tempAnimal at: row
这是其余的代码供参考。
Object subclass: #simulation .
simulation instanceVariableNames: ' ' .
simulation class instanceVariableNames: '' .
simulation comment: 'This is the class that runs the simulation' .
simulation class extend [
initialize [
]
new [
]
setup [
]
step [
]
status [
]
rand [
|num|
num := Random new .
num := (num nextValue) * 10 .
num := num asInteger.
^ num .
]
]
simulation extend [
]
Object subclass: #grid .
grid instanceVariableNames: ' ' .
grid class instanceVariableNames: ' grida ' .
grid comment: 'I represent the grid and animal locations' .
grid class extend [
initialize [
grida := Set new .
]
new [ "Builds arrays of correct size"
(grida = nil) ifTrue: self initialize .
^ super new grida .
]
getLynxesAtRow:col ["Returns number of lynxes in a grid cell"
| tempAnimal temp count |
count := 0
grid do: [ :each |
tempAnimal := grid at: each .
(tempAnimal at: type := 'lynx') ifTrue: temp := tempAnimal at: row
(temp := row) ifTrue: temp := tempAnimal at: col
(temp := col) ifTrue: count := count + 1
].
^ count .
]
getRabbitsAtRow:col ["Returns number of rabbits in a grid cell"
| tempAnimal temp count |
count := 0
grid do: [ :each |
tempAnimal := grid at: each
(tempAnimal at: type := 'rabbit') ifTrue: temp := tempAnimal at: row
(temp := row) ifTrue: temp := tempAnimal at: col
(temp := col) ifTrue: count := count + 1 .
]
^ count .
]
placerow: animal [
| row col |
row := simulation rand .
col := simulation rand .
animal add: 'row' -> row .
animal add: 'col' -> col .
^ animal .
]
removerow: col [
| tempAnimal temp tempid |
grid do: [ :each |
tempAnimal := grid at: each
tempid := tempAnimal at: id
temp := tempAnimal at: row
(temp := row) ifTrue: temp := tempAnimal at: col
(temp := col) ifTrue: grid remove: each .
]
]
Object subclass: #animal .
animal instanceVariableNames: ' '.
animal class instanceVariableNames: ' id type animals '.
animal comment: 'I am the class for all animals' .
animal class extend [
initialize [
aniamls := Dictionary new .
]
create: type [
(animals := nil) ifTrue: self initialize
(type := 'rabbit') ifTrue: animals := rabbit new .
(type := 'lynx') ifTrue: animals := lynx new .
^ animals .
]
getid ["returns the animals unique id"
| tempAnimal temp |
tempAnimal := grid asArray at: id .
temp :=
]
getrow: id ["returns the animals grid row"
| tempAnimal temp |
grid do: [:each |
tempAnimal := grid at: each .
(tempAnimal at: id := id) ifTrue: (temp:= tempAnimal at: row. ^ temp ) . ]
]
getcol: id ["returns the animals grid col"
| tempAnimal temp |
grid do: [:each |
tempAnimal := grid at: each .
(tempAnimal at: id := id) ifTrue: (temp:= tempAnimal at: col. ^ temp ) . ]
]
getdirection: id ["returns the animals movement direction"
| tempAnimal temp |
grid do: [:each |
tempAnimal := grid at: each .
(tempAnimal at: id := id) ifTrue: (temp:= tempAnimal at: direction. ^ temp ) . ]
]
setdirection ["sets animals movement direction"
| direction |
direction := simulation rand .
^ direction .
]
]
animal subclass: #lynx
lynx instanceVariableNames: ' direction '.
lynx class instanceVariableNames: ' lynxdictionary '.
lynx comment: 'I am the subclass of animal that is lynxs' .
lynx class extend [
new [
lynxdictionary := Dictionary new .
lynxdictionary add: 'type' -> 'lynx'
direction := animal setdirection .
lynxdictionary add: 'direction' -> direction
lynxdictionary := grid placerow:lynxdictionary .
^ lynxdictionary .
]
act [
| row col tempAniaml |
]
]
animal subclass: #rabbit
rabbit instanceVariableNames: ' direction '.
rabbit class instanceVariableNames: ' rabbitdictionary '.
rabbit comment: 'I am the subclass of animal this is rabbits'.
rabbit class extend [
new [
rabbitdictionary := Dictionary new .
rabbitdictionary add: 'type' -> 'rabbit'
direction := animal setdirection
rabbitdictionary add: 'direction' -> direction
rabbitdictionary := grid place:rabbitdictionary .
^ rabbitdictionary .
]
act [
]
]