Code: Alles auswählen
#!/usr/bin/env io
toSubtract := Map clone
File clone openForReading("test2.txt") do(
foreachLine(line,
parts := line split
toSubtract atPut(parts first, parts last asNumber)
)
close
)
File clone openForReading("test.txt") do(
foreachLine(line,
(line findSeq("Figur:") == 0) ifTrue(
parts := line split
name := parts at(1)
value := parts at(2) asNumber
line = parts atPut(2, value - toSubtract at(name)) join(" ")
)
line println
)
close
)