23 lines
375 B
Text
23 lines
375 B
Text
; data.csv
|
|
;
|
|
; C1,C2,C3,C4,C5
|
|
; 1,5,9,13,17
|
|
; 2,6,10,14,18
|
|
; 3,7,11,15,19
|
|
; 4,8,12,16,20
|
|
|
|
table: read.csv "data.csv"
|
|
data: []
|
|
loop table 'row [
|
|
addable: ["SUM"]
|
|
if row <> first table ->
|
|
addable: @[to :string sum map row 'x [to :integer x]]
|
|
|
|
'data ++ @[row ++ addable]
|
|
]
|
|
|
|
loop data 'row [
|
|
loop row 'column ->
|
|
prints pad column 6
|
|
print ""
|
|
]
|