RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Smalltalk/create-a-two-dimensional-array-at-runtime-1.st

12 lines
368 B
Smalltalk
Raw Permalink Normal View History

2013-04-10 16:57:12 -07:00
m := (FillInTheBlankMorph request: 'Number of rows?') asNumber.
n := (FillInTheBlankMorph request: 'Number of columns?') asNumber.
aMatrix := Matrix rows: m columns: n.
aMatrix
at: (aMatrix rowCount // 2)
at: (aMatrix columnCount // 2)
put: 3.4.
e := aMatrix
at: (aMatrix rowCount // 2)
at: (aMatrix columnCount // 2).
Transcript show: 'Entry is', e printString.