15 lines
274 B
Plaintext
15 lines
274 B
Plaintext
// Calculates the sum and max of an array
|
|
|
|
DESIGNA array VT [II,XVIII,XV,IX,XIV,XIV,I,VII,VIII,VI]
|
|
DESIGNA max VT NVLLVS
|
|
DESIGNA svm VT NVLLVS
|
|
|
|
PER x IN array FAC {
|
|
DESIGNA svm VT svm + x
|
|
SI x PLVS max TVNC {
|
|
DESIGNA max VT x
|
|
}
|
|
}
|
|
|
|
DIC("Sum:", svm)
|
|
DIC("Max:", max) |